专家坐堂-Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如果现在用户设置的密码满足强口令规则  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117458)

--  作者：有点甜
--  发布时间：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

--  作者：cd_tdh
--  发布时间：2018/4/13 9:21:00
--

以下是引用有点甜在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

老师，我在写在：ValueChanged事件，判断不起作用呢？

--  作者：有点甜
--  发布时间：2018/4/13 9:27:00
--

以下是引用cd_tdh在2018/4/13 9:21:00的发言：

老师，我在写在：ValueChanged事件，判断不起作用呢？

写到Validating事件，贴出你写的代码