Imports Infragistics.Win.UltraWinGrid ... Private Sub UltraGrid1_KeyDown(ByVal sender As Object, _ ByVal e As System.Windows.Forms.KeyEventArgs) _ Handles UltraGrid1.KeyDown ' カーソル移動に必要なアクションを実行します Select Case e.KeyValue Case Keys.Up Me.UltraGrid1.PerformAction(UltraGridAction.ExitEditMode, False, False) Me.UltraGrid1.PerformAction(UltraGridAction.AboveCell, False, False) e.Handled = True Me.UltraGrid1.PerformAction(UltraGridAction.EnterEditMode, False, False) Case Keys.Down Me.UltraGrid1.PerformAction(UltraGridAction.ExitEditMode, False, False) Me.UltraGrid1.PerformAction(UltraGridAction.BelowCell, False, False) e.Handled = True Me.UltraGrid1.PerformAction(UltraGridAction.EnterEditMode, False, False) Case Keys.Right Me.UltraGrid1.PerformAction(UltraGridAction.ExitEditMode, False, False) Me.UltraGrid1.PerformAction(UltraGridAction.NextCellByTab, False, False) e.Handled = True Me.UltraGrid1.PerformAction(UltraGridAction.EnterEditMode, False, False) Case Keys.Left Me.UltraGrid1.PerformAction(UltraGridAction.ExitEditMode, False, False) Me.UltraGrid1.PerformAction(UltraGridAction.PrevCellByTab, False, False) e.Handled = True Me.UltraGrid1.PerformAction(UltraGridAction.EnterEditMode, False, False) End Select End Sub