Excel VBA自动关闭消息框实现方法

Excel VBA自动关闭消息框源代码

经常遇到需要自动关闭消息框、对话框、窗体等这样的问题吧？我们今天就要解决这样的问题。

一、利用脚本语言CreateObject("WScript.Shell").Popup可以创建消息框，但是在VBA中却不能自动关闭。

二、利用Timer控件，可以在VB中可以自动关闭消息框、对话框、窗体等（消息框、对话框也要通过窗体的Timer控件）。但VBA中不支持Timer控件，显然不行。

三、VBA中的OnTime方法可以安排一个过程在将来的特定时间运行（既可以是具体指定的某个时间，也可以是指定的一段时间之后）。但OnTime在挂起状态时不运行过程（如VBA中帮助说的：例如，LatestTime 参数设为 EarliestTime + 30，当时间到了 EarliestTime 时，如果由于其他程序处于运行状态 Microsoft Excel 不处于“就绪”、“复制”、“剪切”或“查找”模式，则 Microsoft Excel 将等待 30 秒让第一个过程先结束运行。如果 30 秒内 Microsoft Excel 不能回到“就绪”模式，则不运行此过程。如果省略该参数，Microsoft Excel 将一直等待到可以运行该过程为止。）。而MsgBox、InputBox模式对话框，运行时都是挂起状态。OnTime显然不行。

四、比较好的方法是利用API函数SetTimer和KillTimer 实现时间的控制，SendMessage发送消息。

下面的例子演示了MsgBox和API函数MessageBox的产生的消息框的自动关闭，对于对话框、窗体等按照此原理都可实现自动的关闭。

看完记得回复。回复量少说明对大家不重要！那只有再发此类技术含量较高的文章就不公开了，只让好友看。

' ***********************************************************
'
' 模块名            basAutoColseMsgBox
' 创建时间          2007-07-26 10:40
' 作者              刘贺男 (kxyk2000@163.com)
' 目的
'                   自动关闭消息框
'
'
' 版权
'                   《Excel VBA发现之旅―Excel VBA编程思想与项目开发》撰写小组'
' 系统
'                   《Excel VBA发现之旅―Excel VBA编程思想与项目开发》
'

' 子过程列表
'
'       (Public)
'
'           AutoCloseMsgboxDemo             自动关闭Msgbox消息框的演示
'           AutoCloseAPIMessageBoxDemo      自动关闭APIMessageBox消息框的演示
'
'       (Private)
'
'           SendMessgeToMessageBox       发送消息至消息框
'
'

Option Explicit
' 设置自动停止的秒数
Const lng_Auto_Close_Second As Long = 5

' 数值API函数需要的常量
Const MB_DEFBUTTON1 = &H0&
Const MB_DEFBUTTON2 = &H100&
Const MB_DEFBUTTON3 = &H200&
Const MB_ICONASTERISK = &H40&
Const MB_ICONEXCLAMATION = &H30&
Const MB_ICONHAND = &H10&
Const MB_ICONINFORMATION = MB_ICONASTERISK
Const MB_ICONQUESTION = &H20&
Const MB_ICONSTOP = MB_ICONHAND
Const MB_OK = &H0&
Const MB_OKCANCEL = &H1&
Const MB_YESNO = &H4&