MsgBoxEx 函数
简介
MsgBox 函数的增强版。在对话框中显示消息，等待用户单击按钮，并返回一个长整数（Long）来确定用户单击了哪一个按钮。如果指定时间无响应则自动关闭并返回默认选择。
语法
MsgBox (Prompt[, Buttons][, Title][, Timeout])
输入参数
| 参数名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| Prompt | 必需 | Variant(String) | 要显示在对话框中的消息内容。最大长度1024个字符，多余部分将被截掉。可以通过回车符（vbCr或Chr(13)）、换行符（vbLf或Chr(10)）、回车符+换行符（vbCrLf或Chr(13) & Chr(10)）来进行强制换行。 |
| Buttons | 可选 | VbMsgBoxStyle | 指定消息对话框中要显示的按钮的个数及形式、图标样式、默认按钮是哪一个、消息框的强制回应模式等。可以是多个值的总合。如果省略此参数，则默认为0。 |
| Title | 可选 | Variant(String) | 在消息对话框标题栏中显示的内容。如果省略此参数，则默认根据图标类型显示为“错误”、“警告”、“提示”、“确认”，并在后面附加设置的软件名称。 |
| Timeout | 可选 | Variant(Long) | 如果对话框显示时间超过此时间用户未做出响应，对话框将自动关闭（以毫秒为单位）。如果省略此参数，当Buttons为vbOKOnly、vbInformation、vbExclamation时，默认为3000毫秒（即3秒），否则默认为0。 |
返回值
用户点击了“确定”按钮返回 vbOK 用户点击了“取消”按钮或关闭了对话框返回 vbCancel 用户点击了“是”按钮返回 vbYes 用户点击了“否”按钮返回 vbNo 用户点击了“中止”按钮返回 vbAbort 用户点击了“重试”按钮返回 vbRetry 用户点击了“忽略”按钮返回 vbIgnore
说明
在 MsgBox 的基础上，增加了自动根据图标类别自动显示标题、定时自动关闭消息框的功能。
示例
Sub Test()
MsgBoxEx "这是一个消息框，它将在3秒后自动关闭。", vbInformation
End Sub