スプレッドのセル編集時にEnterキーのイベントを取得し、別の処理を行う

?

'フォームロードイベント

Private Sub Form1_Load(sender As Object, e As System.EventArgs)

    fpSpread1.EditModePermanent = True

    ' 編集中セルの Enterキー押下による動作を無効とします。

    Dim inputmap1 As FarPoint.Win.Spread.InputMap

    inputmap1 = fpSpread1.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenAncestorOfFocused)

    inputmap1.Put(New FarPoint.Win.Spread.Keystroke(Keys.Enter, Keys.None), FarPoint.Win.Spread.SpreadActions.None)

End Sub

'スプレッドの編集開始イベント

Private Sub fpSpread1_EditModeOn(sender As Object, e As System.EventArgs)

    ' 編集モードONの時、KeyDownイベントを取得する

    fpSpread1.EditingControl.KeyDown += New System.Windows.Forms.KeyEventHandler(AddressOf Me.fpSpread1_KeyDown)

End Sub

'スプレッドの編集終了イベント

Private Sub fpSpread1_EditModeOff(sender As Object, e As System.EventArgs)

    ' 編集モードOFFの時、KeyDownイベントの関連付けを解除

    fpSpread1.EditingControl.KeyDown -= New System.Windows.Forms.KeyEventHandler(AddressOf Me.fpSpread1_KeyDown)

End Sub

'キーダウンイベント

Private Sub fpSpread1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs)

    If e.KeyCode = Keys.Enter Then

        Console.WriteLine("EnterキーによるKeyDown")

    End If

End Sub