VB.net(Win)录入验证的办法

    数字录入验证  使用正则验证，同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

【责编:Ken】