Re: [VB6 ] timer問題
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
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
20
79