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

Messages postés
491
Date d'inscription
mercredi 1 février 2006
Dernière intervention
18 novembre 2016
- - Dernière réponse : cs_ShayW
Messages postés
3241
Date d'inscription
jeudi 26 novembre 2009
Dernière intervention
26 novembre 2018
- 11 nov. 2013 à 22:51
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
'**********************************************
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
3241
Date d'inscription
jeudi 26 novembre 2009
Dernière intervention
26 novembre 2018
1
Merci
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)

        Next
 

Merci cs_ShayW 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

Commenter la réponse de cs_ShayW
Messages postés
491
Date d'inscription
mercredi 1 février 2006
Dernière intervention
18 novembre 2016
0
Merci
Salut cs_ShayW
Ca marche super, merci beaucoup! ;)
Commenter la réponse de jimy neutron
Messages postés
3241
Date d'inscription
jeudi 26 novembre 2009
Dernière intervention
26 novembre 2018
0
Merci
N'oublie pas de cliquer résolu
Commenter la réponse de cs_ShayW

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.