Discussion :

[Léa53]

Bonjour,

J'ai une liste de labels dans un table layout panel. Je souhaiterais les remplir avec les données d'un tableau.
Pour cela j'ai donc fait un for each qui les parcoure tous un à un pour les remplir.

Voici mon code : (lst_libelleQst est nom de mon tableau)

Code :

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

1
2
3
4
5
 
For Each label As Label In tlpPrincipal.Controls
	label.Text= lst_libelleQst(i)
	i=i+1
Next

Seulement, j'ai une erreur que je ne comprends pas a un certain moment de ma boucle :

Exception System.InvalidCastException was thrown in debuggee:
Unable to cast object of type 'System.Windows.Forms.TableLayoutPanel' to type 'System.Windows.Forms.Label'.

Si quelqu'un pourrait m'aider, merci d'avance

[stdebordeau]

cette boucle semble le forcer à convertir tous les controles en label.
essai plutot ça et dit moi si ça marche.

Code :

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

1
2
3
4
5
6
7
8
For Each label In tlpPrincipal.Controls
 
if label.getType.ToString = "label" then
	label.Text= lst_libelleQst(i)
	i=i+1
end if
 
Next

[Pol63]

c'est loin d'être très propre label.getType.ToString = "label"

Code :

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

1
2
3
4
5
6
7
 
For Each ctrl As Control In tlpPrincipal.Controls
    If Not TypeOf ctrl is Label Then Continue For
 
    DirectCast(ctrl,Label).Text =  lst_libelleQst(i)
    i=i+1
Next

(avec un peu de chance la propriété Text appartient à la classe Control et le DirectCast ne serait donc pas obligatoire)

[stdebordeau]

pourrais tu m'expliquer les dessous de la chose. pourquoi

Code :

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

label.getType.ToString = "label"

ne marche pas. merci

[StormimOn]

Parce que la représentation sous forme d'une chaîne d'un type fait apparaître l'espace de noms dans lequel est déclaré le type. Pour un Label on aurait System.Windows.Forms.Label.

Mais comme l'a indiqué sperot ce n'est pas propre car il existe tout ce qu'il faut pour tester les types sans avoir à passer par la chaîne de caractères correspondant au nom du type. Cette dernière solution apportant son lot de bugs divers et variés

Le code serait plutôt celui-ci par contre

Code VB.Net :

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

1
2
3
4
5
6
For Each ctrl As Control In tlpPrincipal.Controls
    If ctrl is Label Then 
        DirectCast(ctrl,Label).Text =  lst_libelleQst(i)
        i=i+1
    End If
Next

[stdebordeau]

Parce que la représentation sous forme d'une chaîne d'un type fait apparaître l'espace de noms dans lequel est déclaré le type. Pour un Label on aurait System.Windows.Forms.Label

car il existe tout ce qu'il faut pour tester les types sans avoir à passer par la chaîne de caractères correspondant au nom du type

C'est tout à fait claire. merci pour l'explication.

cependant je ne comprend pas pourquoi tu effectue la conversion en label avec directcast sachant que la condition d'entré dans la boucle est justement que le controle soit un label

[StormimOn]

Parce que l'on boucle sur des contrôles

Code :

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

1
2
3
For Each ctrl As Control In tlpPrincipal.Controls
...
Next

et si un label est un contrôle, un contrôle n'est pas forcément un label

D'un autre côté, la propriété Text étant définie sur la classe Control on pourrait effectivement faire

Code :

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

1
2
3
4
5
6
For Each ctrl As Control In tlpPrincipal.Controls
    If ctrl is Label Then 
        ctrl.Text =  lst_libelleQst(i)
        i = i + 1
    End If
Next

du moment que l'on utilise rien que ne soit spécifique à Label.

[Pol63]

s'il a une erreur de conversion c'est bien parce qu'il a posé autre chose qu'un label sur son tlpPrincipal

controls contient les controls enfants (labels, boutons et autre)

donc il faut tester le type et quand c'est le bon on peut le caster pour avoir l'intellisense

[Léa53]

Merci bcp pour toutes vos réponses.

En effet, j'ai remarqué que mon erreur venait du fait que dans mon table LayoutPanel je n'avait pas que des label et que du coup il essayait de convertir un control en label.

[Léa53]

Code :

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

1
2
3
4
5
6
For Each ctrl As Control In tlpPrincipal.Controls
    If ctrl is Label Then 
        ctrl.Text =  lst_libelleQst(i)
        i = i + 1
    End If
Next

En fait ce code ne marche pas, j'ai l'erreur : "label" is a type and cannot be used as an expression

[StormimOn]

C'est parce que j'ai écrit ça trop vite. Je fais du C# à la base (VB me donne des boutons ).

Mais en regardant le post un peu plus haut, tu aurais pu corriger par toi même

Code :

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

1
2
3
4
5
6
For Each ctrl As Control In tlpPrincipal.Controls
    If TypeOf ctrl Is Label Then 
        ctrl.Text =  lst_libelleQst(i)
        i = i + 1
    End If
Next

[Léa53]

Ah dsl...je savais pas.

Mais maintenant c'est bon ca marche. Merci bcp!