Question

VB如何实现MsgBox自动关闭

VB6如何让MsgBox自动关闭？

Answer 1

用一些自动点鼠标的API可以实现，不过这样体现不出来咱的水平，我的建议是：自己做个Form，要和Msgbox很像，但是多一个Timer控件，时间到就关闭。

Answer 2

第一种方式：
用API就可以实现。
Private Declare Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long, ByVal wlange As Long, ByVal dwTimeout As Long) As Long

Private Sub Command1_Click()
MessageBoxTimeout Me.hwnd, "三秒后将关闭.......", "msgbox", vbInformation, 0, 3000
End Sub
第二种方式：
Private Sub Command1_Click()
CreateObject("Wscript.Shell").Popup "三秒后将关闭.....­", 3, "MsgBox", vbInformation
End Sub

Answer 3

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