HTA/VbScript - 下拉列表选项中的 If 语句

Posted 2023-04-19

【中文标题】HTA/VbScript - 下拉列表选项中的 If 语句

【英文标题】：HTA/VbScript - If statement from Dropdown list choice

【发布时间】：2015-05-14 05:17:27

【问题描述】：

在我使用 vbscript 的 HTA 中，我试图从 DropDown 列表中读取一个选项，该列表将为每个选项运行特定代码。

我一直在寻找一些方法来使用下拉列表的值来运行特定的VBSCRIPT subroutine，但在我的搜索中没有发现任何有用的东西。下面的代码确实有效，但它只显示一个带有列出选项的消息框。任何指针将不胜感激！

<select name="BuildStepChoice" size="1">
 <option selected="selected" value=" "></option>
 <option value="1">1</option>
 <option value="2">2</option>
</select> &nbsp;

还有VBSCRIPT

Sub Copychecklist()
Dim VMBuildStep
VMBuildStep = document.getElementById("BuildStepChoice").Value
 If VMBuildStep = 1 Then MsgBox "Picked #1" Else
 If VMBuildStep = 2 Then MsgBox "Picked #2" End If
End Sub

【问题讨论】：

不可能像If VMBuildStep = 1 Then Call Step1 Else这么简单，但似乎是这样的。

谢谢@JosefZ，因为我经常遇到这种情况，我在发布问题后不久就找到了答案！

如果您有解决方案，请自行回答。阅读并关注How to Answer 和Can I answer my own question?。

不知何故，单击“回答您的问题”按钮什么也不做。我的答案很简单，就像使用 If VMBuildStep = 1 Then Call Step1 Else

【参考方案1】：

不确定我是从哪里找到的，但这就是我最终得到的。

Sub Copychecklist()
 Dim VMBuildStep
 VMBuildStep = document.getElementById("BuildStepChoice").Value
  If (IsNumeric(VMBuildStep)) Then
  VMBuildStep = Int(VMBuildStep)
  If (VMBuildStep >= 1 And VMBuildStep <= 17) Then CreateFile(VMBuildStep)
 End If            
End Sub