在VB中如何实现输入的密码为*

安徽省颍上一中   梁宝同

       北师大版的数学教材，在必修3中有算法模块，而算法中的程序用的是VB。所以，趁着高一课少，学点VB知识，以备以后教学之需。下面分享一点学习心得，即在VB中如何实现输入的密码为“*”

        首先，在窗体上创建一个label，设置caption为“请输入密码”，在label后面，创建一个textbox,设置text1的passwordchar属性为“*”，然后把multiline属性设为false，再把text属性设为空，即“”。此时在text1中输入的字符，全部变为“*”了。如图所示http://s12/mw690/001TFaPWgy6OzG4zBwf0b&690，呵呵！看点教程，这个不难的。

       那如何设置，可以把自己输入的密码显示出来，以查看是否正确呢？这个是笔者自己的学习心得哦！刚开始，心想把text1的multiline属性设为true，那passwordchar不就没有效了吗？于是创建一个command按钮，这click事件中，输入：text1.multiline=true，运行时，发现报错，原因是multiline属性为只读属性，即只有在设计时方可修改其属性值，运行时不可以修改的。汗~，最直接的想法，pass了。下面笔者提供一个间接地方法.

        在text1的位置上再创建一个text2（注意两个box的大小和位置一样，这样运行时才看不出来是两个textbox哦），把text属性设为空，即“”。再在textbox旁边创建一个command按钮，进入代码区，设置两个事件，如下

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) '设置 鼠标按下的事件
Text1.Visible = False '设置第一个文本框的可见性为false

Text2.Visible = True '设置第二个文本框的可见性为true

Text2.Text = Text1.Text '把第一个文本框的内容赋值给第二个文本框，从而显示刚才的输入字符
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) '设置鼠标弹起的事件
Text1.Visible = True '设置第一个文本框的可见性为true
Text2.Visible = False '设置第二个文本框的可见性为false
End Sub

此时，运行是，输入密码，按下显示密码按钮就会显示出输入的字符，松开鼠标就会隐藏输入的内容了。