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

浙公网安备 33010602011771号