3、MsgBox 函数

在对话框中显示消息，等待用户单击按钮，并返回一个Integer告诉用户单击哪一个按钮。

语法：MsgBox(prompt[,buttons] [,title] [,helpfile,context])

除第一个参数，其余都可以省略，参数意义与InputBox函数相同。

Buttons：指定显示按钮的数目及形式，使用的图标样式，默认按钮是什么以及消息框的强制回应等。如果省略，则默认值为 0。

buttons参数有下列设置值：

vbOKOnly——只显示OK按钮。

VbOKCancel——显示OK及Cancel按钮。

VbAbortRetryIgnore——显示Abort（异常终止）、Retry及Ignore（忽略）按钮。

VbYesNoCancel——显示Yes、No及Cancel按钮。

VbYesNo——显示Yes及No按钮。

VbRetryCancel——显示Retry及Cancel按钮。

VbCritical——显示Critical Message图标。

VbQuestion——显示Warning Query图标。

VbExclamation——显示Warning Message图标。

VbInformation——显示Information Message图标。

vbDefaultButton1——第一个按钮是默认值。

vbDefaultButton2——第二个按钮是默认值。

vbDefaultButton3——第三个按钮是默认值。

vbDefaultButton4——第四个按钮是默认值。

vbApplicationModal——应用程序强制返回；应用程序一直被挂起，直到用户对消息框作出响应才继续工作。

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

vbMsgBoxHelpButton——将Help按钮添加到消息框

VbMsgBoxSetForeground——指定消息框窗口作为前景窗口

vbMsgBoxRight——文本为右对齐

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

第一组描述了对话框中显示的按钮的类型与数目；第二组描述了图标的样式；第三组说明哪一个按钮是默认值；而第四组则决定消息框的强制返回性。

使用时可以在每一组中选择一个形成一个buttons。

MsgBox还可以返回一个整数值。

返回值

vbOK——1

vbCancel——2

vbAbort——3

vbRetry——4

vbIgnore——5

vbYes——6

vbNo——7

示例

Sub msgbox示例 ()

        Dim intreturn As Integer

        intreturn = MsgBox("真的要退出吗？", vbYesNo + vbQuestion, "提示")

End Sub

运行结果如下：

示例

欢迎关注微信公众号：VBA入门与提高