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

4 réponses

  1.
    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
    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
    2. 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
  2. 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
    1. Val
       
      ca a marcher
      0
  3. 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

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