- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- button 怎么加一个解锁密码box？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50749)
-- 发布时间：2014/5/12 21:18:00
-- button 怎么加一个解锁密码box？
点击“锁定”，不允许编辑，点击解锁，希望能有一个密码box，输入密码才能，解锁。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2014/5/12 21:21:00
--
看这里，先自己试一下
http://www.foxtable.com/help/topics/2617.htm
-- 发布时间：2014/5/12 21:24:00
--
好的
-- 发布时间：2014/5/12 21:26:00
--
代码
If e.Sender.Text = "锁定" Then
e.Sender.Text = "解锁"
DataTables("打底A").AllowEdit = False
ElseIf e.sender.text = "解锁" Then
Dim psd As String
InputValue(psd,"验证","请输入密码") \'输入密码
If psd = "123456" Then \'如果密码正确
e.Sender.Text = "锁定"
DataTables("打底A").AllowEdit = True
Else
Messagebox.Show("密码错误","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
-- 发布时间：2014/5/13 8:21:00
-- 回复：（有点甜）代码 If e.Sender.Text = "...
解决了！谢谢甜甜老师