[VB.Net]_Boucle For each et button ?

Bonjour,

J'ai un formulaire contenant différents contrôles, dont des boutons dont je voudrais changer l'icône.

Voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Public Class Form1   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click   Me.TextBox1.Text = ""   'L'erreur est ici, il ne veut pas de button 'For Each ctrl As Button In Me.Controls   For Each ctrl As Control In Me.Controls Me.TextBox1.Text += ctrl.Name & vbCrLf   'ctrl.Image = Global.Parc_Véhicule.My.Resources.btInfos   Next ctrl   End Sub   End Class

---

Lorsque je mets For Each ctrl As Button In Me.Controls, l'erreur est la suivante

Citation:

---

L'exception System.InvalidCastException n'a pas été gérée
Message="Impossible d'effectuer un cast d'un objet de type 'System.Windows.Forms.TextBox' en type 'System.Windows.Forms.Button'."

---

Si je mets Control à la place de button, je n'ai pas accès à la propriété image de ctrl.

Comment dois-je m'y prendre

Merci d'avance

Gwendal

Code:

---

1 2 3 4 5 6

For Each ctrl As Control In Me.Controls If TypeOf ctrl Is Button Then CType(ctrl, Button).Image = Global.Parc_Véhicule.My.Resources.btInfos   End If Next

---

Impect merci ! :king:

J'y retourne :arf:

Gwendal