如何制作设置VB密码控件

1. 应用程序的运行窗口及其功能说明如下：程序事先设定密码为”abc”，要求用户在文本框中输入密码，然后单击“确定”命令按钮，程序将核对用户输入的密码与事先设定的密码是否一致。如果一致，则通过MsgBox语句弹出消息框提示“密码正确，欢迎使用本系统！”；否则，检查登录次数，若登录次数超过了三次，弹出消息框提示“密码不正确，谢绝使用！”，登录次数没有超过三次，则弹出消息“密码不正确，您还有M次机会，请重新登录！”。（每次登录有最多有三次机会输入密码）并清空文本框中内容，且将光标定位到文本框中。当单击“退出”命令按钮时，退出应用程序。

OK为“确定”按钮

PSW为密码文本框

刚它里边的代码如下：

Private Sub OK_Click()

dim cc as integer

cc=0

if PSW.text<>"abc" then

cc=cc+1

If cc >= 3 Then

MsgBox "密码不正确，您已经三次尝试进入本系统，均不成功，系统将自动关闭!", vbOKOnly

+ vbCritical, "警告"

Unload Me

end if

else

MsgBox "密码正确，欢迎使用本系统!"

end if

Unload Me

end sub

应该是这样`！（呵`！我是初学者~！）

上面的应该是错了的。

Dim icount As Integer '用于记录次数
Private Sub Command1_Click()'确定按钮
Dim psw As String '记录密码
psw = "abc" '密码为abc
icount = icount + 1
If Text1.Text = psw Then
MsgBox "密码正确，欢迎使用本系统！", vbOKOnly
Else
If icount < 3 Or icount = 3 Then
MsgBox "密码不正确，您还有" & 3 - icount & "次机会，请重新登录!"
Text1.SetFocus '获得焦点