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

发布网友发布时间：2022-05-09 20:23

共4个回答

热心网友时间：2023-10-17 16:44

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

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

热心网友时间：2023-10-17 16:45

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

热心网友时间：2023-10-17 16:45

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

热心网友时间：2023-10-17 16:46

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