高手们帮小弟我看看这段小代码
高手们帮我看看这段小代码
这段代码作用是单击cmd后，弹出消息框，如果点击“确定”，则什么都不做，点击“取消”，则退出程序，如果什么都不点，那么5秒后，则自动退出程序，这段代码验证后只有在点击了消息框中的“确定”后，timer才开始计时，这是为什么呢？
------解决方案--------------------
是要排队的。
1.对话框在先，没有处理
2.timer1_timer在后
1.处理完再处理2
也就是说对话框没处理，就算你等一万年，那个TIMER时间也不会发生的。
- VB code
Dim counter As Integer
Private Sub form_load()
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub
Private Sub timer1_timer()
counter = counter + 1
If counter > 5 Then End
End Sub
Private Sub cmd_click()
Timer1.Enabled = True
a = MsgBox("选择", vbOK, "提示")
If a = vbOK Then
ElseIf a = vbCancel Then
End
End If
End Sub
这段代码作用是单击cmd后，弹出消息框，如果点击“确定”，则什么都不做，点击“取消”，则退出程序，如果什么都不点，那么5秒后，则自动退出程序，这段代码验证后只有在点击了消息框中的“确定”后，timer才开始计时，这是为什么呢？
------解决方案--------------------
是要排队的。
1.对话框在先，没有处理
2.timer1_timer在后
1.处理完再处理2
也就是说对话框没处理，就算你等一万年，那个TIMER时间也不会发生的。