Discussion :

[eleomir]

Bonjour,

Je souhaite créer un contrôle dynamique sur une feuille différente.

Je m'explique :

J'ai deux Form
- FormPrincipale.vb
- FormConfig.vb

Dans FormConfig.Vb je crée un label dynamiquement que j'intègre dans un groupebox, jusque là tout fonctionne.

Je souhaite en même temps créer ce label dans la FormPrincipale.

J'utilise le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FormPrincipale.GroupeBox1.Controls.Add(Label1)

Mais le Label ne s'ajoute pas sur ma feuille principale.

Alors qu'avec le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

GroupeBox1.Controls.add(Label1)

Il s'ajoute bien dans Config.vb


Code dans la FormConfig.Vb

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    'Création du label
    Dim Label1 As New Label
 
    Label1.Left = 35
    Label1.Top = 35
    Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10)
    Label1.Text = "Label"
 
    'Ajoute le Label dans la feuille Config
    GroupeBox1.Controls.add(Label1)
 
    'Ajoute le Label dans la feuille principale
    FormPrincipale.GroupeBox1.Controls.Add(Label1)

Je vous remercie d'avance pour votre aide.

A noter que j'ai fait l'essai avec un groupebox de la feuille principale en Public.

[yonpo]

Salut,

As-tu essayé deux label avec un nom différent (label1 et label2)?

[Graffito]

Mais le Label ne s'ajoute pas sur ma feuille principale.

Bizarre, il me semble qu'il aurait du basculer de FormConfig vers FormPrincipale.

En tout état de cause, il faut créer 2 labels (un par forme).

[chrismonoye]

Bonsoir,
En effet, il faut créer une nouvelle instance de l'objet Label pour chaque Form, (Dim ... New).
On peut donc créer une procédure unique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Private Sub AjoutCrl(ByVal group As GroupBox)
 
        'Création du label
        Dim Label1 As New Label
 
        Label1.Left = 35
        Label1.Top = 35
        Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10, FontStyle.Bold)
        Label1.Name = "Label1"
        Label1.Text = Label1.Name
 
        'Ajoute le Label dans la feuille Config
        group.Controls.Add(Label1)
 
    End Sub

et l'utiliser pour autant de form que l'on veut, par exemple depuis FormConfig :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        AjoutCrl(Me.GroupeBox1)
        AjoutCrl(FormPrincipale.GroupeBox1)

[eleomir]

Merci pour vos réponses.

Je viens de regarder et effectivement il fallait créer une nouvelle instance de l'objet Label.

Je pensais que je pouvais utiliser le même objet et l'ajouter sur les deux forms à la fois mais il faut juste en créer un second.