VB实现按下按钮在特定时间跳出对话框错误请重新输入呢？

来源：百度知道 编辑：UC知道 时间：2024/05/31 04:46:17
按下按钮等待个20秒就跳出对话框（错误请重新输入！）然后不安按钮就不出现。这个怎么实现。

添加 Timer1 控件

Timer1.Enabled = False
Timer1.Interval = 20000

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
MsgBox "错误请重新输入！", 0, "提示"
Timer1.Enabled = False
End Sub

用时钟控件interval属性设成20000.

Private Sub Timer1_Timer()
Timer1.Enabled = False
If MsgBox("错误请重新输入！", vbInformation + vbOKCancel) = vbOK Then
Timer1.Enabled = True
End If
End Sub