Question

VB中,如何限制一个文本框中只能输入数字?

如题,谢谢.

Answer 1

比如该文本框是text1,加一段：
Private Sub Text1_change()

'非数字校验~~~~~~~~~~~~~~~~~~
If IsNumeric(Text1.Text) = False Then
MsgBox "请输入数字！", 48, "错误提示"
Text1.Text =""
Text1.SetFocus
Exit Sub
End If
.......
endsub