UC知道我想用VB做个软件？？
来源：百度知道 编辑：UC知道 时间：2024/05/23 02:04:46
我想用VB做个软件有密码柜的在输入密码后点确定怎么才能过3秒才能出现密码错误？？？
Private Sub Command1_Click()
If Text1.Text <> "123" Then '密码不对时
Dim tm
tm = Timer
Do While timer-tm < 3 '停3秒
DoEvents
Loop
MsgBox "密码错误！" '显示错误
End If
End Sub
可以用Timer，默认的时间间隔是3000，默认无效，按下按钮时将Timer激活，在Timer里面写登录事件，最后一句是禁用Timer
加个Time 控件 就行了