UC知道VB输入密码次数控制
来源：百度知道 编辑：UC知道 时间：2024/05/19 19:07:01
具体要求是:
按确认按钮后，若输入等于“ABCD”，调用主窗体FrmMail,否则清空文本框待重新输入；若第三次输入错误，则结束程序.
还有个问题：怎样把密码显示的效果改成****
以下的编程希望指正：：貌似离要求很远额。。达不到循环控制的效果额！！
Private Sub CmdOk_Click()
Dim a%
For a = 1 To 3
If TxtPassword.Text = "ABCD" Then
（调用名为FrmMail的窗体？？？怎么写？？）
Else
If a <> 3 Then
TxtPassword.Text = " "
MsgBox "重新输入密码"
Else
Exit Sub
End If
End If
Next a
End Sub
希望好心的大侠能留下QQ或MSN的号。。以后有问题多多指教。感激不尽！哈哈！
按确认按钮后，若输入等于“ABCD”，调用主窗体FrmMail,否则清空文本框待重新输入；若第三次输入错误，则结束程序.
还有个问题：怎样把密码显示的效果改成****
以下的编程希望指正：：貌似离要求很远额。。达不到循环控制的效果额！！
Private Sub CmdOk_Click()
Dim a%
For a = 1 To 3
If TxtPassword.Text = "ABCD" Then
（调用名为FrmMail的窗体？？？怎么写？？）
Else
If a <> 3 Then
TxtPassword.Text = " "
MsgBox "重新输入密码"
Else
Exit Sub
End If
End If
Next a
End Sub
希望好心的大侠能留下QQ或MSN的号。。以后有问题多多指教。感激不尽！哈哈！
Private Sub CmdOk_Click()
Static a As Integer
If TxtPassword.Text = "" Then
MsgBox "请输入密码"
TxtPassword.SetFocus
Exit Sub
End If
a = a + 1
If TxtPassword.Text = "ABCD" Then
frmMail.Show
ElseIf a = 3 Then
MsgBox "错误次数过多，要退出了！"
End
Else
TxtPassword.Text = ""
MsgBox "错了" & a & "次了,重新输入密码"
TxtPassword.SetFocus
End If
End Sub
Private Sub Form_Activate()
TxtPassword.SetFocus
TxtPassword.PasswordChar = "*"
TxtPassword.SelLength = 5
End Sub
工程为多窗体,可省略 load 语句.
上面的答复都要输入错四次才关闭.
Private Sub CmdOk_Click()
static a
If TxtPassword.Text = "ABCD" Then
'（调用名为FrmMail的窗体？？？怎么写？？）
load frmmail
frmmail.show
Else
if a = 3 then "错误次数过多，退出！" : End
a = a +1
TxtPassword.Text