请教:MsgBox提示对话框问题

Question

MsgBox提示对话框问题:
请问可不可以出现如下情况:
   当出现提示框:不出现按钮的.
   这样就不用鼠标点击按钮.
   过一阵后,对话框就可以自动消失..不过可不可以用MsgBox实现.
 或者有没有其它实现的办法?
麻烦解答一下...

Answer 1

用窗体模拟
新建窗体Form2,设置BorderSytle＝3
放一个标签，写上你的提示信息
放一个Timer,设置Interval为5秒主窗体（Form1）代码：
Private Sub Command1_Click()
    Form2.Show vbModal
End SubForm2代码：
Private Sub Timer1_Timer()
    Unload Me
End Sub

Answer 2

可以，这要用到timer控件，然后把代码写到timer控件中。

Answer 3

如何设定 MsgBox 在若干时间之后若无回应则自动关闭？ 
 
使用系统的 MsgBox 再加一个 Timer 就可以控制了。'在窗体的声明区中加入以下的声明Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As LongPrivate Const WM_CLOSE = &H10
Private Const MsgTitle As String = "Test Message"'在窗体中加入一个 CommandButton 及一个 Timer 控制项，加入以下程序码：Private Sub Command1_Click()
Dim nRet As Long
Timer1.Interval = 3000
Timer1.Enabled = True
nRet = MsgBox("若您不回应的话，3 秒后此 MsgBox 会自动关闭", 64, MsgTitle)
Timer1.Enabled = False
End SubPrivate Sub Timer1_Timer()
Dim hWnd As Long
hWnd = FindWindow(vbNullString, MsgTitle)
Call SendMessage(hWnd, WM_CLOSE, 0, ByVal 0&)
End Sub注意：此方法的限制说明：1、当常数设定为 VbAbortRetryIgnore 或 VbYesNo 时，无效！
2、在 Design Time 时，无效，必须 Make EXE 之后才有效！

Answer 4

用二楼的方法实现比较好。做一个模拟对话框，加一个TIMER控件