Problems with listBox???

'Lo...

having trouble rigging a listbox to handle a variable request...

my code below is 'hardwired' to handle a list of up to 3 items..

Code:

---

Private Sub listClients_Click()

            If listClients.Selected(0) Then
   
                txtSelected.Text = listClients.Text

            End If
           
            If listClients.Selected(1) Then
   
                txtSelected.Text = listClients.Text

            End If
           
            If listClients.Selected(2) Then
   
                txtSelected.Text = listClients.Text

            End If
End Sub

---

But what if I don't know the length of the listbox?

Here's what I've tried that doesn't work...

Code:

---

Private Sub listClients_Click()

  DIM r, k

  k = listClients.listcount

  For r = 0 to k

            If listClients.Selected(r) Then
   
                txtSelected.Text = listClients.Text

            End If
  Next r
           
End Sub

---

Which gives me a complie error that says that there's an invalid property array index...and it then points to the "If listClients.Selected(r) then" line...

Can someone fine tune this or point me in the right direction?

Thanks...

Jim

make
k=listclients.listcount-1

because the listbox starts at zero, not one.


-George

Make sure txtSelected is set to MultiLine.

VB Code:

Private Sub listClients_Click()
Dim i As Long
For i = listClients.ListCount - 1 To 0 Step -1
    If listClients.Selected(i) = True Then
      txtSelected.Text = listClients.List(lstClients.ListIndex)
    End If
Next
End Sub

Hmm....

Thanks...remembered to start my hardwired one with (0) but never thought of that fix!

Tip-O-the-Hat!

Jim

Why are you checking for its list index?????


all you need is:



txtSelected.Text = listClients.Text


This will work with any number of entries... I dont see why you have the if statements?

Nevermind -- got it myownself!


;-)



Jim