作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] 跳出无穷回圈
时间Sun Oct 4 15:24:51 2009
※ 引述《sask (sask)》之铭言：
: 藉这个讨论串延伸问一个问题
: 我现在每隔一段时间就要从Com1上读取资料
: 但想写一个取消按钮 也就是按下去後就全部停止 跳出回圈
: 请问这个按钮要怎麽写呢 感谢~
模组开头宣告一个变数记录是否要停止程式的执行，回圈中检查这个变数
Private bStop As Boolean
Private Sub 读取资料()
Do
'此处是你读取资料的程式码
If bStop Then bStop = False: Exit Sub
'当变数值为True就离开(并重设变数)
DoEvents
'在回圈中必须要有这项，否则使用者无法按下停止按钮或者没反应
Loop
End Sub
Private Sub 按钮_Click()
bStop = True
'表示要停止回圈中的程式
End Sub
你也可以用Timer控制项，定时去执行读取资料的程式，
停止的写法一样，但是用Timer就不需要DoEvents
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.194.223.71
1F：推 mraaa:Timer也需要DoEvents...要不会跳不出去~~~ 10/04 15:47
2F：推 sask:感谢!! 10/04 17:47
3F：→ fumizuki:DoEvents是在Sub中会长时间执行用的 10/04 20:20
4F：→ fumizuki:如果不会长时间执行就不需要DoEvents 10/04 20:21