Discussion :

[Gdal]

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

[bidou]

Code :

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

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

[Gdal]

Impect merci !

J'y retourne

Gwendal