以下是引用有点甜在2018/4/12 17:37:00的发言： Dim pattern As String = "^(?=.*[0-9])(?=.*[a-zA-Z])(?=([\x21-\x7e]+)[^a-zA-Z0-9]).{8,30}$" Dim txt As String= "1233abc3.." Dim rgx = new System.Text.RegularExpressions.Regex(pattern, System.Text.RegularExpressions.RegexOptions.IgnoreCase) If rgx.isMatch(txt) = False Then msgbox("请输入正确的密码!") Else msgbox("正确") End If
加好友 
发短信
Post By：2018/4/13 9:21:00 [显示全部帖子]
