跟着一起学《Excel VBA跟卢子一起学 早做完 不加班 基础入门版》_3.5.2 Msgbox 的Butfons参数

【摘要】 本书摘自《Excel VBA跟卢子一起学 早做完 不加班 基础入门版》一书中第3章，第5节，韩小良著。

3.5.2 Msgbox 的Butfons参数

无言：接下来说下第2个参数—Buttons参数。相对Prompt和Title参数来说 ，Buttons参数 比较复杂，也是重点参数。

② 皮 蛋： 为什么说复杂呢?

Msgbox 的 第 2 个 参 数 Buttons: 该参数的主要作用是显示一个或数个可供选择的按钮和提

示图标样式。Buttons 参数选中不同值将代表不同的按钮和图标样式。Buttons参数的常数值虽然多，但可将其分为3部分：显示按钮图标参数值、显示提示图

标参数值、选择默认按钮参数值。

显示图档按钮参数值——主要用于选择要显示哪些按钮组，不同的常数对应不同的按钮显 示，默认忽略时常数值为0,只显示OK 按钮；不同值对应了表3-12中所列的按钮图标，如代 码3-34 所示为分别使用常数和值来显示同一个按钮的代码过程。

无言：按钮值由数字0～5分别对应表3-12中的第4列的按钮图标，其中最后一个帮助按钮 一般不需要，只有在制作了相对应的帮助外联文件时才用到。

1|Sub MsgboxButtons010

2| Dim 按钮名称 As String

3| 按钮名称=”只显示Ok按钮!”

4| MsgBox Prompt:=按钮名称，Buttons:=vbOKOnly,Title:="按钮信息"

5| MsgBox Prompt:=按钮名称，Buttons:=0,Title:="按钮信息"

6|

7| 按钮名称="显示 OK 及Cancel 按钮!"

8| MsgBox Prompt:=按钮名称，Buttons:=vbOKCancel,Title:="按钮信息"

9| MsgBox Prompt:=按钮名称，Buttons:=1,Title:="按钮信息"

10|

11| 按钮名称="显示 Abort、Retry 及 Ignore 按钮!"

12| MsgBox Prompt:=按钮名称，Buttons:=vbAbortRetrylgnore,Title:="按钮信息"

13| MsgBox Prompt:=按钮名称，Buttons:=2,Title:="按钮信息"

14|

15| 按钮名称=“显示Yes 、No 及Cancel 按钮!”

16| MsgBox Prompt:=按钮名称，Buttons:=vbYesNoCancel,Title:="按钮信息"

17| MsgBox Prompt:=按钮名称，Buttons:=3,Title:="按钮信息"

18|

19| 按钮名称=“显示Yes 及No按钮!”

20| MsgBox Prompt:=按钮名称，Buttons:=vbYesNo,Title:="按钮信息"

21| MsgBox Prompt:=按钮名称，Buttons:=4,Title:="按钮信息"

22|

23| 按钮名称="显示 Retry 及 Cancel 按钮!"

24| MsgBox Prompt:=按钮名称，Buttons:=vbRetryCancel,Title:="按钮信息"

25| MsgBox Prompt:=按钮名称，Buttons:=5,Title:="按钮信息"

26|End Sub

显示提示图标参数值——主要用于显示不同信息类型的提示图标，总共有4种图标，分别 对应：临界信息、报警查询、警告消息、信息消息，其常数值及图标样式如表3-12中所列的 信息图标。

信息图标的常数如表3-12中所列，值则由16开始，以2的倍数叠加，即16、32、48、 64。如代码3-35所示为分别使用常数和值来显示同一个按钮的代码过程。

代 码 3 - 3 5 Msgbox 函 数 Buttons 参数的显示信息图标用法示例代码

1|Sub MsgboxButtons02)

2| Dim 图标名称As String

3| 图标名称="显示Critical Message图标!"

4| MsgBox Prompt:=图标名称，Buttons:=vbCritical,Title:="提示图标信息"

5| MsgBox Prompt:=图标名称，Buttons:=16,Title:="按钮信息"

6| 图标名称="显示Warning Query 图标!"

7| MsgBox Prompt:=图标名称，Buttons:=vbQuestion,Title:="提示图标信息"

8| MsgBox Prompt:=图标名称，Buttons:=32,Title:="按钮信息"

9| 图标名称=”显示Warming Message 图标!"

10| MsgBox Prompt:=图标名称，Buttons:=vbExclamation,Title:="提示图标信息"

11| MsgBox Prompt:=图标名称，Buttons:=48,Title:="按钮信息"

12| 图标名称="显示 Information Message 图标!"

13| MsgBox Prompt:=图标名称，Buttons:=vbInformation,Title:="提示图标信息"

14| MsgBox Prompt:=图标名称，Buttons:=64,Title:="按钮信息"

15|End Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们 18664393530@aliyun.com 处理，核实后本网站将在24小时内删除侵权内容。