MsgBox 常数

文章目录

1. 介绍
2. 常数表
3. 示例
4. 备注

介绍

MsgBox 弹窗相关的常数, 可直接用于参数与返回值判断

常数表

常数名	常数值	描述
vbOKOnly	`0`	只显示确定按钮。
vbOKCancel	`1`	显示确定和取消按钮。
vbAbortRetryIgnore	`2`	显示终止、终止和忽略按钮。
vbYesNoCancel	`3`	显示是、否和取消按钮。
vbYesNo	`4`	显示是和否按钮。
vbRetryCancel	`5`	显示终止和取消按钮。
vbCritical	`16`	显示临界消息图标。
vbQuestion	`32`	显示警告询问图标。
vbExclamation	`48`	显示警告消息图标。
vbInformation	`64`	显示提示消息图标。
vbDefaultButton1	`0`	第一个按钮是默认按钮。
vbDefaultButton2	`256`	第二个按钮是默认按钮。
vbDefaultButton3	`512`	第三个按钮是默认按钮。
vbDefaultButton4	`768`	第四个按钮是默认按钮。
vbApplicationModal	`0`	应用程序模式。用户必须响应消息框，才能继续在当前应用程序中工作。
vbSystemModal	`4096`	系统模式。用户响应消息框前，挂起所有应用程序。

下列常数与 MsgBox 函数一起使用，标识用户选定的按钮。仅当类型库中包含以下常数定义，且在您的工程文件中已经显式引用该类型库后，才允许使用这些常数。对于 VBScript，必须在代码中显式声明这些常数。

常数名	常数值	描述
vbOK	`1`	确定按钮被单击。
vbCancel	`2`	取消按钮被单击。
vbAbort	`3`	终止按钮被单击。
vbRetry	`4`	重试按钮被单击。
vbIgnore	`5`	忽略按钮被单击。
vbYes	`6`	是按钮被单击。
vbNo	`7`	否按钮被单击。

示例

Dim 结果

结果 = MsgBox("紫猫老师是不是很帅!", vbYesNo + vbQuestion)
If 结果 = vbYes Then 
    TracePrint "你答对了, 紫猫老师真帅~"
Else 
    TracePrint "你错了, 紫猫老师肯定很帅!"
End If

备注

关于什么是常数请参考 Const 定义常量
在VBScript中的内置常数一般是由vb开头组成的标识符, 而非vb开头的一般需要自行定义赋值的常数, 仅仅约定成俗使用固定标识符而已
如果你不知道是否为内置常数, 可以通过简单粗暴的不定义变量直接赋值方法测试
- 如果是内置常数, 你会发现调试运行报错, 例如 vbRed = 1 会提示 非法赋值: 'VBRED'
- 如果不是内置常数, 则不会出现任何错误提示, 例如 ForWriting = 1 不会出现任何错误