MsgBox 函数

应用对象
Microsoft 365 专属 Access Access 2024 Access 2021 Access 2019 Access 2016

在 Access 桌面数据库中,函数 MsgBox 在对话框中显示一条消息,等待用户选择一个按钮,并返回一个 Integer 指示用户选择哪个按钮的 。

语法

MsgBox(prompt[, buttons][, title][, helpfile][, context])

函数 MsgBox 语法具有以下参数:

参数 说明
prompt 必需。 在对话框中显示为消息的字符串表达式。 的最大长度 prompt 约为 1024 个字符,具体取决于所用字符的宽度。 如果 prompt 具有多行,则可以通过使用回车符 () 、换行符 (Chr(13)Chr(10)) 或每行之间的回车换行符组合 (Chr(13) & Chr(10)) 来分隔这些行。
buttons 可选。 数值表达式,该值是值的总和,这些值指定要显示的按钮的数量和类型、要使用的图标样式、默认按钮的标识以及消息框的形式。 如果省略,则 的 buttons 默认值为 0
title 可选。 显示在对话框标题栏中的字符串表达式。 如果省略 title,则应用程序名称将显示在标题栏中。
helpfile 可选。 标识要用于为对话框提供上下文相关帮助的帮助文件的字符串表达式。 如果 helpfile 提供了 , context 还必须提供 。
context 可选。 由帮助作者分配给相应帮助主题的帮助上下文编号的数值表达式。 如果 context 提供了 , helpfile 还必须提供 。

设置

参数 buttons 设置包括:

常数 说明
vbOKOnly 0 仅显示 “确定 ”。
vbOKCancel 1 显示 “确定”“取消”。
vbAbortRetryIgnore 2 显示 “中止”、“ 重试”“忽略”。
vbYesNoCancel 3 显示 “是”、“ ”和 “取消”。
vbYesNo 4 显示 “是 ”和 “否”。
vbRetryCancel 5 显示 “重试”“取消”。
vbCritical 16 显示 “关键消息” 图标。
vbQuestion 32 显示 “警告查询 ”图标。
vbExclamation 48 显示 “警告消息” 图标。
vbInformation 64 显示 “信息消息” 图标。
vbDefaultButton1 0 将第一个按钮设为默认值。
vbDefaultButton2 256 将第二个按钮设为默认值。
vbDefaultButton3 512 将第三个按钮设为默认值。
vbDefaultButton4 768 将第四个按钮设为默认值。
vbApplicationModal 0 应用程序模式。 用户必须先响应消息框,然后才能在当前应用程序中继续工作。
vbSystemModal 4096 系统模式。 在用户响应消息框之前,所有应用程序都会挂起。
vbMsgBoxHelpButton 16384 向消息框添加 “帮助 ”按钮。
VbMsgBoxSetForeground 65536 将消息框窗口指定为前台窗口。
vbMsgBoxRight 524288 右对齐文本。
vbMsgBoxRtlReading 1048576 使文本在希伯来语和阿拉伯语系统上以从右到左阅读显示。

通过) (05 的第一组值描述了对话框中显示的按钮的数量和类型。 第二组 (16324864) 描述图标样式。 第三组 (0256512) 确定哪个按钮是默认按钮。 第四组 (04096) 确定消息框的形式。 添加数字以创建 buttons 参数的最终值时,仅使用每个组中的一个数字。

注意

这些常量由 Visual Basic for Applications 指定。 因此,可以在代码中的任何位置使用名称,而不是实际值。

返回值

常数 说明
vbOK 1 确定
vbCancel 2 取消
vbAbort 3 中止
vbRetry 4 重试
vbIgnore 5 忽略
vbYes 6
vbNo 7 不支持

备注

helpfile同时提供 和 context 后,用户可以在 Windows 中按 F1 或在 macOS 中按“帮助”以查看与 匹配的context帮助主题。 某些主机应用程序(如 Microsoft Excel)也会自动向对话框添加 “帮助 ”按钮。

如果对话框显示“ 取消” 按钮,则按 Esc 与选择 “取消”具有相同的效果。 如果对话框包含 “帮助 ”按钮,则会为该对话框提供上下文相关帮助。 但是,在用户选择其他按钮之一之前,不会返回任何值。

注意

若要指定超过第一个命名参数,必须在表达式中使用 MsgBox 。 若要省略某些位置参数,必须包含相应的逗号分隔符。

示例

注意

以下示例演示如何在 Visual Basic for Applications (VBA) 模块中使用此函数。

此示例使用 MsgBox 函数在包含 “是 ”和“ ”按钮的对话框中显示严重错误消息。 “ ”按钮指定为默认响应。 函数返回 MsgBox 的值取决于用户选择的按钮。 此示例假定是 DEMO.HLP 一个帮助文件,其中包含一个帮助上下文号等于 1000的主题。

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "MsgBox Demonstration"
Help = "DEMO.HLP"
Ctxt = 1000
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then    ' User chose Yes.
    MyString = "Yes"    ' Perform some action.
Else    ' User chose No.
    MyString = "No"    ' Perform some action.
End If