跳到主要内容

MsgBox 常数

介绍

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

常数表

常数名常数值描述
vbOKOnly0只显示确定按钮。
vbOKCancel1显示确定取消按钮。
vbAbortRetryIgnore2显示终止终止忽略按钮。
vbYesNoCancel3显示取消按钮。
vbYesNo4显示按钮。
vbRetryCancel5显示终止取消按钮。
vbCritical16显示临界消息图标。
vbQuestion32显示警告询问图标。
vbExclamation48显示警告消息图标。
vbInformation64显示提示消息图标。
vbDefaultButton10第一个按钮是默认按钮。
vbDefaultButton2256第二个按钮是默认按钮。
vbDefaultButton3512第三个按钮是默认按钮。
vbDefaultButton4768第四个按钮是默认按钮。
vbApplicationModal0应用程序模式。用户必须响应消息框,才能继续在当前应用程序中工作。
vbSystemModal4096系统模式。用户响应消息框前,挂起所有应用程序。

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

常数名常数值描述
vbOK1确定按钮被单击。
vbCancel2取消按钮被单击。
vbAbort3终止按钮被单击。
vbRetry4重试按钮被单击。
vbIgnore5忽略按钮被单击。
vbYes6按钮被单击。
vbNo7按钮被单击。

示例

Dim 结果

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

备注

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