Discussion :

[horneth]

Salut,

la réponse à ma question doit certainement être très simple mais quand on sait pas... J'aurais voulu savoir comment est-ce qu'on peut faire pour qu'une variable conserve sa valeur même après avoir fermé puis relancé le programme.

Voilà merci de votre aide

[Phifi]

Salut,

tu vas bien être obligé de la stocker quelque part : base de données, fichier ini, autre fichier...

[horneth]

Et bien pour l'instant je fait avec des fichiers .txt mais c'est vraiment pas pratique parce que c'est galère pour récupérer ce qu'il y a dedans et puis c'est très accessible n'importe qui peut modifier le contenu très facilement. Il faut que je l'enregistre dans la base de registre alors ok. Je vais voir comment je peux faire.
Merci

[horneth]

Voilà j'ai essayé de faire avec SaveSetting mais j'ai une erreur il me met "Expected Function or Variable" il doit pas trouver la fonction mais je sais pas pourquoi?

[Jihnn]

Parce qu'il faut que tu crées la fonction tout d'abord. Il y a une source qui démontre comment faire : http://vb.developpez.com/sources/?page=baseregistre#reg

[Delbeke]

Normalement Savesetting et Getsetting sont des fonctions intrinsèques de vb. Donc pas besoin de les recreer. Par contre tu devrais nous fournir la ligne qui provoque l'erreur.

Ps: De mémoire,les données sont sauvées dans le registre dans cette branche :HKEY_CURRENTUSER\Sofware\Vb and Vba Program settings\Nom du programme

[horneth]

j'ai télécharger le zip à l'adresse que tu m'as indiquée. Il utilise RegCreateKey mais il bloque quand même il me met "Sub or Function not defined". Y a pas un controle à ajouter ou un truc comme ca?

[horneth]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim toto As Long
toto = SaveSetting("RadioBlogProject.vbp", "Variable", "tata", 1)

Voilà ca ca vient de mon programme je l'ai mit au tout début et ca plante la-dessus.

[Delbeke]

Essaye plutot ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
SaveSetting App.Title, "Variables", "Tata", CStr(1)

Note : App.Title est le titre de ton projet

Le dernier parametre est un string

Pour relire l'information stockée utilise ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  Dim Toto As Long
  Toto = Val(GetSetting(App.Title, "Variables", "Tata", "0"))

[horneth]

Ca marche c'est parfait !
Merci beaucoup !!!

[tibofo]

Bonjour,
J'ai trouvé ce post et je voulais l'utiliser pour stocker en registre une valeur texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SaveSetting App.Title, "Variables", "Tata", CStr("ma chaine texte")

Cela marche bien. Mais à la lecture il ne sait pas la lire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Toto = Val(GetSetting(App.Title, "Variables", "Tata", "0"))

Il m'affiche Toto = 0

Sauriez-vous pourquoi et comment obtenir ma valeur ?

Merci
Thibault

[OhMonBato]

Bonjour,

si tu utilises Val(Une_String), il est normal que tu trouves toujours 0.

Il suffit de ne pas mettre Val :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Toto = GetSetting(App.Title, "Variables", "Tata", "0")