Question

怎么在VB的窗体里设置只能输入数字的文本框？

一楼的，谢谢你。。。不过我想问下为什么要加个command按钮？能不能直接一text为对象设置？

Answer 1

Private Sub Command1_Click()
Dim x as double[或其它整型数字变量类型]
x=Text1.text
End Sub

这样就行了，当你输入任意非数字类型字符时就会拒绝执行。

Answer 2

Private Sub Text1_Change()
If Asc(Right(Text1.Text, 1)) < 48 Or Asc(Right(Text1.Text, 1)) > 57 Then
Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1)
Text1.SelStart = Len(Text1.Text)
End If
End Sub

Answer 3

Private Sub Text1_Change()
If IsNumeric(Text1.Text) = False Then Text1.Text = Nothing
End Sub
写入这一行代码就可以让文本框只接收数字输入了.

Answer 4

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then KeyAscii = 0
End Sub