所以我有一个HTA,它根据可用且尚未运行的SCCM客户端安装来填充组合框。一切正常,除了组合框应该发生什么是选择运行的程序,然后安装和从组合框中删除。然而,无论我选择哪个程序,每次都删除第一个项目,我尝试了一些不同的变化,但似乎没有任何工作,任何帮助表示赞赏。
Dim i
strSelectedValues = ""
' Check all the Options of the ListBox
For i = 0 To (objComboBox.Options.Length - 1)
' Check if the Current Option is Selected
If (objComboBox.Options(i).Selected) Then
' Collect only the Selected Values
strSelectedValues = strSelectedValues & objComboBox.Options(i).Value
End If
Next
'Remove selected program to install from the Combo box list
ComboBox1.Remove(SelectedItem)
答案 0 :(得分:1)
根据此authority,。remove需要删除选项的数量/索引。 SelectedItem
似乎未定义/为空/出于实际目的:代码为零;那么第一种选择消失似乎是合理的。所以试试
ComboBox1.Remove ComboBox1.selectedIndex
(或许可以通过检查是一个选定的选项 - 还是应该进入循环?)