Referecing a listbox created "on the fly"

[vonehle]

I'm trying to add data to some listboxes that were created on the fly. Each listbox was named "lstPL" & intPlayers in a loop. I can't figure out how to reference these listboxes in a loop later on.

The portion "lstPL(intPlayers)" is incorrect. How do I do this?

While intDealCard <= 51
lstPL(intPlayers).Items.Add(DealCards.ShuffleCards(intDealCard).numbers _
& DealCards.ShuffleCards(intDealCard).suit)
intDealCard += 1
EndWhile

 

[mansii]

Perhaps you need to loop through each control in your class, then get it when it meets your criterias:

'Declare a listbox type control
Dim lst As ListBox
'Loop through each control
For Each ctr As Control In Me.Controls
   If TypeOf ctr Is ListBox Then
      If ctr.Name = "lstPL" & intPlayers Then
         lst = ctr
         Exit For
      End If
   End If
Next

If lst Is Nothing Then Exit Sub

While intDealCard <= 51
   lst.Items.Add(DealCards.ShuffleCards(intDealCard).numbers _
   & DealCards.ShuffleCards(intDealCard).suit)
   intDealCard += 1
EndWhile

Good luck

 

[bboffin]

An alternative is to add each listbox to an array of listboxes as you create them. You can then use sort of syntax that you originally tried.

Dim lstPL(intPlayers) as ListBox

' create each list box and add it to the array
For i as integer = 1 to intPlayers
    lstPL(i) = New ListBox
    ' add any other initialisation required here
    With lstPL(i)
    .
    .
    .
    End With  
Next

Bob Boffin

 

[SBendBuckeye]

Hello,

Check out this FAQ: Get control by name using reflection faq796-5698