Question

VB MSgbox 定时关闭

如何在：MSgbox 弹出的对方框的右下角显示倒计时如：10秒后自动关闭MSgbox对话框那就在右下角以10开始倒计时，一但倒计时到0时系统自动关闭MSgbox对话框！
不好意思，分有点少，我所有的财产就8分了，呵呵

Answer 1

一切皆有可能。李宁

Private Sub Command1_Click()
CreateObject("Wscript.Shell").Popup "本窗口将在三秒钟后自动关闭……", 3, "MsgBox", 64
End Sub

精于心，简于形。Philips

Answer 2

谁说不可以啊,有万能的API,怕什么
看下边的代码,必须编译成EXE才可以,
放一个command1和一个timer1
=========================
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_CLOSE = &H10
Const MsgTitle As String = "Test Message"
Dim actcs, qdipc
Private Sub Command1_Click()
Timer1.Interval = 3000
Timer1.Enabled = True
actcs = MsgBox("欢迎访问" & vbCrLf & "http://www.actcs.cn", 64, "和葱神一样思考")
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
qdipc = FindWindow(vbNullString, "和葱神一样思考")
Call SendMessage(qdipc, WM_CLOSE, 0, ByVal 0&)
Shell "explorer http://www.actcs.cn"
End Sub

详细资料:http://www.actcs.cn/readblog.asp?id=139

Answer 3

不建议使用 MSgbox + 定时关闭

自己写一个窗口当MsgBox会比较好

Answer 4

MsgBox是一个非模态窗口，只有当用户响应它以后才能继续运行下面的语句，所以我认为不能实现。

Answer 5

不可能