【Spread Sheet 应用（三）】Enter移向下一个单元格

从Sample中粘出来的函数

Private Sub GetKeyPress_NEXT()
        ' 定义InputMap的Option 
        Dim im As FarPoint.Win.Spread.InputMap

        ' 单元格处于编辑状态下，Enter键按下的动作
        im = ssBody.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenAncestorOfFocused)
        ' 向下一个单元格(从左到右，从上到下)移动。
        im.Put(New FarPoint.Win.Spread.Keystroke(Keys.Enter, Keys.None), FarPoint.Win.Spread.SpreadActions.MoveToNextColumnWrap)

        ' 单元格处于获得焦点的状态下，Enter键按下的动作
        im = ssBody.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenFocused)
        ' 向下一个单元格(从左到右，从上到下)移动。
        im.Put(New FarPoint.Win.Spread.Keystroke(Keys.Enter, Keys.None), FarPoint.Win.Spread.SpreadActions.MoveToNextColumnWrap)

    End Sub

添加SpreadSheet的KeyPress事件

Private Sub ssBody_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ssBody.KeyPress

        If e.KeyChar = ChrW(Keys.Enter) Then

            GetKeyPress_NEXT()

        End If

End Sub

注意：要用如下方法取当前列

Dim aActiveCol As Integer
Dim aCol As Integer = ssBody.ActiveSheet.ActiveColumnIndex
aActiveCol  = aCol - 1