Recuperer ce qu'on a saisi sur une form apres réexecution du pgm?

Question

Vb ou Vba .De preference en vba

comment faire pour garder(dans une form) par exemple ce qu'on a saisi dans une zone text ou la derniere donnée qu'on a selectionné dans une liste deroulante, une fois executé le programme une seconde fois?

Merci de votre coaboration!!

Xav88 · Answer

Salut
Bon je n'ai jamais testé ça sous vba mais ça marche sous vb...


'Enregistrement à la fermeture

Private Sub Form_Unload(Cancel As Integer)
   SaveSetting "Test", "Général", "Saisie", Text1.Text
 ' SaveSetting NomApplication, Section, Paramètre, Valeur
End Sub

'Récupération des paramètres

Private Sub Form_Load()
   Dim DerniereEntre As String
   DerniereEntre = GetSetting("Test", "Général", "Saisie", Text1.Text)
   Text1.Text = DerniereEntre
End Sub

'Fonction pour enlever les entrés du registre

DeleteSetting "Test"


Voila et bonne prog.....

 :) Xavier :)

algo69 · Answer

Je te remercie je vais essayer ton code

Bonne prog xav

algo69 · Answer

Finalement je l'ai testé, mais je ne peux récuperer q'une seule zone texte

Xav88 · Answer

On peut enregistrer autant de paramètres que l'on veut....


Private Sub Form_Load()
   Text1.Text = GetSetting("TestEnrgParam", "Textes", "Saisie1", Text1.Text)
   Text2.Text = GetSetting("TestEnrgParam", "Textes", "Saisie2", Text2.Text)
   Text3.Text = GetSetting("TestEnrgParam", "Textes", "Saisie3", Text3.Text)
End Sub

Private Sub Form_Unload(Cancel As Integer)
   SaveSetting "TestEnrgParam", "Textes", "Saisie1", Text1.Text
   SaveSetting "TestEnrgParam", "Textes", "Saisie2", Text2.Text
   SaveSetting "TestEnrgParam", "Textes", "Saisie3", Text3.Text
End Sub


J'aurais pû enregistrer d'autres valeurs comme celle d'une checkbox ou d'une variable....

 :) Xavier :)

algo69 · Answer

je cprend maintenant l'utilisation de la  fonction GetSetting.
ça march

Merci

Recuperer ce qu'on a saisi sur une form apres réexecution du pgm?

5 réponses

Discussions similaires