如何在彈出窗口中定義按鈕值？

Question

我用OK和Cancel按鈕創建了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。請注意，這些附加參數是可選的，因此不要在參數空間中留下任何內容。

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