vb.net Zugriff auf generierte Labels

[Steffen (Gast)]

Hallo zusammen,

ich generiere dynamisch, je nach dem wie viele ich brauche, Labels. Wie 
bekomme ich das hin das ich im nachhinein diese benutzen kann? oder 
andersherum, wie übergebe ich dem Eventhandler Werte?

AddKey_form()
Zu erst werden die Labels erzeugt

lbn
Eventhandler

Oder gibt es einen andern Weg diese Labels zu benutzen?

 Private Sub AddKey_form(ByVal count As Long)
        Dim xPos As Integer = 0
        Dim yPos As Integer = 0
        Dim n As Long = 0

        Dim lbnArray(CInt(count)) As System.Windows.Forms.Label
        For i As Integer = 0 To CInt(count - 1)
            lbnArray(i) = New System.Windows.Forms.Label
        Next i

        xPos = 12
        yPos = 26
        n = 0

        While (n < count)
            With (lbnArray(CInt(n)))
                If count Mod 2 = 0 Then
                    If (n = Math.Round(count / 2, 0)) Then 
                        xPos = 156
                        yPos = 26
                    End If
                Else
                    If (n = Math.Round(count / 2, 0) + 1) Then 
                        xPos = 156
                        yPos = 26
                    End If
                End If
                .BackColor = Color.White
                .ForeColor = Color.Black
                .TextAlign = ContentAlignment.MiddleLeft
                .Name = "lbn" & n + 1
                .Tag = n + 1 
                .Width = 90  
                .Height = 19 
                .Left = xPos   
                .Top = yPos
                ' Add label to a Panel:            
                GroupBox4.Controls.Add(lbnArray(CInt(n))) 
                AddHandler .TextChanged, AddressOf Me.lbn
                yPos = yPos + 32
                n = CByte(n + 1)
            End With
        End While

 End Sub

Public Sub lbn(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.TextChanged
        Dim lbnarray As Label = CType(sender, Label)
        lbnarray.text = "Text"

End Sub

[Peter II (Gast)]

Steffen schrieb:
> Wie
> bekomme ich das hin das ich im nachhinein diese benutzen kann?

Die Liste einfach Klassen-Global mahen
> Dim lbnArray(CInt(count)) As System.Windows.Forms.Label


> oder andersherum, wie übergebe ich dem Eventhandler Werte?
machst du doch schon

AddHandler .TextChanged, AddressOf Me.lbn

[Steffen (Gast)]

Peter II schrieb:
> Die Liste einfach Klassen-Global mahen
>> Dim lbnArray(CInt(count)) As System.Windows.Forms.Label

jo hats gebracht, Danke. Manchmal hilft ein kleiner Denkanstoß :-)