VB密码问题

来源：百度知道 编辑：UC知道 时间：2024/05/04 19:47:00
如何设置一个界面，一个用户名，一个密码框，输入密码后得以登陆，数错密码弹出MSGbox ，只是想知道你对密码框设置的那段代码，当然如果能给一个完整的代码将感激不尽。

新建工程, 添加2个文本框,2个标签,1个按钮
名称分别为: text1, text2, label1, label2, command1

text1用来输入用户名, text2用来输入密码, 密码为123456,连续错5次退出,

代码如下:

Dim inputnum%

Private Sub Command1_Click()
'只检验密码
If Text2 = "123456" Then
MsgBox "输入正确,此处添加其它代码可以正常运行程序了"
Else
inputnum = inputnum + 1
If inputnum = 5 Then
MsgBox "你的密码已经连续输入错误5次,程序将退出!!"
End
Else
MsgBox "你的密码已经连续输入错误" & inputnum & "次,请重新输入!!"
End If
End If
End Sub

Private Sub Form_Load()
Label1.Caption = "用户名:"
Label2.Caption = "密 码:"
Text1 = ""
Text2 = ""
Command1.Caption = "登录"
inputnum = 0
Me.Show
Text1.SetFocus
End Sub

简单的：
首先 建立2个文本框和2个标签 1个命令按纽

按纽的单击代码：
Private Sub Command1_Click()
If Text1.Text = "123" Then
If Text2.Text =