(转自新浪微博，by-DancingWater）
————————————————————————————————————
MsgBox函数和MsgBox语句均可用来弹出对话框，不同处在于MsgBox函数可以返回一个值，而MsgBox语句不会返回值。
MsgBox语句：用于弹出一个对话框。
格式如下：
MsgBox内容[，类型][，标题][，帮助文件名，帮助主题目录号]
在IE地址栏中输入“javascript:alert(“欢迎XX”)”，然后按enter键，则弹出对话框“欢迎XX”
VB中MsgBox语句也可方便实现，在窗体的单击事件中输入如下代码
Private Sub Form_click()
MsgBox ("欢迎XX")
End Sub
MsgBox内容[，类型][，标题][，帮助文件名，帮助主题目录号]
“内容”参数，为必要参数，是一个字符串，其长度不得超过1024字符。如果超过，多余的部分会被省略。字符串的内容在由MsgBox语句弹出的对话框中显示。当字符串在一行内显示不完时，将自动换行。也可用“chr$(13)+chr$(10)”或“vbCrlf”进行强制换行。
例如
Private Sub Form_click()
MsgBox "欢迎XX" & Chr(13) + Chr(10) & "祝XX快乐每一天！"
End Sub
运行后将弹出对话框如图：
“类型”参数，它是一个整数值或符号常量，用来控制在对话框内显示的按钮、图标的种类及数量。该参数的值由4类数值相加产生，这4类数值或符号常量分别表示按钮的类型、显示图标的种类、活动按钮的位置以及强制返回。不过，对于MsgBox语句，按钮的类型及强制返回作用不大，但对于MsgBox函数却很有用。在MsgBox函数中可通过按钮对话框中某个按钮而执行指定的操作。
MsgBox类型参数的取值：
符号常量
值
作 用
按
钮
类
型
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
系统强制返回
例如：
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函数返回值是一个整数，可以是1~7之间的任意整数，它们分别对应7个按钮被选中的状态。
返回值
操 作
符号常量
1
选“确定”按钮
vbOk
2
选“取消”按钮
vbCancel
3
选“终止”按钮
vbAbort
4
选“重试”按钮
vbRetry
5
选“忽略”按钮
vblgnore
6
选“是”按钮
vbYes
7
选“否”按钮
vbNo
例如：
在按钮【退出】的双击事件中输入如下代码：
Private Sub Command1_Click()
Dim a As Integer '定义整形变量a
a = MsgBox("你确定要退出吗？", 1 + 32) '用变量a来接收MsgBox函数的返回值
If a = 1 Then '如果变量a的值为1，即MsgBox函数的返回值为1。那么
End
Else
Print ("你没有退出。")
End If
End Sub
（完）
本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请
点击举报。
