-
How can I get the list items into a label boxes? I have 20 Label boxes (label1(0) Label1(1) etc...) and a list box.
Now I need to get list items into a label box, so that item 1 goes to label1(0), item 2 goes to label1(1) etc...
How can I do this?
This won't work:
dim count as integer
count = 0
while count < n do
item_val = label1(count)
list1.additem(item_val)
count = count + 1
loop
And how can I remove items from listbox (style=checked)
This won't work correctly:
i = 0
intMaxItems = List1.ListCount - 1
Do While i <= intMaxItems
If List1.Selected(i) = True Then
List1.RemoveItem i
intMaxItems = intMaxItems - 1
Else
i = i + 1
End If
Loop
Thank you!
-
Go and have a look in your mailbox.
------------------
Have Fun.
Maartin.
[email protected]
-----------------------
-
It is very easy to do.
Code:
Dim i As Integer
For i = 0 To List1.ListCount - 1
Label(i) = List1.List(i)
Next
------------------
Serge
Senior Programmer Analyst
[email protected]
[email protected]
ICQ#: 51055819
