Discussion :

[Tchebichef]

Bonjour,

Je ne comprends pas pourquoi ce code génère une erreur :

Code :

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

1
2
3
For Each tb As TextBox In Me.Controls
            tb.Text = ""
        Next

L'erreur est :
Impossible d'effectuer un cast d'un objet de type 'System.Windows.Forms.Button' en type 'System.Windows.Forms.TextBox'.
Pourquoi est ce que VS me parle de System.Windows.Forms.Button ?
D'avance merci !

[mactwist69]

Hello,

Parce que quand tu fais appels à Me.controls, il va chercher tous tes controls... donc les boutons, les textbox et autres...

Donc ta boucle cherche le premier control, un bouton, et là il essaie de le caster dans un Textbox vu que dans ta boucle tu castes tous les controls dans ta variable tb.

Il faut plutôt faire un truc du style :

Code :

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

For each ctr as control in Me.Controls

puis tester ce control :

Code :

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

if ctr.Gettype = ....

La je me souviens plus, si on test le nom "textebox" ou si faut tester le type textbox, je pense que tu vas trouver facilement.

[Tchebichef]

Merci pour ton aide.
N'arrivant pas à utiliser GetType, j'ai utilisé TypeOf :

Code :

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

1
2
3
4
5
For Each ctrl As Control In Me.Controls
            If TypeOf ctrl Is TextBox Then
                ctrl.Text = ""
            End If
        Next

Et ça fonctionne.
Encore merci et bonne journée

[sinople]

J'attire ton attention sur le fait qu'un control tel qu'un panel possède sa propre collection de control (pouvant contenir des textbox par exemple).

Pour être exact, ta boucle doit aussi vérifier la propriété HasChildren du Control et le cas échant faire un appel récursif sur la liste interne des controls.