※ 引述《haibruce (化悲愤为食量)》之铭言：
: 我想用一个command按钮可以当作关闭回圈的开关
: 但是不知如何写开关
: 按下去打开回圈
: 按第二次关闭回圈
: 第三次打开
: 我有写出两个command的程式，但是这样显的累赘
: 一个开回圈，一个关闭回圈
: 我使用的是do loop回圈
: 请各位指教
dim bStop as boolean
private sub command1_click()
bStop=not bStop
if not bStop then
call yourSub
end if
end sub
private sub yourSub()
do until bStop
.........
..........
DoEvents '<---这个是重点
Loop
end sub
※ 编辑: colawei 来自: 219.80.137.103 (03/09 21:26)
1F：→ haibruce:真的可以，太神奇了，杰克 03/10 00:57
2F：推 haibruce:要按两次才会开始，怎麽让他第一次就打开 03/10 11:33
3F：→ colawei:程式启动时,设bStop=true 03/10 11:37
4F：推 haibruce:在内部宣告会关不起来，在外部不能宣告 03/10 11:53
5F：→ colawei:那是你写法的问题,不然就宣告成Public 03/10 12:19
6F：→ colawei:起始值写在From_Load() 03/10 12:23
7F：推 haibruce:了解，谢谢指教 03/10 12:54