Discussion :

[aktaanos]

Bonjour,
j'aimerais récupérer le numéro d'implémentation lors de la création du label ajouté dynamiquement de la façon suivante

Code :

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

1
2
3
4
5
6
Dim my_ope As Control
dim bla as integer
With UserForm2
        Set my_ope = .Controls.Add("Forms.label.1", "barre_" & compt, True)
        ' bla = controls.name("barre_" & compt).item
end with

sans passer par une recherche sur tous les éléments de my_ope
dans l'objectif de contrôler les différentes variables de l'objet
exemple:

Code :

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

1
2
Me.Controls.Item(bla).top = var_top
...

Merci par avance.

[BlueMonkey]

Bonsoir,

Si j'ai bien compris l'idée est d'accéder facilement à un élément créé dynamiquement depuis l'élément Controls.

Je vois au moins 2 options :
- utiliser le nom de l'objet comme index de Controls.

ex :

Code :

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

1
2
    Controls.Add("Forms.label.1", "barre_" & compt, True)
    Controls("barre_" & compt).Width = 10

- stocker le résultat de la création dynamique du contrôle dans un tableau de référence.
Pour y faire référence, il suffit d'avoir un indice servant d'identifiant dans ce tableau.

[fring]

Bonjour,

Ceci ne convient pas ?

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
16
Sub test()
Dim my_ope As Control
 
Set my_ope = UserForm2.Controls.Add("Forms.label.1", , True)
With my_ope
    .Top = 5
    .Left = 5
    .Width = 200
    .Height = 50
    .Caption = "TEST"
    .BackColor = vbYellow
    'etc...
End With
UserForm2.Show
 
End Sub

[kiki29]

Salut, et la propriété Tag elle sert à quoi ?

[aktaanos]

merci bluemonkey, je ne pensais pas utiliser cette méthode, mais elle fonctionne