展开全部
比如该文本框是text1,加一段：
Private Sub Text1_change()
'非数字校验~~~~~~~~~~~~~~~~~~
If IsNumeric(Text1.Text) = False Then
MsgBox "请输入数字！", 48, "错误提示"
Text1.Text =""
Text1.SetFocus
Exit Sub
End If
.......
endsub
Private Sub Text1_change()
'非数字校验~~~~~~~~~~~~~~~~~~
If IsNumeric(Text1.Text) = False Then
MsgBox "请输入数字！", 48, "错误提示"
Text1.Text =""
Text1.SetFocus
Exit Sub
End If
.......
endsub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
