看板Programming
標 題Re: [VB6 ] 請問如何使用不需確認的msgbox
發信站楓橋驛站 (Thu Jan 28 18:33:37 2010)
轉信站ptt!news.ntu!ctu-gate!ctu-peer!news.nctu!news.csie.ncyu!news.cs.nthu!M
※ 引述《[email protected]》之銘言：
> ※ [本文轉錄自 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 ◢◢ ◥