专家坐堂-求助：利用密码字符隐藏文本怎么用代码恢复显示呢？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  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=62385)

--  作者：李孝春
--  发布时间：2014/12/30 21:42:00
--  求助：利用密码字符隐藏文本怎么用代码恢复显示呢？

求助：利用密码字符隐藏文本怎么用代码恢复显示呢？

此主题相关图片如下：1.jpg

此主题相关图片如下：2.jpg

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:注册码生成器新版.foxdb

[此贴子已经被作者于2014-12-30 21:43:12编辑过]

--  作者：有点甜
--  发布时间：2014/12/30 21:46:00
--

Forms("窗口1").Controls("TextBox2").PasswordChar = "*"

Forms("窗口1").Controls("TextBox2").PasswordChar = ""

--  作者：李孝春
--  发布时间：2014/12/30 23:03:00
--  回复：（有点甜）Forms("窗口1").Controls("TextBox2"...

有点甜老师进一步学习一下如果我采用了复选框进行判断

Dim ck As WinForm.CheckBox = e.Form.Controls("CheckBox1")
If ck.Checked=True Then
    Forms("窗口1").Controls("密码1").PasswordChar = "*"
    Forms("窗口1").Controls("密码1").PasswordChar = ""
    Forms("窗口1").Controls("密码2").PasswordChar = "*"
    Forms("窗口1").Controls("密码2").PasswordChar = ""
Else
    Forms("窗口1").Controls("密码1").password= "*"
    Forms("窗口1").Controls("密码2").password= "*"
End If

红色加粗代码部分怎么修改呢

--  作者：有点甜
--  发布时间：2014/12/30 23:48:00
--

呃，你不是吧？

Dim ck As WinForm.CheckBox = e.Form.Controls("CheckBox1")
If ck.Checked=True Then
    Forms("窗口1").Controls("密码1").PasswordChar = "*"
    Forms("窗口1").Controls("密码2").PasswordChar = "*"
Else
    Forms("窗口1").Controls("密码1").PasswordChar = ""
    Forms("窗口1").Controls("密码2").PasswordChar = ""
End If

--  作者：李孝春
--  发布时间：2014/12/31 10:11:00
--  回复：（有点甜）呃，你不是吧？ Dim ...
谢谢呵呵原来我理解错误了再次感谢有点甜老师