VB如何弹出提示框

来源：百度知道 编辑：UC知道 时间：2024/05/09 20:46:17
我想实现的效果是:当点击Command1后,过三秒弹出一对话框,例如说:您的密码错误之类的...效果很简单,请各位老大把代码贴出来哈

Private Sub Command1_Click()
Timer1.Enabled = True 'timer控件响应事件
Timer1.Interval = 1000'事件间隔1秒

End Sub

Private Sub Form_Load()
Timer1.Enabled = False'不响应
End Sub

Private Sub Timer1_Timer()
Static i As Integer '设置静态变量i
i = i + 1 'i值累加1
Me.Caption = i
If i = 3 Then MsgBox "提示": i = 0 '如果i=3 则弹出对话框:timer1.enabled=false
End Sub

抄ls的，改了下……

Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 3000

End Sub

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
MsgBox "提示"
Timer1.Enabled = False '都可以停止时钟
Timer1.Interval = 0 '都可以停止时钟
End Sub

Private Sub Command1_Click()
Timer1.Enabled = True'打开计时器
End Sub

Private Sub Form_Load()
Timer1.Enabled = False'关闭计时器
Timer1.Interval = 3000'计时器间隔3