Jag har en ListBox med style = Checkbox och jag skulle vilja ha en funktion som ränsar bort alla som inte är checkade.

typ:
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.List(i).Checked Then
List1.RemoveItem (List1.List(i))
End If
Next i

Tacksam för hjälp!

Tjena!

Gjorde några test på det där och upptäckte att om du har Style = Checked så räknas dom "Checkade" som Selected. Så då kan du göra så här:

<code>
Dim i As Integer

For i = (List1.ListCount - 1) To 0 Step -1
If List1.Selected(i) Then
List1.RemoveItem (i)
End If
Next i
</code>

Du måste gå "bakvägen" för annars så försvinner sista indexen när du tar bort en tidigare item.

//Jonas

Kannon.

Tusen tack!