Choisir le type de Controls

Bonjour,

Je suis face à un problème que j'avais réussi a résoudre il y a quelques temps mais dont j'ai oublié la solution avec le temps. Malgré de très nombreuses recherches il m'est impossible de retrouver la solution...

Pour modifier rapidement le borderstyle de plusieurs dizaines de label, il y a ce code

Code:

---

1 2 3 4

For NB = 0 To 9 Controls("CARRE_LBH_C" & NB & "L").BorderStyle = BorderStyle.Fixed3D Next

---

Or BorderStyle ne fait pas partie de Controls. Pour ce faire il faut lui dire que le fameux controls est un label.
Mais je ne me souviens plus de l'écriture précise, je sais juste que c'est un truc du genre:

Code:

---

1 2 3 4 5

Controls(label,"CARRE_LBH_C" & NB & "L").BorderStyle = BorderStyle.Fixed3D 'ou Controls.label("CARRE_LBH_C" & NB & "L").BorderStyle = BorderStyle.Fixed3D

---

Voila, merci d'avance pour votre aide ;-)

Bonsoir,

Essaie avec ça :

Code:

---

1 2 3 4 5 6 7 8 9

For NB = 0 To 9 Dim lbl As Label = DirectCast(Me.Controls("CARRE_LBH_C" & NB & "L"), Label)'au lieu de me, mettre panel ou groupbox ou autre chose si tes labels sont dans un conteneur lbl.borderStyle = BorderStyle.Fixed3D next

---

Sincèrement

Bonsoir,

Il existe de nombreuses façons de sélectionner les composants d'un type donné.

En voici une qui devrait te convenir :

Code:

---

1 2 3 4 5 6 7 8

For Each ldl As Label In Me.Controls.OfType(Of Label)()   ' traiter ici le Label comme souhaité, par exemple :   lbl.borderStyle = BorderStyle.Fixed3D   Next

---

J'espère que ceci te dépannera ...

:D

Yes nickel,

Ce n'était pas ça exactement ma solution de la dernière fois mais cette manière fonctionne parfaitement ! Merci Elthorn! :zoubi:

Code:

---

1 2 3 4

For NB = 0 To 9 DirectCast(Controls("CARRE_LBH_C" & NB & "L"), Label).BorderStyle = BorderStyle.Fixed3D Next

---

Merci également Phil Rob, ta technique fonctionne également!

:D