Question

关于vb怎么让他text中只能输入数字,而不要输入汉字或字母

我是刚刚才开始自己学习vb的有好多东西不理解还请大家多多帮忙
在此谢谢了
好象不可以呀
你自己试过吗???

Answer 1

Dim N As Long '用于保存输入的数字，当输入的含有非数字时用该值恢复
Private Sub Form_Load()
If IsNumeric(Text1.Text) Then '当文本框中全是数字时将其赋值给N
N = CLng(Text1.Text)
Else '否则将文本框的初值设为0
Text1.Text = "0"
N = 0
End If
End Sub

Private Sub Text1_Change()
If IsNumeric(Text1.Text) Then '当文本框中全是数字时将其赋值给N
N = CLng(Text1.Text)
Else '否则将文本框恢复为上一次的合法值（数字）
Text1.Text = CStr(N)
End If
End Sub

Answer 2

我试过的
在text的KEYPRESS事件里加这个
If InStr(1, "0123456789.", UCase(Chr(KeyAscii)), 1) <= 0 Then
KeyAscii = 0
End If

Answer 3

Private Sub Command1_Click()
If Asc(Text1.Text) > 57 Or Asc(Text1.Text) < 47 Then
MsgBox "只能输入数字"
End If
End Sub

Private Sub Form_Load()
Text1.Text = ""
End Sub