[Débutant] vider les tout les champs text et combo dans un tabcontrol

vider les tout les champs text et combo dans un tabcontrol

salut les amis
j'ai essayer ce code mais ca marche pas
Code:

1 2 3 for each control in tabcontrol tabcontrol.textbox.clear next

Bonsoir,

Un TabControl contient des TabPages, il faut parcourir cette collection pour obtenir les contrôles affichés sur les TabPages.

Il vous faut aussi tester le type de contrôle avant d'effacer le .Text du contrôle pour vous assurer que c'est bien une TextBox.

Bonojur,

Le plus pratique est de faire une méthode qui vide les textes des contrôles que tu souhaites, et l'appeler dans une boucle sur tes TabPage

Code:

1
2
3
4
5
6
7
8
9
10
11
12
    Sub VideTexte(ByVal conteneur As Control)
        For Each ctrl As Control In conteneur.Controls
            Select Case True
                Case TypeOf ctrl Is TextBox
                    DirectCast(ctrl, TextBox).Text = ""
                Case TypeOf ctrl Is ComboBox
                    DirectCast(ctrl, ComboBox).Text = ""
                Case (TypeOf ctrl Is Panel)
                    VideTexte(ctrl)
            End Select
        Next
    End Sub

Le cas panel est rappelé pour traiter les TextBox et Combo contenu dans celui-ci.
Si tu as des GroupBox il faut faire pareils avec. (rajouter le cas GroupBox)
Le directcast est pour remettre le contrôle dans son type et avoir ainsi la possibilité d'utiliser les propriétés liées à ce type.

Appel

Code:

1
2
3
4
5
    Private Sub btnVider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVider.Click
        For Each tp As TabPage In TabControl1.Controls
            VideTexte(tp)
        Next
    End Sub

A+, Hervé.

merci :)