如何在组合框中的特定位置获取物品？

Question

我需要获取组合框中特定位置的项目。

这就是我想：

Private Sub PrintItems(Combo As ComboBox) 
    Dim i As Long 
    For i = 1 To Combo.ListCount 
     Debug.Print Combo(i) ' Combo(i) is pseudo-code to get the item 
    Next 
End Sub 

Answer 1

使用List集合。它是从零开始的，所以在组合框中的第三个项目是指数2，你应该从迭代0到ListCount - 1：

For i = 0 To Combo.ListCount - 1 
    Debug.Print Combo.List(i) 
Next