Applies ToMicrosoft 365 专属 Access Access 2024 Access 2021 Access 2019 Access 2016

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

语法

MsgBox ( 提示 [, 按钮 ] [, title ] [helpfile ] [, context ] )

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

参数

说明

提示

必需。 在对话框中显示为消息的字符串表达式。 提示符的最大长度约为 1024 个字符,具体取决于所用字符的宽度。 如果 prompt 包含多行, 可以使用回车符 (Chr (13) ) 、 (Chr (10) ) 的换行符或回车符组合 (Chr (13) & Chr (10) ) 来分隔各行。

按钮

可选。 数值表达式 ,该值是值的总和,这些值指定要显示的按钮的数量和类型、要使用的图标样式、默认按钮的标识以及消息框的形式。 如果省略, 按钮的 默认值为 0。

标题

可选。 显示在对话框标题栏中的字符串表达式。 如果省略 标题,应用程序名称将放在标题栏中。

helpfile

可选。 标识要用于为对话框提供上下文相关帮助的帮助文件的字符串表达式。 如果提供了 helpfile ,还必须提供 上下文

context

可选。 由帮助作者分配给相应帮助主题的帮助上下文编号的数值表达式。 如果提供了 上下文 ,还必须提供 helpfile

设置

参数 设置的 按钮 包括:

常数

说明

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

指定文本在希伯来语和阿拉伯语系统上应显示为从右到左阅读

第一组值 (0-5) 描述对话框中显示的按钮的数量和类型;第二组 (16、32、48、64) 描述了图标样式:第三组 (0、256、512) 确定哪个按钮是默认按钮;第四组 (0, 4096) 确定消息框的形式。 添加数字为 buttons 参数创建最终值时,仅使用每个组中的一个数字。

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

返回值

常数

说明

vbOK

1

确定

vbCancel

2

取消

vbAbort

3

中止

vbRetry

4

重试

vbIgnore

5

忽略

vbYes

6

vbNo

7

备注

同时提供帮助文件和上下文后,用户可以按 F1 (Windows) 或 HELP (macOS) 查看与上下文对应的帮助主题。 某些主机应用程序(例如 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

需要更多帮助?

需要更多选项?

了解订阅权益、浏览培训课程、了解如何保护设备等。

社区可帮助你提出和回答问题、提供反馈,并听取经验丰富专家的意见。