Question

vb设置了一个检验是否为数字的keypress但是输入数字也是0

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 46 Then
KeyAscii = 0
End If

End Sub

但是我我输入数字也显示的是0

Answer 1

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 46 Then
KeyAscii = 0
End If
Print KeyAscii
End Sub

追问

恕我愚笨，没看出那行Print KeyAscii有什么用

还有我那行
(ByVal KeyAscii As MSForms.ReturnInteger)
是选择keypress自动补出来的，改掉不要紧吗？

Answer 2

If (Chr(KeyAscii) > "9" Or Chr(KeyAscii) < "0") And KeyAscii <> 8 Then
KeyAscii = 0
End If