Salut
jon51
Le moyen le plus simple serait d'utiliser 2 api de windows :
- WritePrivateProfileString (pour ecrire dans ton fichier ini)
- GetPrivateProfileString (pour lire)
Elles sont déclarés ainsi en vb6 :
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
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
Si tu utilise vb2005 comme tu le dis, utilise l'utilitaire de mise à niveau du code vb6 qui est inclut dans vb2005
Ensuite, pour les utiliser :
Pour ecrire :WritePrivateProfileString(<Titre de la section>,<Clé de ta valeur>,<Ta valeur>,<Le chemin de ton fichier>
ex :
WritePrivateProfileString("MaSection","MaClé","Bonjour","C:\Test.ini")
Tu auras dans ton fichier ini :
[MaSection]
MaClé=Bonjour
Pour lire :GetPrivateProfileString(<titre de la section>,<Clé de la valeur>,<La valeur par defaut qui doit être retourné si rien n'a été récupéré>,<Ta variable qui va récupéré ce qui va être lu>,<La taille maximale de la valeur que peut récupérer ta variable>,<Le chemin de ton fichier>)
ex :
Dim Valeur as string
GetPrivateProfileString("MaSection","MaClé","Rien n'a été lu",Valeur,256,"C:\Test.ini")
Valeur aura alor pour valeur : "Bonjour" ou bien "Rien n'a été lu" si 'MaClé' ne contient aucune valeur
J'espère que ça va t'aider
A bientot
C'est un art la programmation, non 