哪儿有卖小口径子弹:VB 在密码登陆框中,当用户输入用户名错误的时候,怎么让用户重新输入用户名和限制他仅输入三次即退出运行

来源:百度文库 编辑:神马品牌网 时间:2024/05/01 07:53:32
Dim username As String
Private Sub Form_Load()
username = InputBox$("请输入你的用户名!", "身份验证框")
Dim usernames(3) As String '定义一个用户名数组
usernames(0) = "xiaoc"
usernames(1) = "xiaoq"
usernames(2) = "xiaol"
usernames(3) = "xiaoz"
Dim flag As Boolean '定义flag为逻辑型
Dim i As Integer
flag = False
For i = 0 To 3
If username = usernames(i) Then
flag = True
End If
Next i
If flag = False Then
MsgBox ("用户确认失败,退出系统!") '如果输入用户名 错误,退出系统
End
End If
End Sub

Private Sub Picture1_Paint()
Picture1.Print " you are welcome!" & username '在图片框中输出欢迎语句和用户名,注意,这个用户名要在通用中声明,不然用户名显示不出来的
End Sub

问题即是问题标题:在密码登陆框中,当用户输入用户名错误的时候,怎么让用户重新输入用户名和限制他仅输入三次即退出运行