Discussion :

[koadig]

Bonjour,
Je voudrais faire référence à un nom de label grace à une variable de type String. Comment faire ?
voila ce que je voudrais (mais qui bien sûr ne fonctionne pas) pour des labels nommés "lab1", "lab2", "lab3" (en fait j'en ai 18 labels, mais bon...):

Code :

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

1
2
3
4
For j As Integer = 1 To 3
Dim MyNam As String=string.Format("lab{0}", j)
MyNam.BackColor = Color.red
Next j

Comme MyNam reste une variable STRING, impossible de la faire passer pour le nom du label.

Merci

[Jérôme Lambert]

Comme ceci :

Code :

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

1
2
3
4
Dim Con As Control
Dim Lab As Label
Con = Me.Controls(Me.Controls.IndexOfKey("label_toto"))
Lab = CType(Con, Label)

Controls contient en fait la liste des contrôles.

[JauB]

si tu veux mettre la BackGround de tous tes labels qui sont sur ta forme alors tu peux utiliser un truc de type :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim obj AsObject
ForEach obj InMe.Controls
If obj.GetType.Name = "Label" Then
obj.BackColor = Color.Red
Else
'MsgBox("non")
'....
EndIf
Next
EndSub

si ça ne t'aide pas, on est encore là

[koadig]

Merci, Cardi, ça marche nikel comme ça !


Et merci à toi aussi JauB.
Ce n'est pas l'ensemble des label que je veux changer, mais ton exemple est super interessant (qu'est ce qui ne l'est pas pour un débutant ?)
Je le garde ds ma tête (et sur un fichier txt )

Merci à vous.

voila ce que j'ai fait, si cela peut servir à un autre debutant.
(Je ne suis pas trop sur du coté nikel de ma bidouille "ZeTransform")

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
        Dim Con As Control
        Dim Lab As Label
        Dim ZeTransform As String
 
        For j As Integer = 1 To 18
            ZeTransform = j
            Con = Me.Controls(Me.Controls.IndexOfKey("Lab" + ZeTransform))
            Lab = CType(Con, Label)
            Lab.BackColor = Color.AliceBlue
        Next j

[JauB]

Bon courage

[harry25]

Bonjour,
J'avais besoin de ce "bout de code" mais il ne marche pas chez moi :
J'ai le message "IndexOfKey is not a member of System.Web.UI.ControlCollection"...

Merci, Cardi, ça marche nikel comme ça !


Et merci à toi aussi JauB.
Ce n'est pas l'ensemble des label que je veux changer, mais ton exemple est super interessant (qu'est ce qui ne l'est pas pour un débutant ?)
Je le garde ds ma tête (et sur un fichier txt )

Merci à vous.

voila ce que j'ai fait, si cela peut servir à un autre debutant.
(Je ne suis pas trop sur du coté nikel de ma bidouille "ZeTransform")

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
        Dim Con As Control
        Dim Lab As Label
        Dim ZeTransform As String
 
        For j As Integer = 1 To 18
            ZeTransform = j
            Con = Me.Controls(Me.Controls.IndexOfKey("Lab" + ZeTransform))
            Lab = CType(Con, Label)
            Lab.BackColor = Color.AliceBlue
        Next j

[SaumonAgile]

Bonjour,
J'avais besoin de ce "bout de code" mais il ne marche pas chez moi :
J'ai le message "IndexOfKey is not a member of System.Web.UI.ControlCollection"...

C'est normal, si tu regardes bien, ce topic est dans le forum Winforms. Toi, tu developpes une application ASP.NET

[harry25]

C'est normal, si tu regardes bien, ce topic est dans le forum Winforms. Toi, tu developpes une application ASP.NET

Effectivement je développe en ASP.NET et en cliquant sur le lien que tu avais donné je n'ai pas fait attention à ce que ce topic étant dans le Forum WinForms...
Je vais donc regarder du côté de FindControl...

Merci encore.

[JauB]

je pense que c'est utilisé dans le framework 2.0.
tu utilises quel framework en fait?

[JauB]

oui lui il travailles en asp.net mais ça doit fonctionner aussi. mais je pens eque c'est toujours un problème de version de framework!