以文本方式查看主题 - 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 -- 谢谢 可以了 感谢 |