PTT數位生活區 / Visual_Basic

Re: [VB6 ] 請問如何設定強制取消執行？

看板Visual_Basic作者 (mingtsay〃小喵)時間12年前 (2013/05/22 09:31), 編輯推噓1(1推 0噓 2→)
留言3則, 2人參與, 最新討論串2/2 (看更多)
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 ︾ mt@moztw.org ◤ ◥◢ ◤◤ wnqui ∥★ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 114.34.74.8
推
05/22 10:07, , 1F
感謝，doevents原來這樣用的。
05/22 10:07, 1F
→
05/22 10:32, , 2F
這樣只能在各個sub之間取消。你若希望任何時間都可以取
05/22 10:32, 2F
→
05/22 10:33, , 3F
消，所有的副程式裡都要有doevents並且檢查取消變數。
05/22 10:33, 3F
‣ 更多 a60301 的文章
文章代碼(AID): #1Hd1_cEB (Visual_Basic)
Visual_Basic 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 a60301 的文章
文章代碼(AID): #1Hd1_cEB (Visual_Basic)