数字录入验证 使用正则验证，同C# Dim reg1 As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex（"^（？：\+|-）？\d+（？：\.\d+）？$"）
If Not reg1.IsMatch（TextBox1.Text） Then MsgBox（"fase"）：TextBox1.Focus（）
使用VB.Net中函数If Not IsNumeric（TextBox1.Text） Then MsgBox（"fase"）
TextBox1.Focus（）
End If
汉字录入验证
办法一：使用正则表达式
If New System.Text.RegularExpressions.Regex（"[\u4e00-\u9fa5]"）。Match（txt.Text）。Success Then ‘输入框中包含有汉字，则采用模糊匹配Cols = Cols.Replace（"，"， " like ’%" & txt.Text & "%‘ or "）
Cols &= " like ‘%" & txt.Text & "%’ " Else ‘输入框中不包含有汉字，则采用精确匹配Cols = Cols.Replace（"，"， " = ’" & txt.Text & "‘ or "）
Cols &= " = ‘" & txt.Text & "’ " End If
方法二，使用长度判断
If System.Text.Encoding.Default.GetBytes（txt.Text）。Length = txt.Text.Length Then ‘有汉字
End If
更多内容请看.NET移动与嵌入式技术、.NET开发手册专题，或进入讨论组讨论。
相关专题
- .NET移动与嵌入式技术 (6072篇文章)
- .NET开发手册 (5756篇文章)
- VB.NET对象的广泛应用 (9次浏览)
- VB.NET公共运行时的环境 (6次浏览)
- .NET程序实现“多语言” (4次浏览)
- VB.NET语法基础学习 (0次浏览)
- VB.net(Win)录入验证的办法 (0次浏览)
- VB.NET制作Code39的规律类的方法 (0次浏览)
- 用VB.NET 2008编写数据查询窗体 (0次浏览)
