每天学点VBA

二、基础篇——显示对话框(3)

2017-03-10  本文已影响9人  霹雳小青龙

3、MsgBox 函数

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

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

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

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

buttons参数有下列设置值:

vbOKOnly——只显示OK按钮。

VbOKCancel——显示OKCancel按钮。

VbAbortRetryIgnore——显示Abort(异常终止)RetryIgnore(忽略按钮。

VbYesNoCancel——显示YesNoCancel按钮。

VbYesNo——显示YesNo按钮。

VbRetryCancel——显示RetryCancel按钮。

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入门与提高

上一篇 下一篇

猜你喜欢

热点阅读