※ 引述《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