回复 5楼deppp的帖子
- Public Class Form1
- Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- AddHandler FpSpread1.EditModeOn, AddressOf FpSpread1_EditModeOn
- End Sub
- Private Sub FpSpread1_EditModeOn(sender As System.Object, e As System.EventArgs)
- Dim ge As FarPoint.Win.Spread.CellType.GeneralEditor = TryCast(FpSpread1.EditingControl, FarPoint.Win.Spread.CellType.GeneralEditor)
- If ge IsNot Nothing Then
- RemoveHandler ge.KeyPress, AddressOf ge_KeyPress
- AddHandler ge.KeyPress, AddressOf ge_KeyPress
- End If
- End Sub
- Private Sub ge_KeyPress(sender As Object, e As KeyPressEventArgs)
- If e.KeyChar = "%"c Then
- e.Handled = True
- End If
- End Sub
- End Class
复制代码 |