Listboxes

Yes however that was in VB.Net.

Any help with this in VB Classic?

Hi,

I've searched the net and I didn't find anything. I found some adapted ocx files but no tutorials about this. I'm wondering if this is possible, I 'm curious.

Hi,

I found a solution:

Dim intIndex As Integer
Dim intCheckIndex As Integer

'Loop trough standard box list3
intIndex = 0
Do While intIndex < Form1.List3.ListCount
'Loop trough check-Listbox list2
intCheckIndex = 0
Do While intCheckIndex < Form1.List2.ListCount
If Form1.List3.List(intIndex) = Form1.List2.List(intCheckIndex) Then
List2.Selected(intCheckIndex) = True
End If
intCheckIndex = intCheckIndex + 1
Loop
intIndex = intIndex + 1
Loop

My problem was how to set the checkbox of the item to true.
=> List2.Selected(intCheckIndex) = True

Learned something :)

Thanks you guys are great. (Sometimes my mind just can't wrap around these things)

If your list contains, say, 10 items, they will be List(0) through List(9). If you check 4 of them, SelCount will return 4. But you don't want to save the first 4 items in the list (which is what your code is doing), you want to save the items that are checked.

You'll need to loop through the entire list and only save those items that are Selected.

OK, meet me halfway. ;-) Post the code to loop through the entire list, and I'll add the code to check if each item is Selected (that's a hint, by the way).

I would have done it this way (doesn't require removing items from the list):

For I = 0 To chkList.ListCount - 1
If chkList.Selected(I) Then
SaveSetting "MyProgram", "Settings", chklist.List(I), "True"
End If
Next