Question

vb三次输错密码则退出程序

Private Sub Form_Load()
Text1.Text = ""
Text1.MaxLength = 8
Text1.PasswordChar = "*"
Label2.Caption = ""
Label1.Alignment = 2

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text1.Text = "12345678" Then
Label2.Caption = "欢迎光临!"
Else
Label2.Caption = "密码不符,请重新输入!"
Text1.Text = ""
End If
End If
End Sub

在我现在的基础上,再更改成.三次输入错误密码则在label2.caption显示非法用户,请退出程序.
并退出程序

Answer 1

Hi me
I can do it for you.

Dim passtime as integer
Private Sub Form_Load()
Text1.Text = ""
Text1.MaxLength = 8
Text1.PasswordChar = "*"
Label2.Caption = ""
Label1.Alignment = 2
passtime=0
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
passtime=passtime+1
'----无论密码对不对只要回车都增加一个次数
if passtime>3 then
label2.caption="显示非法用户,请退出程序."
exit sub
unload me
end
end if
'--这一段就是判断密码次数的
If Text1.Text = "12345678" Then
Label2.Caption = "欢迎光临!"
Else
Label2.Caption = "密码不符,请重新输入!"
Text1.Text = ""
End If
End If
End Sub