MsgBox 弹窗

🎯功能

弹出一个带按钮的对话框, 可以返回用户点击的按钮值

📜语法

结果 = 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`	系统模式：在用户响应消息框前，所有应用程序都被挂起。

!!! note "样式参数说明" 第一组值 (0 - 5) 用于描述对话框中显示的按钮类型与数目；第二组值 (16, 32, 48, 64) 用于描述图标的样式；第三组值 (0, 256, 512) 用于确定默认按钮；而第四组值 (0, 4096) 则决定消息框的样式。在将这些数字相加以生成 按钮 参数值时，只能从每组值中取用一个数字。例如1+16+256表示显示按钮和取消按钮, 显示临界信息图标, 以第二个按钮为默认值

📤返回

整数型, 返回用户点击的按钮值, 详见下表

常数名	常数值	描述
`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

//高级例子
//功能:
//  具有超时自动关闭的弹窗
//参数:
//  内容: 字符串, 要显示的提示内容
//  标题: 字符串, 要显示的标题
//  样式: 整数型, 与MsgBox命令的样式参数相同
//  超时: 整数型, 弹窗等待超时时长, 单位毫秒, 例如3000表示3秒后自动关闭弹窗
//返回:
//  整数型, 超时后返回-1, 其他情况与MsgBox命令的返回值相同
Function zmMsgBox(内容, 标题, 样式, 超时)
    Dim obj
    Set obj = CreateObject("WScript.Shell")
    zmMsgBox = CInt(obj.Popup(内容, 超时 / 1000, 标题, 样式))
    Set obj = Nothing
End Function

📘备注

如果对话框显示取消按钮，则按 ESC 键与单击取消的效果相同。
如果对话框包含帮助按钮，则有为对话框提供的上下文相关帮助。但是在单击其他按钮之前，不会返回任何值。

MsgBox 弹窗

🎯功能​

📜语法​

📥参数​

📤返回​

💡示例​

📘备注​

🎯功能

📜语法

📥参数

📤返回

💡示例

📘备注