MsgBox 函数

时　间:2009-02-02 08:40:37
作　者:UMVsoft整理   ID：1445  城市：上海
摘　要:MsgBox 函数
正　文:

MsgBox 函数

描述

在对话框中显示消息，等待用户单击按钮，并返回一个值指示用户单击的按钮。

语法

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。在 16 位系统平台上不可用。
context	数值表达式，用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。如果已提供 context，则必须提供 helpfile。在 16 位系统平台上不可用。

设置

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	系统模式：在用户响应消息框前，所有应用程序都被挂起。

第一组值 (0 - 5) 用于描述对话框中显示的按钮类型与数目；第二组值 (16, 32, 48, 64) 用于描述图标的样式；第三组值 (0, 256, 512) 用于确定默认按钮；而第四组值 (0, 4096) 则决定消息框的样式。在将这些数字相加以生成 buttons 参数值时，只能从每组值中取用一个数字。

返回值

MsgBox 函数有以下返回值：

常数	值	按钮
vbOK	1	确定
vbCancel	2	取消
vbAbort	3	放弃
vbRetry	4	重试
vbIgnore	5	忽略
vbYes	6	是
vbNo	7	否

说明

如果同时提供了 helpfile 和 context，则用户可以按 F1 键以查看与上下文相对应的帮助主题。

如果对话框显示取消按钮，则按 ESC 键与单击取消的效果相同。如果对话框包含帮助按钮，则有为对话框提供的上下文相关帮助。但是在单击其他按钮之前，不会返回任何值。

例子

If IsNull(Me.ygxm) Then
MsgBox "请输入员工姓名!", vbCritical, "提示："
Me.ygxm.SetFocus
Exit Sub
End If

Me.Refresh
If Acchelp_StrDataIsExist("tblCodeyg", "ygxm", Me.ygxm) = True Then
MsgBox "你输入的数据已经存在，请重新输入", vbCritical, "警告"
Me.ygxm.SetFocus
Exit Sub
End If