Re: [VB6 ] timer問題

[fumizuki (矇面加菲獅)]

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