VB中登录设计？？

来源：百度知道 编辑：UC知道 时间：2024/05/26 07:30:58
两个窗体form1和form2,form2中有个text1（输入密码显示为“*”），一个登录按钮（单击相当按enter键）和一个取消按钮（单击相当按esc键）。form1无最大化最小化和关闭
如果在text1输入密码“123”，则弹出窗体form1,显示“登陆成功”，按form1上的“退出”按钮可关闭form1;如果输入的密码不是“123”，则弹出form1显示“密码错误”，且连续三次输入错误，则form2中的“登陆”按钮就会被隐藏，请高手帮忙做一下？？？

提议一下:用Form来提示,还不如直接用Msgbox提示框来得简单方便.
如果不需要最大/小化和关闭,只要在窗体的属性页(点击窗体后,按F4键)将ControlBox设为False就行了.
下面是单一窗体的示例,如果你需要两个窗体自己改一下吧.
Option Explicit
Dim ErrNum%

Private Sub Command1_Click()
If Text1.Text = "123" Then MsgBox "登陆成功!", vbCritical, "提示" '显示登陆成功提示
Unload Me '关闭登陆窗口
Else
ErrNum = ErrNum + 1 '错误次数累加
MsgBox "密码错误!", vbCritical, "提示" '显示密码错误提示
If ErrNum = 3 Then Command1.Visible = False '如果错误3次则登陆的按钮(command1)隐藏
End If
End Sub

Private Sub Form_Load()
Command1.Default = True '设置Command1为Enter默认
Command1.Cancel = True '设置Command1为Esc默认
End Sub