Code en vb6 vide les champs de texte ??? [Résolu/Fermé]

Signaler
-
 Val -
Bonjour,
je suis debutante en vb6 j'essaye de faire un pt pg qui gere les client ajout/supp/mod
j'ai une boutton vider lorsque je click les champs se vide ???
nom
prenom
date et lieu de naissance
adresse
cin
et 3 bouttons: quitter vider ok(pour valider l'ajout)

4 réponses

Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 160
Oui avec un For Each ... Next

Dim ctl As Control

    For Each ctl In Me.Controls
        If TypeOf ctl Is TextBox Then
            ctl.Text = ""
        End If
    Next


;o)
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

je vous remercie d'abord polux,j'ai essayé votre méthode,mais il n'efface pas le combox!! j'ai arrivé juste à vider les textBox,vous pouvez m'aidez?
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 160
Bonjour,

Sur l'exemple donné effectivement ça ne concerne que les contrôles TextBox, pour les contrôles ComboBox il faut l'ajouter dans la condition:

Dim ctl As Control

    For Each ctl In Me.Controls
        If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
            ctl.Text = ""
        End If
    Next
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 160
Bonjour,

Sur l'évènement click du bouton "Vider" (CommandButton1_Click()) tu mets ce code:

nom.Text = ""  
prenom.Text = "" 
date.Text = "" 
lieu_de_naissance .Text = "" 
adresse.Text = "" 
cin.Text = ""  


;o)
merci
j'ai fé comme ca mé si j'ai bcp de champ ya pas une autre methode ??
boucle ou qq chose plus simple ??
meci bien de votre aide ;)