5.3.4 密码框

　　密码框是一种特殊的文本框，它的特殊之处在于：当用户向密码框中输入文本时，不论用户输入的是什么字符，在密码框中总是显示特定的字符。如*、#等。这样，别人在密码框中就看不到用户所输入的实际内容，从而达到了保密的效果。

　　通过设置文本框的Password Char属性就可以将普通的文本框设置成为密码框。在缺省情况下，Password Char属性的值为空字符串。这时用户在键盘上输入什么字符，在文本框中就显示什么字符。如果将Password Char属性的值设置为某个字符，如设置为星号(*),则用户在文本框中输入任何字符都将显示为*.例如，输入的是Hcq,显示的则是***.

　　但是，文本框的Password Char属性并不影响Text属性，尽管在文本框中显示的是在Password Char属性中指定的字符，但Text属性返回的仍然是用户输入的实际内容。根据这一点，可以编写一个验证密码的小程序。

　　实例5.7 验证密码

　　在该程序中，要求用户输入密码，如果输入正确，则用户可以继续下一步操作，否则，在窗体上显示"密码输入错误，请再试一次!",并且用户只有三次输入密码的机会，如果三次输入错误，则文本框变为无效，不能接受用户的任何输入。在本例中，认为正确的密码为abcd. [NextPage] 　单击【添加窗体】按钮向当前工程中再添加一个窗体，其中一个窗体用作验证密码。在用作验证密码的窗体上放置两个标签控件、一个文本框控件和一个按钮控件，如图5.21所示。各对象属性设置如表5.14所示。在另一个窗体上放置一个标签控件和一个按钮控样，如图5.22所示，各对象的属性如表5.15所示。

　　双击验证密码窗体中的【确定】按钮，打开【代码】窗口，将下列代码添加到ComOk_Click事件过程中：

　　Private Sub ComOK_Click()

　　Static i As Integer

　　If i<=2 Then

　　If TexPass.Text=“abcd”Then

　　Unload ForPass

　　Formain.Show

　　Else

　　LabMsg.Caption=“密码错误，请再试一遍!”

　　End If

　　Else

　　LabMsg.Caption=“三次输入错误，拒绝重新输入!”

　　TextPass.Enabled=False

　　End If

　　i=i+1

　　End Sub

 [NextPage]

　　在该段代码中，首先定义了一个静态变量i,它用来记录用户输入密码的次数。i的初值为O,每单击一次按钮，则i的值增1(i=i+1).然后使用If语句来判断i的值，如果i的值小于3,即用户输入密码不超过三次，又使用了一个If语句来判断用户所输入的密码是否正确。如果正确(即输入的是abcd),则验证密码窗体消失，同时启动另一个窗体。如果输入的密码不正确，则会在窗体的标签上显示"密码错误，请再试一遍!".如果第三次输入密码也不正确，此时i的值已经累加到3.再次输入密码，程序不会再判断密码是否正确(因为1≮3 ),而是在窗体上显示"三次输入错误，拒绝重新输入!",并且将文本框置为无效。因此，即便是用户在第四次输入了正确的密码，也无济于事。

　　双击另一个窗体上的按钮控件，将程序结束语句End添加到按钮的Click事件中，如下所示：

　　Private Sub ComMain_Click()

　　End

　　End Sub

　　在【工程属性】对话框中设置启动窗体为ForPass,运行该程序，则出现【验证密码】窗体，在文本框中输入字符串abcd,文本框中显示的是"****"。单击【确定】按钮，则验证密码窗体消失，另一个窗体显示出来。单击【关闭】按钮可以退出该程序。

　　再次运行该程序，在【验证密码】窗体的文本框中随意输入一个字符串(不是abcd),单击【确定】按钮，则窗体上显示"密码错误，请再试一遍!".如图5.25所示。连续三次输入错误的密码，当第四次输入密码时，无论密码正确与否，单击【确定】按钮则窗体上显示"三次输入错误，拒绝重新输入!",并且将文本框置为无效，用户无法继续输入密码