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
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
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
Le cas panel est rappelé pour traiter les TextBox et Combo contenu dans celui-ci.
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
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
A+, Hervé.
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager