以文本方式查看主题

-  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=24212)
--  作者：初级狐鸟
--  发布时间：2012/10/8 11:17:00
--  按键与文本框一起，点击按键后弹出密码确认，密码正确后才能修改文本框

想弄一个按键与文本框绑定在一起，点击按键后弹出密码确认，密码正确后才能修改文本框。这个怎么弄哦？

 

目前只会单独的在文本框设置密码，如下Dim var As String
Do
    InputValue(var, "提示", "请输入密码")
Loop While var <> 123456789

 

怎么在按键设计代码，使其能够弹出密码确认框，确认才能修改文本框呢？
--  作者：lin_hailun
--  发布时间：2012/10/8 11:44:00
--  
 将文本框的只读属性设置为true，然后编写按键的代码，正确就修改为false。
--  作者：初级狐鸟
--  发布时间：2012/10/8 13:39:00
--  
能不能给个具体的代码呢？
--  作者：blackzhu
--  发布时间：2012/10/8 14:00:00
--  
     先把文本框的可用属性设置为false   

按钮代码如下: 
Dim pwd As String
Dim Val As String = "123456"
If InputPassWord(pwd,"提示","请输入密码:") Then
    If Pwd = Val Then
        e.Form.Controls("TextBox1").Enabled = True
    Else
        MessageBox.Show("密码错误!","提示!")
        Return
    End If
End If
--  作者：初级狐鸟
--  发布时间：2012/10/8 14:59:00
--  
谢谢了哈！