通过

自动关闭一个消息框

本示例说明如何在指定的时间段后自动关闭消息框。 本示例将显示一个消息框，然后在 10 秒后自动将其关闭。

示例代码提供者： Tom Urtis，Atlas Programming Management

Sub MessageBoxTimer()
    Dim AckTime As Integer, InfoBox As Object
    Set InfoBox = CreateObject("WScript.Shell")
    'Set the message box to close after 10 seconds
    AckTime = 10
    Select Case InfoBox.Popup("Click OK (this window closes automatically after 10 seconds).", _
    AckTime, "This is your Message Box", 0)
        Case 1, -1
            Exit Sub
    End Select
End Sub

关于参与者

MVP Tom Urtis 是 Atlas Programming Management 的创始人，这是一家位于硅谷的全服务型 Microsoft Office 和 Excel 业务解决方案公司。 Tom 在业务管理和 Microsoft Office 应用程序开发方面拥有 25 年以上的经验，与他人合著过“Holy Macro! It's 2,500 Excel VBA Examples”（Holy Macro! 2,500 个 Excel VBA 示例）。

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。