Question

vb中用KeyPress事件判断输入字符后，怎么编辑不了Text1里的文本?

代码如下
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
Text1.SetFocus
End If
End Sub
输入数字后，怎么编辑不了Text1里的文本?请指导!

Answer 1

因为删除键（backspace）也被你给屏蔽了，办法是改变一下判断条件：

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
KeyAscii = 0
Text1.SetFocus
End If
End Sub

Answer 2

在text里输入的是字符，思安把它先把它转换为integer看看

Answer 3

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
If KeyAscii <> 3 And KeyAscii <> 22 And KeyAscii <> 24 Then
KeyAscii = 0
End If
Text1.SetFocus
End If
End Sub