Code en vb6 vide les champs de texte ???

Résolu/Fermé
minoula2006 - 2 sept. 2009 à 10:17
 Val - 17 juil. 2016 à 22:52
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)
A voir également:

4 réponses

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
2 sept. 2009 à 10:53
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
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?
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
17 nov. 2011 à 17:00
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
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
2 sept. 2009 à 10:26
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)
0
ca a marcher
0
merci
j'ai fé comme ca mé si j'ai bcp de champ ya pas une autre methode ??
boucle ou qq chose plus simple ??
0
meci bien de votre aide ;)
0