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