MsgBox 函数

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

语法

MsgBox 提示 [、 按钮] [、 标题] [帮助文件] [、 上下文] )

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

参数

描述

提示

必填。字符串表达式,显示为对话框中的邮件。提示的最大长度为大约 1024年字符,具体取决于使用的字符的宽度。如果提示包含多个线条,您可以单独的行,使用回车符 (Chr(13)),一个换行符 (Chr(10)),或回车-换行的字符组合 (Chr(13) & Chr(10)) 之间的每一行。

按钮

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

标题

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

帮助文件

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

上下文

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


设置

按钮 参数设置为︰

常量

说明

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

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


提示: 在 Access 2010 中,表达式生成器具有 IntelliSense,以便您可以查看您的表达式需要哪些参数。

第一组值 (0-5) 介绍的数量和类型对话框; 中显示的按钮第二组 16、 32、 48 (64) 描述图标样式;第三个组 (0、 256、 512) 确定哪个按钮是默认值;和第四个组 (0,4096) 确定消息框中的样式等。当添加数字以创建按钮参数的最后一个值,使用每个组只有一个数字。

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

返回值

常量

说明

vbOK

1

还行

vbCancel

2

取消

vbAbort

3

中止

vbRetry

4

重试

vbIgnore

5

忽略

vbYes

6

vbNo

7


注解

时提供帮助文件上下文,用户可以按 F1 (Windows) 或帮助 (Macintosh) 以查看对应于上下文的帮助主题。有些宿主应用程序,例如,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

注释: 

  • 机器翻译免责声明:本文是由无人工介入的计算机系统翻译的。Microsoft 提供机器翻译是为了帮助非英语国家/地区用户方便阅读有关 Microsoft 产品、服务和技术的内容。由于机器翻译的原因,本文可能包含词汇、语法或文法方面的错误。

  • 请在 此处 中查找本文的英文版本以便参考。你和 Microsoft 社区的其他成员可以使用 Community Translation Framework (CTF) 来改进本文。只需将鼠标悬停在文章中的句子上,然后在 CTF 小组件中单击“IMPROVE TRANSLATION”即可。 单击此处了解有关 CTF 的详细信息。 使用 CTF 即表示你同意服务条款

扩展你的技能
了解培训
抢先获得新功能
加入 Office 预览体验计划

此信息是否有帮助?

谢谢您的反馈!

谢谢你的反馈! 可能需要转接到 Office 支持专员。

×