以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  TabControl1设置密码  (http://www.foxtable.com/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 --   谢谢 可以了 感谢