使用“X”按钮VBS测试消息框是否已关闭

Question

你好（一个晚上的两个问题可能有点矫枉过正，但我​​到了最后一分钟！）我试图根据用户选择从vbs的消息对话框启动文件。这有用，但是我想测试用户是否点击右上角的“X”按钮而不是单击“确定” 这是我的代码。

set shell=createobject("wscript.shell")
x=msgbox("Message...." ,0+16, "Error:")
If x=1 Then
shell.run "P:\Test.bat"
End If

但是我想使用if语句来测试用户是否点击了“X”。

Answer 1

x=msgbox("Message....", vbOKOnly + vbCritical, "Error:")

始终返回vbOK值（= 1）。

使用

x=msgbox("Message....", vbOKCancel + vbCritical, "Error:")

返回1或2，具体取决于单击的按钮：

如果点击了vbOK按钮，
• 会返回OK值（= 1） 如果点击了vbCancel按钮，
• 会返回Cancel值（= 2）;按ESC键与点击Cancel具有相同的效果;单击×窗口按钮也具有相同的效果