Code en vb6 vide les champs de texte ???

Résolu
minoula2006 -  
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

  2.  Polux31
    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?
    2. Polux31
      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
  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 ??
    1. Polux31
      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)

    Discussions similaires

    le frigo ne marche pas....
    Nemo6456

    1 réponse
    Excel formule : nb.si.ens et critère "différent de vide"
    lelion4

    11 réponses
    Formaté mais pas de connexion Internet ?
    VissErale

    4 réponses