可以用VB6里的函数
成都创新互联公司长期为1000+客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为建瓯企业提供专业的成都网站设计、网站建设,建瓯网站改版等技术服务。拥有十载丰富建站经验和众多成功案例,为您定制开发。
isnumeric()
比如要判断文本框里的内容是否数字
if isnumeric(TextBox1.text) Then
msgbox("是数字!")
else
msgbox("不是数字!")
end if
常数用正则表达式获取,上面的公式必须化简为:x=c/(d-(a-a+b)),才可以求值。AABCD为正则表达式获取的公式中的常数变量。
你用的都是vb6的代码,改成:
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
If IsNumeric(TextBox1.Text) = False Then
MsgBox("输入有非数字字符,请重新输入", vbOKOnly, "友情提示")
TextBox1.Focus()
Return
End If
End Sub