VisualBasic案例：消息对话框

1.MsgBox函数

MsgBox函数执行时弹出一个消息提示框,用来向用户传送信息,用户在对话框中单击某个按钮进行响应,函数返回一个整型值,用来表示用户在对话框中的按键响应。

格式:MsgBox(msg[,[type][,title]])。

说明:①Msg,提示信息,字符串常量、变量、表达式,是消息的正文。

②Title,是对话框标题字符串。

③Type,指定信息科类型(按钮的数目、图标样式、默认按钮、消息框强制回应等),Type值可以是数值或VB常量,是多个选项的组合,可选常量如表2-4、表2-5、表2-6所示,每组最多选择一个常量然后相加,就得到了他们的组合效果,如果省略该参数,则使用默认值0。

表2-4　消息框按钮的取值和效果

表2-5　消息框图标的取值和效果

表2-6　消息框默认按钮的取值和效果

(www.xing528.com)

消息框的返回值根据用户单击的按钮决定,具体如表2-7所示。

表2-7　消息框的返回值

例如:语句res=MsgBox(“程序错误!”,vbAbortRetryIgnore+vbQuestion,“信息提示框示例”)执行时的效果如图2-5所示。

图2-5　MsgBox函数应用效果图

说明:本例中Msg参数“程序错误!”就是在消息框中间显示的提示信息;而Type参数vbAbortRetryIgnore+vbQuestion决定了本消息框显示“终止”“重试”及“忽略”按钮(由vb-AbortRetryIgnore决定)和图标(由vbQuestion决定);title参数“提示信息框示例”,决定了本消息框的标题是“提示信息框示例”;本例中的Type参数也可以写成“2+32”或“34”,运行效果相同。如果用户单击“中止”按钮,返回值3将赋给res变量,单击“重试”按钮,返回值4赋给res变量,单击“忽略”按钮,返回值5赋给res变量。

2.MsgBox语句

MsgBox语句执行时只给出提示信息框,所有参数同MsgBox函数,只是这些参数不用写在括号内,如:MsgBox“程序错误!”,vbAbortRetryIgnore+vbQuestion,“信息提示框示例”,执行时显示同样的提示信息框,但用户做了什么样的操作无法返回,因此,常被用于简单的消息提示。再比如:MsgBox“你好棒啊!”,vbOkOnly+vbInformation,“信息提示框示例”,语句执行时的提示框如图2-6所示。

图2-6　MsgBox语句执行时的效果图