Discussion :

[nabileon]

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

Code :

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

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

[Rainui]

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.

[rv26t]

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 :

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

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 :

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

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é.

[nabileon]

merci