1秒后自动关闭msgbox消息框示例

时　间:2012-12-22 08:32:38
作　者:风行   ID：16058  城市：江阴
摘　要:这样设计的目的是少了一步每次点确定的麻烦操作。
正　文:

点击下载附件

'1秒后自动关闭msgbox 1000 1秒可自行设置
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 保存_Click()
MessageBoxTimeout Me.hwnd, "保存成功", "Tips", vbInformation, 0, 1000
End Sub

演   示: