作者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