[求助]如果在文本框里输入的不是数字,会弹出错误提试框怎么写?
我是一个运算的程序``在文本框里输入的一定要是数字,而且要是正数
如果输入的不是数字就会弹出```这个``
o=msgbox("请输入正数","","输入错误")
请问怎么写哦````
Private Sub Form_Load()
Text1.Text = ""
End Sub
Private Sub Text1_Change()
Dim tx
If Text1.Text <> "" Then
tx = Right(Text1.Text, 1)
If Not IsNumeric(tx) Then
tx = Left(Text1.Text, Len(Text1.Text) - 1)
Text1.Text = tx
MsgBox "请输入正数", vbOKOnly + vbInformation, "输入错误"
Text1.SetFocus
SendKeys "{end}"
Exit Sub
End If
End If
End Sub