以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101787)
--  作者：等待
--  发布时间：2017/6/7 9:38:00
--  窗口
当点击“Button1”按钮时需要输入密码才能执行，麻烦问一下  在哪里写什么样的代码
--  作者：有点蓝
--  发布时间：2017/6/7 10:33:00
--  
参考：http://www.foxtable.com/webhelp/scr/2435.htm
--  作者：等待
--  发布时间：2017/6/7 11:06:00
--  
老师能不能帮我写一下，我没看懂，还有代码加在哪里，谢谢
--  作者：有点色
--  发布时间：2017/6/7 11:33:00
--  

Click事件

 

Dim pwd As String
If InputPassWord(pwd,"提示","请输入密码:") Then
    If pwd <> "123456" Then
        msgbox("密码错误")
        Return
    End If
Else
    msgbox("请输入密码")
    Return
End If

msgbox("执行完毕")