Discussion :

[harry25]

Bonjour à tous,
Comment éviter d'écrire ces 20 lignes ?
Label1.Text = ChargementActivites("QD3a", 1)
Label2.Text = ChargementActivites("QD3a", 2)
...
Label20.Text = ChargementActivites("QD3a", 20)


Est-ce qu'une boucle de ce style est possible ?
for I = 1 to 20
Label+I.text = ChargementActivites("QD3a", I)
Next

Quelle syntaxe utilisée pour Label+I.text (je sais que c'est n'importe quoi mais c'était pour expliquer ) ?

Par avance, merci.

[SaumonAgile]

Tu peux effectuer une recherche sur le forum, c'est une question assez récurrente, tu devrais trouver ta solution

[harry25]

Tu peux effectuer une recherche sur le forum, c'est une question assez récurrente, tu devrais trouver ta solution

Je veux bien mais avec quels mots clés faire la recherche ?
Ceux que j'avais mis ne donnent rien ou me donnent des centaines de pages...

Ce n'est pas dans mes habitudes de poser une question avant d'avoir chercher...

[SaumonAgile]

http://www.developpez.net/forums/sho...ight=controles

[Aspic]

Salut,

Tu as aussi cette possibilité :

Code :

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

1
2
3
4
5
For Each ctrl As Control In Me.Controls 'liste tous les controles 
            If TypeOf ctrl Is Label Then 'si c'est un label
                ctrl.Text = "Cool"
            End If
        Next

Bonne chance

[harry25]

http://www.developpez.net/forums/sho...ight=controles

Le code (ci-dessous) proposé dans ce post, ne marche pas chez moi :

Code :

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

1
2
3
4
5
6
7
8
9
10
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

J'ai le message "IndexOfKey is not a member of System.Web.UI.ControlCollection"...

[harry25]

Salut,
Merci pour l'info (ce me servira surement plus tard ) mais je n'ai que quelques label a modifié dans ma boucle...
J'ai donc regardé le code proposé dans le lien de SaumonAgile mais hélas ca ne marche pas (cf. mon post à ce sujet...)

Salut,

Tu as aussi cette possibilité :

Code :

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

1
2
3
4
5
For Each ctrl As Control In Me.Controls 'liste tous les controles 
            If TypeOf ctrl Is Label Then 'si c'est un label
                ctrl.Text = "Cool"
            End If
        Next

Bonne chance

[SaumonAgile]

J'ai le message "IndexOfKey is not a member of System.Web.UI.ControlCollection"...

Hmmm, si tu ne précises pas que c'est une application ASP.NET, ce n'est pas étonnant que les solutions proposées ne fonctionnent pas...
Le code fonctionne en effet pour une application winforms.

Regarde alors du côté de la méthode

Code :

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

Control.FindControl (String)

[Aspic]

Hmmm, si tu ne précises pas que c'est une application ASP.NET, ce n'est pas étonnant que les solutions proposées ne fonctionnent pas...

AH ok donc c'est normal aussi que ma solution ne fonctionne pas

[harry25]

Hmmm, si tu ne précises pas que c'est une application ASP.NET, ce n'est pas étonnant que les solutions proposées ne fonctionnent pas...
Le code fonctionne en effet pour une application winforms.

Regarde alors du côté de la méthode

Code :

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

Control.FindControl (String)

J'ai remplacé :
Con = Me.Controls(Me.Controls.IndexOfKey("Lab" + ZeTransform))
par :
Con = Page.Master.FindControl("ContentPlaceHolder1").FindControl("Lab" & ZeTransform)
Et ca marche
J'ai eu du mal avec le "Page.Master", heureusement que j'ai trouvé un post à ce sujet dans le forum...

Donc pb résolu, merci.