how to use a listbox with multiple selected entrys?

[PT Exorcist]

how to work with them?

how do i know the 1st row index and the last one? and the others? tks

[peet]

could u elaborate a bit please ?

[peet]

Not sure about this, but is this what u mean?

Private Sub Command1_Click()
    'get checked items
    Dim i As Integer
    For i = 0 To List1.ListCount - 1
        If List1.Selected(i) = True Then Debug.Print List1.List(i)
    Next i
End Sub

[PT Exorcist]

ah tks :-)

[PT Exorcist]

ah but look that will loop thruogh all files and if i have 1000++ files it will be 'boring' to the user see all that looping...anyways of 'hiding' it?

[peet]

Originally posted by PT Exorcist
ah but look that will loop thruogh all files and if i have 1000++ files it will be 'boring' to the user see all that looping...anyways of 'hiding' it?

not sure what u mean... just tested it on 1000 items... doesnt "show anything boring" at all?

[PT Exorcist]

and how to make a routine to delete them all? i tryed...

For i = 0 To List1.ListCount
    List1.Selected(i) = True
    If List1.Selected(i) = True Then List1.RemoveItem (i)
    i = i + 1
Next

not working right thu :|

[peet]

now I'v tested it on 10000 itmes... still no boring action


if u want to delete items, go through the list backwards... like this

Private Sub Command1_Click()
    Dim i As Long
    For i = List1.ListCount - 1 To 0 Step -1
       If List1.Selected(i) Then List1.RemoveItem i
    Next i
End Sub

[PT Exorcist]

yes u right just some stupid supostion i made because i thought he would have to select each and every single line lol just forget it nvm

[peet]

ok

did the delete routine work as u wanted it to ?

[PT Exorcist]

yessssss :-)