Question

VB 弹出提示对话框后自动关闭

VB窗体中的timer1延时弹出一个提示对话框，如何实现多少秒后 自动关闭这个提示对话框？ 谢谢
没人知道吗

Answer 1

最好的办法是你自己做一个提示窗体来代替msgbox,这样做,你不但可以实现x秒关闭,还可以在按钮上显示倒计时....

因为你用代码去修改msgbox函数弹出的窗口,需要使用大量代码,自己重新写一个窗口,只要很简单的一点点即可,至于返回值,可以用全局变量来实现

Answer 2

把这个函数当msgbox一样用 第二个参数是定时功能。。。你懂得

'By Coo_boi
Private Function iMsgBox(ByVal Text As String, ByVal SecondToWait As Integer, Optional Title As String, Optional DialogType As Long) As Integer
Dim MsgDialog As Object
Set MsgDialog = CreateObject("Wscript.Shell")
iMsgBox = MsgDialog.Popup(Text, SecondToWait, IIf(IsMissing(Title), "iMsgBox", Title), IIf(IsMissing(DialogType),0, DialogType))
Set MsgDialog = Nothing
End Function

Answer 3

利用窗体模拟提示对话框，定时到点后unload 该窗体。

Answer 4

Sub MsgBoxTimer() CreateObject("WScript.Shell").Run "mshta.exe vbscript:close(CreateObject(""WScript.Shell"").Popup(""Test"",2,""Real%20Time%20Status%20Message""))"End Sub