Imports Infragistics.Win
Private Sub SetKeyMappings()
' Maps the W and Z keys to traverse the grid up and down when not in edit mode.
If Not Me.UltraGrid1.KeyActionMappings.IsKeyMapped(Keys.Z, 0) Then
Dim kaDown As UltraWinGrid.GridKeyActionMapping = New UltraWinGrid.GridKeyActionMapping(Keys.Z, Infragistics.Win.UltraWinGrid.UltraGridAction.NextRow, Infragistics.Win.UltraWinGrid.UltraGridState.InEdit, 0, 0, 0)
Me.UltraGrid1.KeyActionMappings.Add(kaDown)
End If
If Not Me.UltraGrid1.KeyActionMappings.IsKeyMapped(Keys.W, 0) Then
Dim kaUp As UltraWinGrid.GridKeyActionMapping = New UltraWinGrid.GridKeyActionMapping(Keys.W, Infragistics.Win.UltraWinGrid.UltraGridAction.PrevRow, Infragistics.Win.UltraWinGrid.UltraGridState.InEdit, 0, 0, 0)
Me.UltraGrid1.KeyActionMappings.Add(kaUp)
End If
End Sub