二、Msgbox函数各参数详解

MsgBox语句：用于弹出一个对话框。

1、MsgBox格式:

MsgBox内容[，类型][，标题][，帮助文件名，帮助主题目录号]

在IE地址栏中输入“”，然后按enter键，则弹出对话框“欢迎XX”

VB中MsgBox语句也可方便实现，在窗体的单击事件中输入如下代码

Private Sub Form_click()

MsgBox ("欢迎XX")

End Sub

2、MsgBox内容[，类型][，标题][，帮助文件名，帮助主题目录号]

（1）“内容”参数，为必要参数，是一个字符串，其长度不得超过1024字符。如果超过，多余的部分会被省略。字符串的内容在由MsgBox语句弹出的对话框中显示。当字符串在一行内显示不完时，将自动换行。也可用“chr$(13)+chr$(10)”或“vbCrlf”进行强制换行。

例如

Private Sub Form_click()

MsgBox "欢迎XX" & Chr(13) + Chr(10) & "祝XX快乐每一天！"

End Sub

运行后将弹出对话框如图：

（2）“类型”参数，它是一个整数值或符号常量，用来控制在对话框内显示的按钮、图标的种类及数量。该参数的值由4类数值相加产生，这4类数值或符号常量分别表示按钮的类型、显示图标的种类、活动按钮的位置以及强制返回。不过，对于MsgBox语句，按钮的类型及强制返回作用不大，但对于MsgBox函数却很有用。在MsgBox函数中可通过按钮对话框中某个按钮而执行指定的操作。

例如：

Private Sub Form_click()

MsgBox "欢迎XX" & Chr(13) + Chr(10) & "祝XX快乐每一天！"，2

End Sub

运行后将弹出对话框如图：

例如：

Private Sub Form_click()

MsgBox "欢迎XX" & Chr(13) + Chr(10) & "祝XX快乐每一天！"，64

End Sub

运行后将弹出对话框如图：

如果要同时定义按钮类型和图标样式，可直接将按钮类型的取值和图标样式的取值相加即可。例如：2+64

Private Sub Form_click()

MsgBox "欢迎XX" & Chr(13) + Chr(10) & "祝XX快乐每一天！"，66

End Sub

执行结果如图：

Private Sub Form_click()

MsgBox "欢迎XX" & Chr(13) + Chr(10) & "祝XX快乐每一天！"，66+512

End Sub

则会将默认按钮变为第三个按钮，执行结果如图：

如果对话框中只有三个按钮，代码却为“66+768”，执行结果为默认选中第一个按钮。

“标题”参数，用来指定对话框的标题栏文字。

例如：

Private Sub Form_click()

MsgBox "欢迎XX" & Chr(13) + Chr(10) & "祝XX快乐每一天！"，65 + 512, "许愿池"

End Sub

执行结果：

三、Msgbox函数的返回值：

MsgBox函数，除可返回值外，其他功能与MsgBox语句相同。

MsgBox函数返回值是一个整数，可以是1~7之间的任意整数，它们分别对应7个按钮被选中的状态。

Sub chick()

Dim a As Integer

a = MsgBox("欢迎XX" & Chr(13) & Chr(10) & "祝XX快乐每一天", 1 + 64, "你好")

If a = 1 Then

MsgBox "你确定退出吗？"

End If

End Sub

这里设置了二层的Msgbox，方便查看效果，当第一层Msgbox点选“确定”按钮后，默认值结果为1。

注意：如果还要指定第一个命名参数以外的参数，则必须在表达式中使用 MsgBox。为了省略某些位置参数，必须加入相应的逗号分界符