VB考试教程：对话框

在编写代码时，我们常常需要在屏幕上显示一些提示信息、警告信息、询问信息或错误信息等消息，对用户的操作做一个提醒或反馈，这时就需要用到消息对话框。

消息对话框是用MsgBox语句或Msgbox函数产生的，两者的不同之处在于MsgBox函数还会产生一个返回值,而MsgBox语句没有返回值,常用于比较简单的信息显示。

MsgBox 语句的语法格式：

MsgBox（提示内容信息，消息框类型，消息框标题，HelpFile，Context）

如：MsgBox"数据正确吗?"

MsgBox 函数的语法格式：

整形变量=MsgBox（提示内容信息，消息框类型，消息框标题，HelpFile，Context）

（1）提示信息（Prompt）——是指在消息框中出现的文本，是字符串表达式，长度为l04个字符。

（2）消息框类型（Buttons）——是指消息框中的按钮和图标，是数值表达式，一般有3个参数，指定显示按钮的数目及形式、使用的图标样式、默认按钮是什么以及消息框的强制回应等。如果省略，则默认为0。其取值和含义见下面3个表格（表1、表2、表3）。这3个参数值可以相加以达到需要的样式。

（3）消息框标题（Title）——是指消息框标题栏的标题，是字符串表达式，如果省略，则将当前应用程序名放在标题栏中。

（4）HelpFile——是字符串表达式，识别用来向消息对话框提供上下文相关帮助的帮助文件。如果提供了参数，则也必须提供参数。

（5）Context——是数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编导。同
样，如果提供了参数，则也必须提供参数。

注意：5个参数中只有第一个参数（Prompt）是必须的，其它的为可选的。

（6）MsgBox函数返回的值指明了在消息框中选择哪一个按钮，如表4。

表1

数值常量 值 在消息框上显示的按钮
VbOKOnly 0 “确定”按钮
VbOKCancel 1 “确定”和“取消”按钮
VbAbortRetryIgnore 2 “终止（A）”、“重试（RP）”和“忽略（I）”按钮
VbYesNoCancel 3 “是（Y）”、“否（N）”、“取消”按钮
VbYesNo 4 “是（Y）”和“否（N）”按钮
VbRetryCancel 5 “重试（RP）”和“取消”按钮

表2

数值常量 值 在消息框上显示的图标
VbCritical 16 显示Critical Message图标
VbQuestion 32 显示Warning Query图标
VbExclamation 48 显示Warning Message图标
VbInformation 64 显示Information Message图标

表3

数值常量 值 默认的按钮
VbDefaultButton1 0 第一个按钮为默认的按钮
VbDefaultButton2 256 第二个按钮为默认的按钮
VbDefaultButton3 512 第三个按钮为默认的按钮
VbDefaultButton4 768 第四个按钮为默认的按钮
VbApplicationModal 0 应用程序强制返回；应用程序被挂起，直到用户对消息框作出响应才继续工作。
VbSystemModal 4096 系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作。

表4

符号常量 MsgBox函数返回的值 所对应的按钮
vbOK 1 “确定”按钮（OK）
vbCancel 2 “取消”按钮（Cancel）
vbAbort 3 “终止（A）”按钮（Abort）
vbRetry 4 “重试（RP）”按钮（Retry）
vbIgnore 5 “忽略（I）”按钮（Ignore）
vbYes 6 “是（Y）”按钮（Yes）
vbNo 7 “否（N）”按钮（No）

注意：如果要在MsgBox语句或MsgBox函数的格式中省略某些参数，则必须加入相应的逗号分隔符。

例1：显示消息框。

Dim c As Integer
Private Sub Command1_Click()
c = MsgBox("abcd", 5 + 16 + 256, "xyz")
if c=2 Then end
End Sub

将数值分别改动一下，再看运行结果。

例2：

Private Sub Form_Unload(Cancel As Integer)

Dim intyourreply As Integer
Dim strmyreply As String
intyourreply = MsgBox("动画已显示完毕" + Chr(13) + "您是否满意", vbYesNoCancel + _
vbQuestion + vbDefaultButton1 + vbApplicationModal, "询问您的意见")
strmyreply = "我的回答"
Select Case intyourreply
Case vbYes
MsgBox "非常感谢!欢迎再来。", , strmyreply
Case vbNo
MsgBox "非常遗憾,请多提宝贵意见!", , strmyreply
Case vbCancel
MsgBox "沉默是金!", , strmyreply