VB MSgbox 定时关闭

来源：百度知道 编辑：UC知道 时间：2024/05/15 18:13:54
如何在：MSgbox 弹出的对方框的右下角显示倒计时如：10秒后自动关闭MSgbox对话框那就在右下角以10开始倒计时，一但倒计时到0时系统自动关闭MSgbox对话框！
不好意思，分有点少，我所有的财产就8分了，呵呵

一切皆有可能。李宁

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

精于心，简于形。Philips

谁说不可以啊,有万能的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