Question

VBS 如何弹出一个警告框？

Answer 1

Msgbox "文字消息内容",窗口模式常量,"标题栏"

文字消息内容：用于显示在窗口中的文字

窗口模式常量：决定窗口的显示模式

详细配置：
效果 常量 值
只显示“确定”按钮 vbOKOnly 0
显示“确定”、“取消” vbOKCancel 1
显示“终止”、“重试”、“忽略” vbAbortRetryIgnore 2
显示“是”、“否”、“取消” vbYesNoCancel 3
显示“是”、“否” vbYesNo 4
显示重试、取消 vbRetryCancel 5
使第1个按钮为默认按钮 vbDefaultButton1 0
使第2个按钮为默认按钮 vbDefaultButton2 256
使第3个按钮为默认按钮 vbDefaultButton3 512
使第4个按钮为默认按钮 vbDefaultButton4 768
显示“严重错误” vbCritical 16
显示“惊叹号” vbExclamation 48
显示“关键信息” vbInformation 64
显示“疑问号” vbQuestion 32
vbSystemModal 4096

标题栏：显示在标题栏中的文字

举个例子：例如你需要显示一个警告窗口加上一个“是否”的按钮，就这样写：

MsgBox "信息",48+4,"标题"

或者写成常量的形式：

MsgBox "信息",vbExclamation+vbYesNo,"标题"

如果你需要显示一个“错误”符号，就这样：
MsgBox "信息",vbCritical,"标题"
或者是：
MsgBox "信息",16,"标题"

利用表中的数值，还可以实现一些其他效果。

Answer 2

1.msgbox " ",20,""
2.msgbox " ",52,""
3.msgbox " ",68,""
4.msgbox " ",36,""
那么多的对话框代码，我全都知道，1.错误，2.警告，3.提示，4.问号！
按序号看，可以看的更明白

Answer 3

MsgBox "内容", 48, "标题"