windows - 如何在弹出窗口中定义按钮值？

Question

我创建了一个 VBScript popup带有确定和取消按钮。我如何为 OK 按钮赋值？

基本上我想要:

If OK button = True Then
  ' statement
Else

End If 

我尝试声明 intbutton= 1，然后

intbutton = objshell.popup"..."

但是我得到一个语法错误。

Answer 1

您收到语法错误，因为在 VBScript(以及 VBA 和 VB6)中，所有 Function 调用在捕获返回值时都必须使用括号(不同于 Sub 调用，后者不能除非您使用 Call 语法，否则请使用括号 - 是的，我认为 VBScript 的语法很愚蠢)。

您还缺少该函数的其他参数:nSecondsToWait、strTitle 和 nType。请注意，这些附加参数是可选的，因此请不要在 nSecondsToWait 参数空间中保留任何内容。

VBScript 为您需要的参数提供了内置常量，它们是:

vbOK
vbOKCancel
vbAbortRetryIgnore
vbYesNoCancel
vbYesNo
vbRetryCancel

你可以像这样使用它们:

Dim result
result = shell.Popup( "Mesage text goes here", , "Window title", vbOKCancel )
If result = vbOK Then
    ' something here
End If