'验证手机
Dim pattern As String = "^[1][345789][0-9]{9}$"
Dim txt_shouJi = e.Form.Controls("text_shouJi").Value '定义,手机
Dim rgx = new System.Text.RegularExpressions.Regex(pattern, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
If txt_shouJi = "" Then
Messagebox.Show("手机不能为空")
Return
End If
If rgx.isMatch(txt_shouJi) = False Then
Messagebox.Show("请输入正确的手机号")
Return
End If
现在号段越来越多，很快就不适用了。个人表示只需要判断是不是1开头的，11位长度的数字即可。
Dim s As String = "1234567890"
Dim b As Long
If s.StartsWith("1") AndAlso s.Length = 11 AndAlso Long.TryParse(s, b) Then
MsgBox("正确")
Else
MsgBox("bu正确")
End If
说不定很快2开头的号段就出来了，到时再改代码吧
我就遇到过，朋友找人写的小程序，手机号注册时，提示手机号不合法
就是限制了号段，有些地区开放了新号段
只好不停的修正验证规则