VB : Parametre enrengistrable

Question

Bonjour...J'ai &#233;ssayer toute la nuit je suis a bout de force... c'est peux etre la fatigue..

J'ai un ptit progz au quel j'en ai marre d'ajouter tout le temps les infos de 2 textbox. Je me suis dit qu il y aurais surement un moyen pour mettre un CheckBox pour sauver ses 2 infos pour pas avoir a les remetre a chaque fois.

Merci d'avance

cs_ITALIA · Answer

Utilises un .INI pour stocker tes valeurs...

It@li@

cs_ITALIA · Answer

Repondu Hier &#224; la m&#234;me question :
http://www.vbfrance.com/forum.v2.aspx?rm=1&ID=378983

It@li@

Dimarel · Answer

ou&#233; mais comment... j'ai bo chercher... je trouve rien... je suis un gros novice :D

Dimarel · Answer

ou&#233; sa a l'air bien mais je sais pas ou introduire sa moa... :S si tu as 5minute... [mailto:amokia@hotmail.com amokia@hotmail.com] pour msn ;) merci d'avance !

cs_ITALIA · Answer

J'ai pas msn...simplement cr&#233; un module dans ton Projet...Projet..Ajouter un Module...
Colles le code que j'ai mis..

Cr&#233;&#233; un fichier .ini comme expliqu&#233; &#224; cot&#233; de ton exe.

It@li@

Dimarel · Answer

Je dois faire le chiant mais donc pour recapituler... :

Sa c a mettre dans un nouveau 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

Et sa a mettre ou ????? lol

Call EcrireINI("Chemin", "Base", Combo1.Text)

TaVariable = LireINI("Chemin", "Base")

Merci d'avance

cs_ITALIA · Answer

c'est ok pour le Module 
Cr&#233;&#233; un Fichier Param.ini &#224; cot&#233; de ton EXE avec dans cet INI :

[Base]
Chemin=

Ensuite tu utilise les fonctions de cet fa&#231;on :
Pour Enregistrer une Valeur dans le .INI :
Call EcrireINI("Chemin", "Base", Combo1.Text)

Pour Lire une Valeur dans le .INI
TaVariable = LireINI("Chemin", "Base")

It@li@

VB : Parametre enrengistrable

7 réponses

Discussions similaires