Re: [VB6 ] 請問如何使用不需確認的msgbox

看板Programming作者tommy.時間15年前 (2010/01/28 19:01)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串2/2 (看更多)

※ 引述《comduffer.bbs@ptt.cc》之銘言： > ※ [本文轉錄自 Visual_Basic 看板] > 作者: comduffer () 看板: Visual_Basic > 標題: [VB6 ] 請問如何使用不需確認的msgbox > 時間: Sat Jan 2 14:57:09 2010 > 因為要寫的程式跑的數目過大 > 無法確定何時會當機 > 所以在中途都加上msgbox來確定進度 > 可是msgbox需要手動確定才能繼續執行 > 有沒有辦法顯示出訊息並保留在螢幕上 > 不會消失直到程式結束原則: 用另一個FORM當輸出. 並且保持此訊息FORM在前景. 工作模組結束後, 再關掉(Unload)這個訊息FORM. 工作模組可以使用 me.enabled = FALSE 關掉自己的回應. 用戶不可能再按到它. 流程如下: 主工作模組(module 或 form. 底下以form為例.) 工作啟動段: me.enabled=FALSE '關掉自己. module類型不須此行. outMsgForm.show '顯示訊息form ..啟動工作工作中進度: 1. outMsgForm.cls '清空舊訊息. outMsgForm.print 進度文字 '顯示新訊息. 用Form底版當輸出區. 或 2. outMsgForm.label1.caption = 進度文字 '顯示新訊息. 用Label當輸出區. 工作結束段: me.enabled=TRUE '打開自己. module類型不須此行. unload outMsgForm'關掉訊息form 訊息form: 無其它功能碼. 注意! 如果需要用戶可以中斷, 需要另加中斷鈕. 控制模式如下: 工作Form 訊息Form ->啟動訊息Form <-用戶中斷 ->關掉訊息Form 當成功結束或用戶中斷. 訊息Form的中斷碼. Private Sub Command1_Click() workform.myBreakSub '在工作form中加 Public Sub myBreakSub /End Sub End Sub 大致的流程如此. 意義上就是利用自訂的FORM來當msgbox. 不必等用戶回應. vb的msgbox其實也只是一個form. 只是在設計上鎖住, 需要用戶回應而已. 進階的控制要注意多工特性. 上面的 workform.myBreakSub呼叫可能不是原來的工作form. 某些時候會是另一個行程. 所以必要時將工作Form物件指明出來, 傳給訊息form: 1. 工作Form: (a) 將 outMsgForm.show 改成: outMsgForm.StartMe me ' 訊息Form增加一個開放的界面StartMe(). ' 並把自己當成參數傳給訊息Form. 以便能 ' 呼叫回來. (b) 增加一個中斷界面, 副程序 myBreakSub() 注意! Sub myBreakSub() 一定要加Public開放外界使用. 另外, module類型的主工作程式碼無法傳me. 也不需要傳. 直接呼叫副程序 myBreakSub 即可, 不須要物件. Public Sub myBreakSub '中斷動作. timer1.interval = 1 '1ms. (立刻執行) timer1.enabled = TRUE '執行. '注意, 一定要用時鐘來間接啟動中斷程序. 先讓訊息form完成呼叫動作. '否則: 訊息form->呼叫工作form->中斷工作->unload訊息form ' |.................................^訊息form呼叫動作未結束. ' 無法正確關掉訊息form. End Sub 2. 在訊息form中加 Dim WorkHost as Object '模組層次全域變數 Public Sub StartMe (HostVar as FORM) set WorkHost = HostVar '在啟動前先將啟動者記下來, 以便傳訊息回去. me.show End Sub 'Command1_Click改成 Sub Command1_Click() WorkHost.myBreakSub '這樣就不會找錯人. 因為用的是啟動者傳來的ꘊ '自己(物件參考). '注意. 不要自己加 unload me. 讓工作Form來幫你關. End Sub Sub Form_QueryUnload.... '加碼 set WorkHost = Nothing '取消啟動者的物件參考. End Sub -- ◤ ◣ ─ 楓橋藝文站正式開張！─˙─˙─▍ 楓橋驛站˙ 竟然不是 ‵ ◣︹▉ 　　　　　　　　　　 ▋ │▉▄▅▆ 紅蘿蔔！▄▅▇ ; 快來尋找你愛的作家。 ▃▆◤ ／＼ ◢ ◥ ◣▃▅ 　◢為你嘔心瀝血的作品找個窩。 ◣ ◣ ◢＝＝＝ ◆ ◥ 文學版＋美工板，強烈邀請您。 ◣▁▂ ▆ ◢ ◣ ●.● tommy從61.229.169.25 ◢◢ ◥