快捷搜索:

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.WordStr(",", " like ’%" & txt.Text & "%‘ or ")

Cols &= " like ‘%" & txt.Text & "%’ " Else ‘输入框中不包孕有汉字,则采纳正确匹配Cols = Cols.WordStr(",", " = ’" & txt.Text & "‘ or ")

Cols &= " = ‘" & txt.Text & "’ " End If

措施二,应用长度判断

If System.Text.Encoding.Default.GetBytes(txt.Text)。Length = txt.Text.Length Then ‘有汉字

End If

您可能还会对下面的文章感兴趣: