Re: [VB6 ] timer問題

看板Visual_Basic作者 (矇面加菲獅)時間19年前 (2006/09/15 12:54), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串4/4 (看更多)
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
文章代碼(AID): #152Z8GR9 (Visual_Basic)
文章代碼(AID): #152Z8GR9 (Visual_Basic)