[RESOLVED]ComboBox - stupid problem

[Tamgovb]

Hi All

Just stupid problem or I have eclipse mind.

I’ve an form 1 Combo and 1 CommandButton, I practise writing loop For...Next
What am I doing wrong? I Want clear all items in ComboBox. I make such code.

Private Sub Command1_Click()
    For i = 0 To Combo1.List(i)
        Combo1.RemoveItem.List
    Next
End Sub

And don't work, why?

thanks for every help

[bushmobile]

Just do:

combo1.clear

or if you wanted to do it your way:

For N = 0 To Combo1.ListCount - 1
  Combo1.RemoveItem 0
Next N

[Tamgovb]

really,........ how I could does not think about this

Thanks very, very much

[Harsh Gupta]

try this:

Private Sub Command1_Click()
    Dim i%
 
    For i = (Combo1.ListCount) To 1 Step -1
        Combo1.RemoveItem (i - 1)
    Next i
End Sub

backward loop because, when you delete 1 item, the list gets organised automatically. i.e. if you delete 3rd element, then the 4th one becomes 3rd, 5th becomes 4th and so on.

Harsh Gupta

[Tamgovb]

Thanks Harsh Gupta, your code is fine, I will test this