Question

如何在vbs中获得msgbox确定按扭和取消按扭的值

getreturn=msgbox("文本",33,"文本")
if getreturn=1 then
点击[确定]执行操作
else
点击[取消]执行操作
end if

我的意思是如何获得上例getreturn=1 中的一
速度哦,捆饶我好久了

1楼的vbInformation + vbOKCancel
是vbs中的吗?

我的意思是点击确定返回1,点击取消返回2
谢谢你们的回答 哦,希望你们能帮我解决

Answer 1

getreturn = MsgBox("文本", vbInformation + vbOKCancel, "文本")

if getreturn=vbOK then
点击[确定]执行操作
else
点击[取消]执行操作
end if

这个程序和上面的程序完全一致.

你仔细去看一下 MSGBOX的内容,就明白了

Answer 2

返回值：
vbOK 1 OK
vbCancel 2 Cancel
vbAbort 3 Abort
vbRetry 4 Retry
vbIgnore 5 Ignore
vbYes 6 Yes
vbNo 7 No

按钮及图标设置:
vbOKOnly 0 只显示 OK 按钮。
VbOKCancel 1 显示 OK 及 Cancel 按钮。
VbAbortRetryIgnore 2 显示 Abort、Retry 及 Ignore 按钮。
VbYesNoCancel 3 显示 Yes、No 及 Cancel 按钮。
VbYesNo 4 显示 Yes 及 No 按钮。
VbRetryCancel 5 显示 Retry 及 Cancel 按钮。
VbCritical 16 显示 Critical Message 图标。
VbQuestion 32 显示 Warning Query 图标。
VbExclamation 48 显示 Warning Message 图标。
VbInformation 64 显示 Information Message 图标。
VbDefaultButton1 0 第一个按钮是缺省值。
VbDefaultButton2 256 第二个按钮 是缺省值。
VbDefaultButton3 512 第三个按钮是缺省值。
VbDefaultButton4 768 第四个按钮是缺省值。
VbApplicationModal 0 应用程序强制返回；应用程序一直被挂起，直到用户对消息框作出响应才继续工作。
VbSystemModal 4096 系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作。