VB考试教程：对话框

一.信息对话框

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

消息对话框由Msgbox语句或MsgBox函数生成。两者的区别在于MsgBox函数也会生成返回值，而MsgBox语句没有返回值，常用于简单的信息展示。

MsgBox语句的语法格式:

MsgBox(提示内容信息、消息框类型、消息框标题、帮助文件、上下文)

比如:MsgBox“数据正确吗？”

MsgBox函数的语法格式:

整形变量=MsgBox(提示内容信息、消息框类型、消息框标题、帮助文件、上下文)

(1)Prompt-指出现在消息框中的文本，它是一个长度为l04个字符的字符串表达式。

(2)按钮——指消息框中的按钮和图标，为数值表达式。通常，它有三个参数，指定显示按钮的数量和形式，使用的图标样式，默认按钮是什么，消息框的强制响应等。如果省略，默认值为0。值和含义如下面三个表所示(表1、表2和表3)。这三个参数的值可以加在一起，以实现所需的风格。

(3)消息框标题——指消息框标题栏的标题，是一个字符串表达式。如果省略，当前应用程序名称将放在标题栏中。

(4)Helpfile-是一个字符串表达式，它标识用于向消息对话框提供上下文相关帮助的帮助文件。如果提供了参数，也必须提供它。

(5)上下文-是一个数字表达式，由帮助文件的作者分配给适当帮助主题的帮助上下文指导。与
一样，如果提供了参数，也必须提供它们。

注意:只有五个参数中的第一个(Prompt)是必需的，其他的都是可选的。

(6)由6)MsgBox函数返回的值指示在消息框中选择了哪个按钮，如表4所示。

表1

消息框上显示数值常数值的按钮
VbOKOnly 0确定按钮
vbokencale 1确定和取消按钮
VbAbortRetryIgnore 2终止(A)、重试(RP)和忽略(I)按钮VBYESNO取消3是(Y)、否(N)、取消按钮
VbYesNo 4是(Y)和否(N)按钮
VbRetryCancel 5重试(RP)和取消按钮

表2

消息框上显示的数值常数值图标
VbCritical 16显示关键消息图标
VbQuestion 32显示警告查询图标
VB example 48显示警告消息图标
VbInformation 64显示信息消息图标。

表3

数值常量值默认按钮
VbDefaultButton1 0第一个按钮是默认按钮
VbDefaultButton2 256第二个按钮是默认按钮
VbDefaultButton3 512第三个按钮是默认按钮
vbdefaultbutton 4 768第四个按钮是默认按钮
VbApplicationModal 0应用程序强制返回；应用程序被挂起，直到用户响应消息框。
VbSystemModal 4096系统强制返回；所有应用程序都被挂起，直到用户对消息框做出响应。

表4

按钮
vbOK 1确定按钮
vbcancel2取消按钮
vbabort3终止(a)按钮
vbretry4重试Br/]vbIgnore 5忽略(I)按钮(忽略)
vbYes 6是(Y)按钮(是)
vbNo 7否(N)按钮(否)

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

示例:显示消息框。

dim c As Integer
Private Sub command 1 _ Click()
c = MsgBox(" ABCD "，5 + 16 + 256，" xyz")
如果c=2，则end
End Sub

分别改变数值，然后看运行结果。

示例2:

私有子窗体_Unload(取消为整数)

dimintyoursreply as integer
dimstrmyreply as string
intyoursreply = msgbox("动画已显示"+Chr(13)+"你满意了吗"，vbyes no Cancel+_
VB question+VB default button 1+vbapplication modal，"征求你的意见")
strmyreply = "我的回答"
在你的回复中选择案例
案例vbyes
msgbox "再次表示非常欢迎。"，，strmy reply
case vbno
msgbox“不好意思，请大家提出宝贵意见！”，，strmy reply
case VB cancel
msgbox“沉默是金！”，，strmyreply