Msgbox

在程序应用中经常会提示用户进行操作，比如某项数据填写不规范，某个必填项为空等等。这时候用Msgbox弹出对话框，来提示或者引导用户继续操作。

用法：MsgBox (Prompt [,Buttons] [,Title] [,Helpfile,Context])

我们先说 Prompt 参数：

这个参数字符串，如果需要换行怎么办？我们可以在需要换行的时候用vbNewLine或者vbCrLf或者Chr(13)连接字符串即可，需要注意的是每个字符串必须加上英文双引号。

效果：

如果提示信息里要带变量，比如变量a是距离高考的天数，就需要用 “&” 连接符来连接：

Msgbox “距离高考还有” & a & “天”

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

系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作。

对话框特殊设置

vbMsgBoxHelpButton

16384

将帮助按钮添加到消息框。

vbMsgBoxSetForeground

65536

指定消息框窗口作为前景窗口。

vbMsgBoxRight

524288

文本为右对齐。

vbMsgBoxRtlReading

1048576

指定文本应为在希伯来和阿拉伯语系统中的从右到左显示。

这里就不一一介绍每个参数的使用方法了，我会把这些参数都集中在一个示例中，大家可以在下载

这里单独介绍一下强制返回性：

默认弹出对话框的时候，如果不点击对话框的按钮，本程序会被挂起，不能有其他操作，但是系统的其他程序依然可以进行操作，

如果这个参数换成vbSystemModal，系统的其他程序都被挂起，你只能操作这个对话框才能进行下一步。

（更正：以前我在学校用Windows2000的时候我记得是这样，但是刚刚我在Windows7上做实验，有很大差别，vbSystemModal仅仅是在所有窗体之上，并不挂起其他程序）

这个很容易理解，通过返回值，我们可以做响应的处理，比如：

还有一个就是Title参数，这是个字符串型，用来设置弹出对话框的标题：

最后我把所有的关于Msgbox用法都用一个示例来演示：