Je voudrais savoir comment faire pour enregistrer les données d'un formulaire Visual Basic pour qu'à 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écédente exécution.
Pour Lire et Ecrire dans un INI , dans mon cas il se trouve à coté 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érer une Valeur :
TaValeur = LireINI("NomSection", "NomConstante")
Pour Ecrire une Valeur :
Call EcrireINI("NomSection", "NomConstante", Text1.Text)
Il faut sauvegarder tes donné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 à la réouverture de la feuille
Salut,
Faut que tu rajoutes le module ModSub de mon projet à ton projet pour qu'il fonctionne
copie le dans le dossier de ton appli avant de le rajouter dans vb6
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 écriras dans la base de registre. Dans la mesure ou tu est sous XP
Si tu veux écrire soit dans ta base de registre soit dans un INI applique la méthode à Italia qui est la même sauf que l'appel se fait avec LireIni et EcrireIni donc pas d'enbiguitée.
Il faut savoir quand même que la base de registre et là pour ça donc autant l'utiliser
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ées ..
A part ca perfecto !