Imports Infragistics.Win.UltraWinGrid
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim newMapping As GridKeyActionMapping
' グリッドにカスタムキーと動作マッピングを追加します
' 編集モードではなく、グリッドがフォーカスを持つ場合、
' 'Alt' キーが押されていなくて、ユーザーが 'H' キーを押すと、
' 最初の行に
' 移動します
newMapping = New GridKeyActionMapping(Keys.H, UltraGridAction.FirstRowInGrid, UltraGridState.InEdit, 0, Infragistics.Win.SpecialKeys.Alt, 0)
Me.ultraGrid1.KeyActionMappings.Add(newMapping)
' 注: この概念は UltraCombo コントロールにも適用されますが、
' コンボの KeyActionMappings は
' マッピング クラス、関連付ける状態および操作フラグの
' コレクションです
' (ComboKeyActionMapping、UltraComboAction、および
' UltraComboState など)
End Sub