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

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

最后编辑于
©著作权归作者所有,转载或内容合作请联系作者
平台声明:文章内容(如有图片或视频亦包括在内)由作者上传并发布,文章内容仅代表作者本人观点,简书系信息发布平台,仅提供信息存储服务。

推荐阅读更多精彩内容

  • Spring Cloud为开发人员提供了快速构建分布式系统中一些常见模式的工具(例如配置管理,服务发现,断路器,智...
    卡卡罗2017阅读 135,253评论 19 139
  • 原文:https://github.com/electron/electron/blob/master/docs/...
    Shmily落墨阅读 19,205评论 1 5
  • ¥开启¥ 【iAPP实现进入界面执行逐一显】 〖2017-08-25 15:22:14〗 《//首先开一个线程,因...
    小菜c阅读 6,735评论 0 17
  • 终于想要窥探我大学以来一直放荡不羁的心。 可怕的大学。要对自己进行最真诚的剖析了。前方高能。核能,一个小渣男的内心...
    S的随便用账号阅读 396评论 0 51
  • 大头和琪琪走啊走,眼看就要转弯,进入住宅区了。可这时一阵刺耳的急刹车声打破了大头和琪琪那微妙的气氛。一群人从一辆辆...
    夏先森有诗和远方阅读 352评论 0 1