Discussion :

[MrChocolat]

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 :

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

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 :

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

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 ;-)

[Delaney]

Bonsoir,

Essaie avec ça :

Code :

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

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

[Phil Rob]

Bonsoir,

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

En voici une qui devrait te convenir :

Code :

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

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 ...

[MrChocolat]

Yes nickel,

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

Code :

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

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!