高手们帮小弟我看看这段小代码

高手们帮我看看这段小代码

VB code

Dim counter As IntegerPrivate Sub form_load()Timer1.Interval = 1000Timer1.Enabled = FalseEnd SubPrivate Sub timer1_timer()counter = counter + 1If counter > 5 Then EndEnd SubPrivate Sub cmd_click()Timer1.Enabled = Truea = MsgBox("选择", vbOK, "提示")If a = vbOK ThenElseIf a = vbCancel ThenEndEnd IfEnd Sub

这段代码作用是单击cmd后，弹出消息框，如果点击“确定”，则什么都不做，点击“取消”，则退出程序，如果什么都不点，那么5秒后，则自动退出程序，这段代码验证后只有在点击了消息框中的“确定”后，timer才开始计时，这是为什么呢？

[解决办法]
是要排队的。
1.对话框在先，没有处理
2.timer1_timer在后

1.处理完再处理2
也就是说对话框没处理，就算你等一万年，那个TIMER时间也不会发生的。

查看更多 下一篇