按键与文本框一起，点击按键后弹出密码确认，密码正确后才能修改文本框 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 按键与文本框一起，点击按键后弹出密码确认，密码正确后才能修改文本框

共有9935人关注过本帖树形打印复制链接主题：按键与文本框一起，点击按键后弹出密码确认，密码正确后才能修改文本框

blackzhu

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐仙帖子：9879 积分：57646 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：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

主题：按键与文本框一起，点击按键后弹出密码确认，密码正确后才能修改文本框