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

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