HTA/VbScript - If 语句来自下拉列表选项

Question

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

我一直在四处寻找某种方法来将下拉列表的值用于运行特定的 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

Answer 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

HTA/VbScript - If 语句来自下拉列表选项

HTA/VbScript - If statement from Dropdown list choice

vbscript

hta