Bonjour,

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

Voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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

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