Comment créer une collection d'ojets DYNAMIQUEMENT?Résolu

Question

Bonjour, 

Et bien je crois que la question est posée.

Je créé des panels (PanViewer_01...02...03) dans une collection MyPanCollection.

For A=1 to Nbx
        Dim Viewer As Panel = Nothing

' Creation 
        Viewer = New Panel()
        With Viewer
            .Tag = ThisTag
            .Name = "PaneViewer_" & ThisTag
            .Width = 1
            .Height = H_PictViewer
            .Location = New Point(LocationX, 0)
            .Visible = True
            .BorderStyle = BorderStyle.None
            .BackColor = Color.LightGreen
            .BringToFront()
            .Cursor = Cursors.VSplit
        End With

'ajout d'un gestionnaire d'événement 
        AddHandler Viewer.MouseClick, AddressOf Viewer_MouseClick

MyCollec_Viewer.Add(Viewer)
        Main.PictViewer.Controls.Add(Viewer)
Next

Pour chaque "PanViewer" créé, je souhaite créer trois labels à la périphérie de ce panel, dans une autre collection. C'est là que j'ai des difficultés, comment créer  dynamiquement une collection de labels lors de la creation du panel.

Jimy

Pensez: Réponse acceptée
'**********************************************

cs_ShayW · Answer

Salut
donc
chaque panel a  3 labels 
peut  etre ainsi 
Dim listlab As New List(Of Label)
        Dim mylabel As Label
        For iter As Integer = 1 To 3
            mylabel = New Label
            With mylabel
                'blabla
            End With
        Next

Viewer = New Panel()

For Each lab As Label In listlab
            Viewer.Controls.Add(lab)

jimy neutron · Answer

Salut cs_ShayW 
 Ca marche super, merci beaucoup! ;)

cs_ShayW · Answer

N'oublie pas de cliquer résolu

Comment créer une collection d'ojets DYNAMIQUEMENT?

3 réponses

Votre réponse

Discussions similaires