在不暂停应用程序的情况下使用 MsgBox

Question

我需要向用户显示一条消息。当我使用 MsgBox 执行此操作时，程序将停止，直到用户单击该框为止。我想知道是否有办法在不暂停程序的情况下打开MsgBox。

Answer 1

听起来您并不期望来自 MsgBox 的任何用户输入。在这种情况下，根据您的应用程序，StatusBar 可能是足够的替代品。

在 Excel 中，这很简单：

Application.StatusBar = "Please be patient..."
Application.StatusBar = iDone & " of " & iTotal & " items done."

完成后清除状态栏：

Application.StatusBar = False

在 Access 中，语法稍微复杂一些：

Temp = SysCmd(acSysCmdSetStatus, "Hey, look at me!") ' Puts out your message
Temp = SysCmd(acSysCmdClearStatus) ' Clears StatusBar

Answer 2

据我所知，答案是你不能。解决方法是使用一个充当对话框的自定义表单。

请参阅http://www.mvps.org/access/forms/frm0046.htm（不完全是您的问题，但适用）。

Answer 3

MsgBox 是模态的（意味着窗口出现并停止执行代码，直到它被清除）。正如其他发帖者/评论者所提到的 - 您的替代方案是编写您自己的非模式弹出窗口版本。除非你真的需要这样，否则并不值得付出努力。

Answer 4

在 VB 编辑器中：选择“插入”菜单“用户窗体”。
在工具箱中选择文本框：在用户窗体中拖动一个矩形并在其中键入文本。
右键单击用户窗体并选择属性。
在 ShowModal 属性中：选择 False。
在 VBA 模块中，在要打开它的位置输入 UserForm1.Show，在要关闭它的位置输入 UserForm1.Hide。
UserForm1 是我的，当然请使用您创建的表单的适当名称。

Answer 5

相反，创建一个表单。我创建了一个小表单，其中只有一个文本框，上面写着“正在工作，请稍候”。当需要时，我通常在开始某些需要一些时间才能完成的操作之前以弹出窗口形式打开表单（docmd openform“表单名称”）。工作完成后，我关闭表单（docmd close acform“表单名称”）。这不会停止程序，但会向用户提供“消息”。

Answer 6

您可以使用 WScript 的 Popup 方法。以下是包括示例代码的完整详细信息： http:// /msdn.microsoft.com/en-us/library/x83z1d9f%28v=vs.85%29.aspx

Answer 7

我相信您首先需要评估是否真的需要弹出消息框并保持代码运行。

msgbox 功能（如前所述）是模态的，您无法“绕过”它。但是，您可以创建一个表单（类似于 msgbox），将此表单设置为“非模态”并调用代码来显示此表单。代码工作流程继续进行。经过测试并可在 Excel 中使用。

Answer 8

你可以用这个。它为我创建了一个 Outlook 对话框：

Dim myMessage as String  
Dim myDelay as Integer  
myMessage = "This message will self destruct in 8 seconds!"  
myDelay = 8  
Shell "msg /TIME:" & myDelay & " " & Environ("Username") & " " & myMessage