stefsoft
Messages postés119Date d'inscriptionlundi 15 avril 2002StatutMembreDernière intervention28 novembre 2008
-
22 août 2002 à 13:28
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
14 mai 2003 à 21:08
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 14 mai 2003 à 21:08
bien d'accord avec notre ami en tire-bouchon !!
je ne vis que par les API !!
et refaire ce qui existe , c'est ........ un bon exercice , certes , mais périlleux.......
stefsoft
Messages postés119Date d'inscriptionlundi 15 avril 2002StatutMembreDernière intervention28 novembre 2008 22 août 2002 à 13:28
Joli casse tête mais franchement avec les Api c'est beaucoup mieux:
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
Private Sub Form_Load()
Dim Ret As String, NC As Long
'ecrit dans le fichier c: est.ini
WritePrivateProfileString App.Title, "Nom de la clé", "Valeur de la clé", "c: est.ini"
'buffer
Ret = String(255, 0)
'récupération
NC = GetPrivateProfileString(App.Title, "Nom de la clé", "Default", Ret, 255, "C: est.ini")
If NC <> 0 Then Ret = Left$(Ret, NC)
'affiché la récupération
MsgBox Ret
'écrasé le fichier .ini c'était juste pour le fun
Kill "c: est.ini"
End Sub
14 mai 2003 à 21:08
je ne vis que par les API !!
et refaire ce qui existe , c'est ........ un bon exercice , certes , mais périlleux.......
22 août 2002 à 13:28
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
Private Sub Form_Load()
Dim Ret As String, NC As Long
'ecrit dans le fichier c: est.ini
WritePrivateProfileString App.Title, "Nom de la clé", "Valeur de la clé", "c: est.ini"
'buffer
Ret = String(255, 0)
'récupération
NC = GetPrivateProfileString(App.Title, "Nom de la clé", "Default", Ret, 255, "C: est.ini")
If NC <> 0 Then Ret = Left$(Ret, NC)
'affiché la récupération
MsgBox Ret
'écrasé le fichier .ini c'était juste pour le fun
Kill "c: est.ini"
End Sub