Sujet Précédent Sujet Suivant

Code en vb6 vide les champs de texte ???

Résolu
minoula2006 -  
 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)
Configuration: Windows XP Internet Explorer 7.0
A voir également:

4 réponses

Réponse 1 / 4
Polux31 Messages postés 7219 Statut Membre 1 204
 
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
Miss
 
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 7219 Statut Membre 1 204
 
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
Réponse 2 / 4
Polux31 Messages postés 7219 Statut Membre 1 204
 
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
Val
 
ca a marcher
0
Réponse 3 / 4
minoula2006
 
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
Réponse 4 / 4
minoula2006
 
meci bien de votre aide ;)
0

Discussions similaires

le frigo ne marche pas....
Nemo6456 -
Templier Nocturne -

1 réponse
Formaté mais pas de connexion Internet ?
VissErale -
VissErale -

4 réponses
Excel formule : nb.si.ens et critère "différent de vide"
lelion4 -
Mick -

11 réponses