Question

vb的TextBox.Text中怎样判断是不是数字如果不是数字就自动清除输入的数字

Answer 1

键盘只允许输入 0-9
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 57 Or KeyAscii < 48 Then KeyAscii = 0
End Sub

如果允许 小数点 ，就用这句：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii > 57 Or KeyAscii < 48) and keyascii<>46 Then KeyAscii = 0
End Sub

如果还要考虑复制时，非键盘输入的情况，用这个：
Public t As String
Private Sub Text1_Change()
If Not IsNumeric(Text1.Text) Then Text1.Text = t
t = Text1.Text
End Sub

Answer 2

If IsNumeric(TextBox1.Text) Then
(文本框为数字时要执行的语句)
else
me.TextBox1.Text = ""
end if

Answer 3

你这是语病吧?
如果文本框没有数字,那怎么删除数字?