- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 分享一个有密码保护的按扭 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=15704)
-- 发布时间：2012/1/7 9:34:00
-- 分享一个有密码保护的按扭
各位狐友：从权限设定的多样性，方便性，与安全性方面考虑，如果一个特殊的控件能还有一个密码保护的话会更好一点，现共享一个案列给大家，希望大家多点意见
密码为hlbb (即狐狸爸爸）
-- 发布时间：2012/1/7 9:35:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:密码按扭.table |
-- 发布时间：2012/1/7 9:36:00
--
-- 发布时间：2012/1/7 9:40:00
--
谢谢分享，顶一下！
-- 发布时间：2012/1/7 11:19:00
--
用这个不是要简单些?原来的有点问题!
完整的是这样的:
Dim Val As String ="123456"
Dim s As String
If InputValue(s,"密码!","请输入密码:") Then
If s = Val Then
forms("窗口12").open
Else
MessageBox.Show("你输入的密码不对!")
End If
End If
[此贴子已经被作者于2012-1-7 13:32:47编辑过]
-- 发布时间：2012/1/7 14:15:00
--
blackzhu老师,5楼的代码对话框在输入密码时,会显示密码,可否伪装密码
-- 发布时间：2012/1/7 14:54:00
--
没有呀,我这个对话框里面看不到任何数据的呀
-- 发布时间：2012/1/7 14:58:00
--
Dim Val As String ="123456"
Dim s As String =iif(s="","******","")
If InputValue(s,"密码!","请输入密码:") Then
If s = Val Then
Forms("窗口2").Open()
Else
MessageBox.Show("你输入的密码不对!")
End If
End If
伪装字符这样试试?
-- 发布时间：2012/1/7 14:59:00
--
我将其放在按钮代码,会显示密码.是否还要进行其他设置
-- 发布时间：2012/1/7 15:08:00
--
我明白了,就是输入的时候出现密码?这个我看看,好像没有办法的吧!
[此贴子已经被作者于2012-1-7 15:10:23编辑过]