spread使某一按键失效

        Dim im As New FarPoint.Win.Spread.InputMap

        im = vaSpread1.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenAncestorOfFocused)

        im.Put(New FarPoint.Win.Spread.Keystroke(Keys.F2, Keys.None), FarPoint.Win.Spread.SpreadActions.None)

    Private Sub vaSpread1_EditModeOff(ByVal sender As Object, ByVal e As System.EventArgs) Handles vaSpread1.EditModeOff

        RemoveHandler vaSpread1.EditingControl.KeyDown, AddressOf vaSpread1_KeyDown

    End Sub

    Private Sub vaSpread1_EditModeOn(ByVal sender As Object, ByVal e As System.EventArgs) Handles vaSpread1.EditModeOn

        AddHandler vaSpread1.EditingControl.KeyDown, AddressOf vaSpread1_KeyDown

    End Sub

 Private Sub vaSpread1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles vaSpread1.KeyDown

        If e.Modifiers = Keys.Shift And e.KeyCode = Keys.Enter Then

    'do something

        ElseIf e.KeyCode = Keys.Enter Then

      'do something

        End If

    End Sub

posted @ 2013-06-28 16:45  sxw521  阅读(189)  评论(0)    收藏  举报