关于数据类型

有枚举"数据类型，例：

Public Enum 消息参数
只有OK按钮缺省值 = vbOKOnly '0 只有OK按钮（缺省值）
OK和Cancel按钮 = vbOKCancel '1 OK和Cancel按钮
Abort_Retry和Ignore按钮 = vbAbortRetryIgnore '2 Abort-Retry和Ignore按钮
Yes_No和Cancel按钮 = vbYesNoCancel '3 Yes-No和Cancel按钮
Yes和No按钮 = vbYesNo '4 Yes和No按钮
Retry和Cancel按钮 = vbRetryCancel '5 Retry和Cancel按钮
关键消息 = vbCritical '16 关键消息
警告询问 = vbQuestion '32 警告询问
警告消息 = vbExclamation '48 警告消息
通知消息 = vbInformation '64 通知消息
第一个按钮是缺省的缺省值 = vbDefaultButton1 '0 第一个按钮是缺省的（缺省值）
第二个按钮是缺省的 = vbDefaultButton2 '256 第二个按钮是缺省的
第三个按钮是缺省的 = vbDefaultButton3 '512 第三个按钮是缺省的
第四个按钮是缺省的 = vbDefaultButton4 '768 第四个按钮是缺省的
应用程序形态的消息框缺省值 = vbApplicationModal '0 应用程序形态的消息框（缺省值）
系统强制返回的消息框 = vbSystemModal '4096 系统强制返回的消息框
'vbMsgBoxHelpButton '16384 添加Help按钮到消息框
指定消息框窗口作为前景窗口 = vbMsgBoxSetForeground '65536 指定消息框窗口作为前景窗口
文本是右对齐的 = vbMsgBoxRight '524288 文本是右对齐的
End Enum

Function 消息对话框(内容 As String, Optional 按钮类型 As 消息参数 = 0, Optional 标题 As String = "")
消息对话框 = MsgBox(内容, 按钮类型, 标题)
End Function

示例请参考附件：

点击下载此附件