我有以下代码。我希望在用户处理信息之前通过按钮点击执行if检查。
Private Sub TestBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TestBTN.Click
If TBSearch.Text = "" & ".exe" Or TBSearch.Text = "" & "" Or TBSearch.Text = ".""*" & ".**" Then TBSearch.BackColor = Color.Aqua Else TBSearch.BackColor = Color.Red
End Sub
我希望只检查文本框信息是否以三种格式之一输入。
1)blah.blah
2)等等* .blah
3)等等*。*
我希望我解释了这一点。
答案 0 :(得分:2)
您可以使用正则表达式:
(System.Text.RegularExpressions.Regex)
Dim re As New System.Text.RegularExpressions.Regex("^[^\*]+(\*?\.[^\*]+|\*\.\*)$")
If re.IsMatch(TBSearch.Text) Then
TBSearch.BackColor = Color.Aqua
Else
TBSearch.BackColor = Color.Red
End If
将验证表单中的任何单词: (任何字符!= *)后跟(*。)或(。)后跟(*)或(任何字符!= *) 强>