主题：电话号码录入校验

现在设计了一个录入窗口，其中有一个TEXTBOX控件是录入员工的电话号码，只能录入数字及“-”，请问如何设计校验程序，谢谢

validating事件

 

Dim str As String = e.Sender.text
Dim reg As new System.Text.RegularExpressions.Regex("^[0-9\-]*$")
If reg.Ismatch(str) = false Then
    msgbox("号码有误")
    e.cancel = True
End If

复杂一点可以这样

 

Dim str As String = e.Sender.text
Dim reg As new System.Text.RegularExpressions.Regex("((\d{11})|^((\d{7,8})|(\d{4}|\d{3})-(\d{7,8})|(\d{4}|\d{3})-(\d{7,8})-(\d{4}|\d{3}|\d{2}|\d{1})|(\d{7,8})-(\d{4}|\d{3}|\d{2}|\d{1}))$)")
If reg.Ismatch(str) = False Then
    msgbox("号码有误")
    e.cancel = True
End If

 

谢谢，红袍

这个是正则的使用，看看 http://baike.baidu.com/link?url=UvubrhyhTpnt8S1hT10gqN8Iq37c9WuJ1s6IXUXp5Ubx5LF4c0HCpbYGKn04Hg0d

 

好的