VFP 愛用者社區

[Ruey]

讓程式自動去回應MSGBOX的確認操作
( 作者: 不詳 )


*-- 文章標題：讓程式自動去回應MSGBOX的確認操作
*-- 程式說明：建立一個MESSAGEBOX對話方塊，當沒有用戶去回應時，自動在一定時間內回應回車事件
*-- 原作：Matt Weinbender SoftServ, Inc. 5/3/2000
*-- 由紅虎簡化該程式
*-- 使用： ?MsgBoxTmr("對話方塊資訊","對話方塊標題",按紐類型(參考messagebox()幫助),等待時間(單位:秒))
*-- 返回： 同messagebox()一樣
*-- 注意： 如果在 VFP5 中運行，需要 FoxTools.FLL
*-- 如果在 VFP6 中，就無需了。
*-----------------------------------------


FUNCTION MsgBoxTmr

*-- 接受參數，最多4個

LPARAMETERS lcMsgText, lcMsgTitle, lnButtons, lnWaitSecs


*-- 檢查傳遞的參數
*-- 等待時間必須大於等於0，如果等於0，為不等待

if type("lnWaitSecs") # "N"
lnWaitSecs = 0
else
if lnWaitSecs < 0
lnWaitSecs = 0
endif
endif

*-- 按紐類型為，0,1,1+16,2+32+256...等形式

if type("lnButtons") # "N"
lnButtons = 0
endif

*-- 標題為字元，默認用主視窗標題

if type("lcMsgTitle") # "C"
lcMsgTitle = _screen.caption
endif

*-- 資訊內容為字元

if type("lcMsgText") # "C"
lcMsgText = "無提示資訊"
endif


*-- 創建時鐘物件

do definetimer
oEnterWait = CreateObject('EnterTimeOut')
oEnterWait.Interval = (lnWaitSecs * 1000)
oEnterWait.Enabled = .T.


*-- 提示對話方塊

lnRetVal = MessageBox( lcMsgText, lnButtons, lcMsgTitle)

oEnterWait.Enabled = .F.
release all like oEnterWait

retu lnRetVal


*-- 定義時鐘物件

Proc definetimer
Define Class EnterTimeOut AS timer
Enabled = .F.
Interval = 20
Procedure timer
keyboard '{ENTER}' plain
Endproc
Enddefine
Endproc

[朱育興]

如果是 7.0 版以上的話，應該可以直接用 MESSAGEBOX() 就可達到目的，它比前版多了第 4 個參數 nTimeout