Enregistrer les valeurs d'un formulaireRésolu

Question

Bonsoir,

Je voudrais savoir comment faire pour enregistrer les donn&#233;es d'un formulaire Visual Basic pour qu'&#224; la prochaine execution du programme, si l'utilisateur a cocher la case pour sauver ses parametres, il retrouve les valeurs qu'il avait mises dans les champs, lors de la pr&#233;c&#233;dente ex&#233;cution.

Merci d'avance !

@+

cs_ITALIA · Accepted Answer

Pour Lire et Ecrire dans un INI , dans mon cas il se trouve &#224; cot&#233; de l'EXE et se nomme Param.ini:

Dans un Module :

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Function LireINI(Entete As String, Variable As String) As String
Dim Retour As String
Fichier = App.Path & "" & "Param.ini"
Retour = String(255, Chr(0))
LireINI = Left$(Retour, GetPrivateProfileString(Entete, ByVal Variable, "", Retour, Len(Retour), Fichier))
End Function


Function EcrireINI(Entete As String, Variable As String, Valeur As String) As String
Fichier = App.Path & "" & "Param.ini"
WriteINI = WritePrivateProfileString(Entete, Variable, Valeur, Fichier)
End Function

Dans Ta Form :
Pour Recup&#233;rer une Valeur :
TaValeur = LireINI("NomSection", "NomConstante")

Pour Ecrire une Valeur :
Call EcrireINI("NomSection", "NomConstante", Text1.Text)

It@li@

crenaud76 · Answer

Il faut sauvegarder tes donn&#233;es dans un fichier texte ou dans le registre par exemple (plus simple en fichier) avant de fermer le formulaire et recharger les datas depuis le fihcier ou la registry &#224; la r&#233;ouverture de la feuille

Christophe R

valtrase · Answer

Salut,
Tiens va voir ici jutilise un ini pour sauvegarder des Valeurs
http://www.vbfrance.com/ajoutcode.aspx?ID=29894

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

cs_ITALIA · Answer

Effectivement les INI c'est le plus appropri&#233;..&#224; mon avis

It@li@

cs_Sp00ky · Answer

Euh merci pour la m&#233;thode des .ini, je veux bien essayer, mais ton lien ne m&#232;ne &#224; rien crenaud76.

Aurais-tu un lien pour que je puisse voir comment faire ?

Merci d'avance.
@+

valtrase · Answer

Re,
C'est moi qui d&#233;lire, d&#233;sol&#233;
http://www.vbfrance.com/code.aspx?id=29894

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

cs_Sp00ky · Answer

Ok, merci

J'ai regard&#233; ton code, et j'ai tent&#233; de faire un .ini
Mais je ne comprends pas tr&#232;s bien comment faire.

Au chargement de mon form, j'ai ajout&#233; cette ligne :
Text1 = GetSetting(App.EXEName, "Form1", Text1, "Username")

Et quand on appuit sur le bouton j'ai rajout&#233; cette ligne :
SaveSetting App.EXEName, "Form1", "Text1", Text1

Mais aucun .ini ne se cr&#233;, et ca charge toujours la valeur par d&#233;faut : Username

Merci de m'expliquer le fonctionnement du .ini (je d&#233;bute vraiment ...)

@ bient&#244;t

valtrase · Answer

Salut,
Faut que tu rajoutes le module ModSub de mon projet  &#224; ton projet pour qu'il fonctionne
copie le dans le  dossier de ton appli avant de le rajouter dans vb6

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

valtrase · Answer

Re, 
En fait si tu ne rajoutes pas le module tu n'interceptes pas les fonctions  get et save setting et de ce fait tu &#233;criras dans la base de registre. Dans la mesure ou tu est sous XP
Si tu veux &#233;crire soit dans ta base de registre soit dans un INI applique la m&#233;thode &#224; Italia qui est la m&#234;me sauf que l'appel se fait avec LireIni et EcrireIni donc pas d'enbiguit&#233;e.
Il faut savoir quand m&#234;me que la base de registre et l&#224; pour &#231;a donc autant l'utiliser

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

cs_Sp00ky · Answer

Merci &#233;norm&#233;ment, ca marche parfaitement !

Juste pour info pour ceux que ca interesserait, avec le code d'Italia c'est parfait, il faut juste rajouter ces deux petites lignes a deux endroits :
Dim Fichier As String
Dim WriteINI As String

Sinon ces variables ne sont jamais annonc&#233;es ..
A part ca perfecto !

Grazie Mille Italia e valtrase !


.:: KoC-FR ::. Alliance Francophone Kings of Chaos
Venez jouer au meilleur MMORPG gratuit et facile !

cs_ITALIA · Answer

Parceque tu dois &#234;tre en Mode Explicit !

FORZZZZZA ITALIA
FORZZZZZA JUVE

It@li@

Enregistrer les valeurs d'un formulaire

11 réponses

Discussions similaires