Dim errorcount As Integer
Private Sub Command1_Click()
If LCase(Txtuser.Text) = "abc" And txtpass.Text = "123" Then
Form2.Show
Unload Me
Else
errorcount = errorcount + 1
MsgBox "密码桐磨不正确，请重新输入"
Txtuser.SelStart = 0
Txtuser.SelLength = Len(Txtuser.Text)
Txtuser.SetFocus
End If
If errorcount = 3 Then
MsgBox "你已经输错3次局手斗，系统将自动退出"
End
End If
End Sub
我在书找了给薯脊你打印过来的，希望对你有帮忙~~
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024