Question

VB里面的文本框输入类型不匹配的错误提示code如何写

比如建立了一个文本输入框，希望让他只能输入数字，当用户输入文字并点击确定的时候提示他输入类型错误。这个code应该怎么写？

Answer 1

If IsNumeric(Text1.Text) = False Then
MsgBox "输入类型错误！"
End If

Answer 2

代码放到Text1的Change（）事件里

Dim I as Integer

If Not IsNumberic(right（Text1,1)) then Msgbox "请只输入数字"