※ 引述《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)
→ haibruce:真的可以，太神奇了，傑克
推 haibruce:要按兩次才會開始，怎麼讓他第一次就打開
→ colawei:程式啟動時,設bStop=true
推 haibruce:在內部宣告會關不起來，在外部不能宣告
→ colawei:那是你寫法的問題,不然就宣告成Public
→ colawei:起始值寫在From_Load()
推 haibruce:瞭解，謝謝指教