作者a60301 (mingtsay〃小喵)
看板Visual_Basic
標題Re: [VB6 ] 請問如何設定強制取消執行？
時間Wed May 22 09:31:15 2013
Dim CancelClicked
As Boolean
Private Sub sub1()
'副程式1
Do '某迴圈
If CancelClicked
Then Exit Sub
Loop
End Sub
Private Sub sub2()
'副程式2
End Sub
Private Sub sub3()
'副程式3
End Sub
Private Sub ChangeMode_Click()
CancelClicked =
False
Call sub1
DoEvents
If CancelClicked
Then Exit Sub
Call sub2
DoEvents
If CancelClicked
Then Exit Sub
Call sub3
End Sub
Private Sub btnCancel_Click()
CancelClicked =
True
End Sub
※ 引述《chinagogoya (下棋逍遙遊)》之銘言：
: 我程式碼大致上這樣...
: 按了一個鈕，跑了一分多鐘，到達程式結束。
: 發現中途參數設定錯誤了，想要強制取消執行程式，不想讓他跑完一分多鐘
: 請問程式碼要如何編輯才行？
: EX:
: Private Sub ChangeMode_Click()
: 副程式1
: 副程式2
: 副程式3
: End Sub
: 我嘗試插入 doevents 去做，他還是要強制跑完。
: 我希望的就是副程式一跑完之後，假如要強制取消要怎麼寫？
: 當然副程式一還沒跑完就取消最好。
--
★∥ ○ ◢ 〞` ◣ ◥◣◢◣◢◣ ◢▏。 ○ ο ∣★
★｜ ° ◢ ╮ ██◤ █◤◥◤█ ∥ o ° ∥★
★∥ 。 ● ● ◤ ◥ █ █ ∥ ◢╱﹋◣ 。 ∣★
★∣ ◥ˍ ◤◤ ◢◤ ◢◢◤██◤ ◣ ◢╱ ● ︶ （ ∥★
★∥ （ ◢◤ ◤ing ∥say ◢███ ╰ ◤ ζ ） ∣★
★│ ） mt.rmstudio.tw ︾ [email protected] ◤ ◥◢ ◤◤ wnqui ∥★
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.34.74.8
1F：推 chinagogoya:感謝，doevents原來這樣用的。 05/22 10:07
2F：→ MOONRAKER:這樣只能在各個sub之間取消。你若希望任何時間都可以取 05/22 10:32
3F：→ MOONRAKER:消，所有的副程式裡都要有doevents並且檢查取消變數。 05/22 10:33