For Each problemeRésolu

Question

Bonjour,
bon voila, je fais un travail pour l'école. Je tente de faire un For each et ça ne fonctionne pas. Je veux que mon for each prennent tous les TextBox du formulaire et les efface. voici mon bout de code

   Private Sub btnEffacer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEffacer.Click
        Dim i As New TextBox
        For Each i In Me.Controls
            EffacerContenu(i)
        Next
    End Sub

    Private Sub EffacerContenu(ByVal contenu As Control)
        contenu.Text = ""
    End Sub

Il n'y a pas d'erreur détecté. Mais lorsque je démarre le déboguage et je pèse sur le bouton effacer l'erreur suivante apparaît:
Unable to cast object of type 'System.Windows.Forms.PictureBox' to type 'System.Windows.Forms.TextBox'.

Svp, repondez-moi. Je vous remercis de partager vos connaissances avec moi :P

jnbrunet · Accepted Answer

tu as probablement mis les textbox dans un GroupBox

Solution: 

Dim i As Control
        For Each i In TonGroupeBox.Controls
            If TypeOf i Is TextBox Then i.Text = ""
        Next i

-Jn-

jmfmarques · Answer

Bonsoir 

Oui ?
 Dim i As New TextBox ne sert à rIen dès lors que tu écris ce que tu écris ensuite 

La  propriété text ne s'appliquant qu'aux textboxes, il ne faut pas t'étonner de ce que ta boucle, qui parcourt tous les contrôles, génère une erreur lorsque le contrôle sur lequel elle arrive n'est pas une textbox !

Suggestion : intéresse-toi  à TypeOf (aide en ligne) et utilise-le pour ne traiter que tes textboxes

cs_casy · Answer

Vu ton code, tu n'es pas en VB6 comme la rubrique ou tu as posté le suggere mais bien en VB.Net

Quelques petites corrections à ton code :

        Private Sub btnEffacer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
btnEffacer.Click
                Dim i As Control
                For Each i In Me.Controls
                        EffacerContenu(i)
                Next
        End Sub

        Private Sub EffacerContenu(ByVal contenu As Control)
                If TypeOf contenu Is TextBox Then
                        contenu.Text = ""
                End If
        End Sub

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

cs_casy · Answer

Tu pourrais aussi faire ceci, plus propre même puisque moins d'appel de fonction.

        Private Sub btnEffacer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles  btnEffacer.Click
                Dim i As Control
                For Each i In Me.Controls
                        If TypeOf contenu Is TextBox Then EffacerContenu(i)
                Next
        End Sub

        Private Sub EffacerContenu(ByVal contenu As Control)
                contenu.Text = ""
        End Sub

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

cs_casy · Answer

zut, faut lire If TypeOf i Is TextBox Then EffacerContenu(i)

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

jmfmarques · Answer

coucou !
Pourquoi l'enviyer systématiquement à EffacerContenu ?

Je ferais plutôt ce test de TypeOf dans la boucke elle même pour faire une économie de va et vient...

jmfmarques · Answer

Ahhhh... Voilà ...

Sauf s'il veut faure des tests différents, selon des contrôles différents, avec des effets différents...
Nous y sommes, maintenant

Babynini · Answer

Je suis désolée d'avoir posté dans la mauvaise section.
Pour ce qui est de tes réponses casy, cela ne fonctionne pas, rien ne s'efface :(

merci beaucoup de vos réponses.

jmfmarques · Answer

Corrige (lis la correction de Casy)

If TypeOf contenu Is TextBox Then 
EffacerContenu(i)
¨par
If TypeOf i 
Is TextBox Then EffacerContenu(i)

Babynini · Answer

oui, j,avais remarqué l'erreur, mais ça ne fonctionne pas quand même :(

Merci encore

jmfmarques · Answer

Ih ....

Alors essaye directement et dis-nous (il y a ubn truc, là ...)

Private Sub btnEffacer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEffacer.Click
                Dim i As Control
                For Each  i  In Me.Controls
                        If TypeOf i Is TextBox Then 
i.text = ""
          Next
        End Sub

jmfmarques · Answer

Hé... dis-nous aussi :

ce code est mis sur quelle Form ?
Sur celle des textboxes à effacer, j'espère ....

jmfmarques · Answer

Et ce sont bien des TextBoxes, que tu veux effacer ? Par un autre contrôle (des RichTextBoxes, par exemple ...) ?

Babynini · Answer

Oui, j'utilise bel et bien le bon form...

Pour ce qui est des textbox, on dirait qu'il ne veut pas la faire pour les textbox, mais j'essais avec exemple, le maskedtextBox et sa fonctionne.... :O

Babynini · Answer

Oui ce sont les textboxes que je veux effacer! j'en ai comme 6. J'ai vérifié pour être certaine et c'est des textbox

Babynini · Answer

Bon, ce n'est pas grave, je vais le faire pour chaque textbox.

Merci beaucoup de votre aide

Babynini · Answer

merci beaucoup jnbrunet, tu as réglé mon probleme

For Each probleme

17 réponses

Votre réponse

Discussions similaires