作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] timer问题
时间Fri Sep 15 12:58:26 2006
Private StopTimer As Boolean
Private Sub Timer1_Timer()
Do While ...
...
If StopTimer Then StopTimer = False: Exit Sub
DoEvents
Loop
End Sub
Private Sub Command1_Click()
StopTimer = True
End Sub
按下按钮时会把变数 StopTimer 设为 True，
Timer 执行过程中检查为 True 时，自动结束程序。
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 60.248.175.60