Bouton avec 2 fonctionsRésolu

Question

Bonjour, 

Je debute en vb6. Voici ce que j'aimerais faire. Sur un formulaire donn&#233;, je voudrais avoir un bouton avec un "caption" nouveau: lorque le frm se "load" je veux que les "textbox" soient vides.

En appuyant sur le bonton "nouveau", je veux que le "caption" du bouton se change par "enregistrer le projet".

L' usager entrera des donn&#233;es dans les "textbox" puis il pourra enregister les donn&#233;es entrer en cliquant sur le bouton "enregistrer le projet".


Merci ;-)

cs_Willi · Accepted Answer

pour les combo utilise la m&#233;thode clear si tu veux les vider
CboProjExt.Clear
.....

 Si la r&#233;ponse te conviens merci de l'accepter

cs_hassen · Answer

private sub form1_load()
text1.text=""
text2.text=""
text3.text=""
command1.caption="Nouveau"
end sub

private sub command1_click()
if command1.caption="Nouveau" then
      command1.caption="Enregistrer"
else
      'Enregistrement de ton formulaire
end if
End sub

Hassen TUNISIE

cs_serge99 · Answer

private sub form1_load()
text1.text=""
text2.text=""
text3.text=""
command1.caption="Nouveau"
end sub

??? que veux dire text1.text="" ?

jpleroisse · Answer

Bonsoir,

Text1.Text = "", veut dire que le TextBox est vide, s'il contient de donn&#233;es elles seront effac&#233;es.

jpleroisse

cs_serge99 · Answer

Ne marche pas

Voici ce que j'ai fais:

Private Sub VideLesChamps()

txtNumeroProjet.Text = ""
txtNomprojet.Text = ""
txtR&#233;gionProjet.Text = ""
CboProjExt.Text = ""
CboProjetINT.Text = ""
CboFabrCa.Text = ""
CboFO.Text = ""
Cbogaine1.Text = ""
Cbogaine2.Text = ""
Cbogaine3.Text = ""
txtFusion.Text = ""
txtPigtail.Text = ""
txt850.Text = ""
txt850IOR.Text = ""
txt1300.Text = ""
txt1300IOR.Text = ""
txt13100.Text = ""
txt1310IOR.Text = ""
txt1550.Text = ""
txt1550IOR.Text = ""
End Sub

Private Sub cmdNew_Save_Click(Index As Integer)

If cmdNew_Save.Caption = "Nouveau" Then
      VideLesChamps
      cmdNew_Save.Caption = "Enregistrer"
Else
      'Enregistrement de ton formulaire
End If


End Sub


Private Sub Form_Load()


cmdNew_Save.Caption = "nouveau"


End Sub

BESOIN D'AIDE

merci

cs_Willi · Answer

Se sont des combo ?

CboProjExt.Text = ""
CboProjetINT.Text = ""
CboFabrCa.Text = ""
CboFO.Text = ""
Cbogaine1.Text = ""
Cbogaine2.Text = ""
Cbogaine3.Text = ""

cs_serge99 · Answer

effectivement

cs_hassen · Answer

CboProjExt.Clear    ca va effacer les propositions que fournit le combo. c'est a dire le contenu du combo sera vide.
je croit que  CboProjExt.ListIndex=-1  est mieux

Hassen TUNISIE

Bouton avec 2 fonctions

8 réponses

Discussions similaires