如何在popup菜单中定义button值?

我用OK和Cancelbutton创build了一个VBScript popup窗口 。 如何确定OKbutton?

基本上我想要:

If OK button = True Then ' statement Else End If 

然后,我试图声明intbutton= 1

 intbutton = objshell.popup"..." 

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

你会得到一个语法错误,因为在VBScript(和VBA和VB6)中,所有的Function调用在捕获返回值时都必须使用括号(不像Sub调用,除非你使用Call语法,否则不能使用括号 – 是的,我认为VBScript的语法是哑)。

您还缺少函数的其他参数: nSecondsToWaitstrTitlenType 。 请注意,这些附加参数是可选的,因此不会在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