Listbox selected items

[CsJHUN]

Hi guys,
Here is the code which i know of, which loop thru listbox items

for i = 0 to listbox_something.listitems-1
...
next i

Is there any faster way to check if the item is selected? I currently have 4 listbox, with combined 600+ possibilities (all cascade other one until 4th level) and its feels pretty slow.

The code below just checking if anything is selected:

For i = 0 To box_group.ListCount - 1
If box_group.Selected(i) = True Then group_count = group_count + 1
Next i
For i = 0 To box_one.ListCount - 1
If box_one.Selected(i) = True Then process_count = process_count + 1
Next i
For i = 0 To box_language.ListCount - 1
If box_language.Selected(i) = True Then language_count = language_count + 1
Next i
For i = 0 To box_printitem.ListCount - 1
If box_printitem.Selected(i) = True Then printitem_count = printitem_count + 1
Next i
If printitem_count < 1 Or group_count < 1 Or process_count < 1 Or language_count < 1 Then Exit Sub

And this is just the warmup part.
I also turned off: app.displayalerts, .screenupdating, .calulcation, .enableevents

 

[Fluff]

If they are all multi-select listboxes, then I think looping through them is the only option.

I also turned off: app.displayalerts, .screenupdating, .calulcation, .enableevents

This won't make any difference

 

[dmt32]

Hi,
If you code is just checking that a selection has been made in each listbox, then should be able to condense it a little by using a single function

Place code either in standard module or your forms code page

Function AllSelected(ByVal Form As Object) As Boolean
    Dim i As Long
    Dim ListBox As Variant
   
    For Each ListBox In Array(Form.box_group, Form.box_one, Form.box_language, Form.box_printitem)
        For i = 0 To ListBox.ListCount - 1
          AllSelected = ListBox.Selected(i)
          If AllSelected Then Exit For
        Next i
          If Not AllSelected Then Exit For
    Next ListBox
End Function

and to use

If Not AllSelected(Me) Then Exit Sub

Solution not tested and I am afraid, still loops through each list (I personally, am not aware of any other approach) so may not resolve your speed issue.

Hope Helpful

Dave