从ComboBox中删除所有项目？

Question

如何以编程方式从VBA中的组合框中删除所有项目？

Answer 1

提前的Psuedo代码(用实际代码更新):

Do While ComboBox1.ListCount > 0
    ComboBox1.RemoveItem (0)
Loop

基本上,当你有物品时,从组合框中删除第一个项目.删除所有项目(count = 0)后,您的框为空白.

方法2:更好

ComboBox1.Clear

Answer 2

不幸的是,您需要逐个删除每个:

       For i = 1 To ListBox1.ListCount

           'Remove an item from the ListBox using ListBox1.RemoveItem 
       Next i

更新 - 我不知道为什么我的答案没有包含完整的解决方案:

For i = ListBox1.ListCount - 1 to 0 Step - 1 
        ListBox1.RemoveItem i 
Next i 

Answer 3

最简单的方法:

Combobox1.RowSource = ""  'Clear the list
Combobox1.Clear           'Clear the selected text

Answer 4

您可以使用ControlFormat方法:

ComboBox1.ControlFormat.RemoveAllItems