以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  TabControl1设置密码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95213)

--  作者:yangwenghd
--  发布时间:2017/1/13 11:52:00
--  TabControl1设置密码
If e.sender.TabPages(e.NewIndex).Text = "收汇记录" Then
    Dim pwd As String
    If InputPassWord(pwd,"提示","请输入密码:") Then
        If pwd <> "000" Then
            msgbox("错误")
            e.cancel = True
        End If
    End If
End If  \'设置密码\'

点击页面后会弹出输入密码对话框,为什么点击取消后 还是一样的显示了要输入密码才能看见的页面啊 感谢 感谢 

--  作者:有点色
--  发布时间:2017/1/13 11:57:00
--  
If e.sender.TabPages(e.NewIndex).Text = "Page1" Then
    Dim pwd As String
    InputPassWord(pwd,"提示","请输入密码:")
    If pwd <> "000" Then
        msgbox("错误")
        e.cancel = True
    End If
End If  \'设置密码\'

--  作者:yangwenghd
--  发布时间:2017/1/13 13:21:00
--  
谢谢 可以了 感谢