在 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 |
可选。 用于标识用于为对话框提供上下文相关帮助的帮助文件的字符串表达式。 如果提供,context则helpfile还必须提供。 |
context |
可选。 数值表达式,即帮助作者分配给相应帮助主题的帮助上下文编号。 如果提供,helpfile则context还必须提供。 |
设置
参数设置为 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 的第一组值描述对话框中显示的按钮数量和类型。 第二组 (16、 、 3248) 64 描述图标样式。 第三组 (0, ,) 512 确定256哪个按钮是默认按钮。 第四组 (0, 4096) 确定消息框的模态。 当您将数字相加以创建参数的 buttons 最终值时,请仅使用每组中的一个数字。
注意
这些常量由 Visual Basic for Applications 指定。 因此,可以在代码中的任何位置使用名称,而不是实际值。
返回值
| 常数 | 值 | 说明 |
|---|---|---|
vbOK |
1 |
“确定” |
vbCancel |
2 |
“取消” |
vbAbort |
3 |
中止 |
vbRetry |
4 |
重试 |
vbIgnore |
5 |
忽略 |
vbYes |
6 |
是 |
vbNo |
7 |
不支持 |
备注
同时提供 和 context 时helpfile,用户可以按 F1(在 Windows 中)或按“帮助”(在 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