Problème avec Getprivateprofilestring

Signaler
Messages postés
883
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
3 mars 2009
-
Messages postés
2336
Date d'inscription
samedi 14 juillet 2001
Statut
Membre
Dernière intervention
5 mai 2009
-
Bonjour,
je viens tout juste de passer à VB.Net et j'ai manifestement quelques problèmes d'adaptation. Voici mon code :


Public
Declare
Function GetPrivateProfileString
Lib "kernel32"
Alias "GetPrivateProfileStringA" (
ByVal lpApplicationName
As
String,
ByVal lpKeyName
As
String,
ByVal lpDefault
As
String,
ByVal lpReturnedString
As
String,
ByVal nSize
As
Long,
ByVal lpFileName
As
String)
As
Long



Public
Declare
Function GetPrivateProfileString
Lib "kernel32"
Alias "GetPrivateProfileStringA" (
ByVal lpApplicationName
As
String,
ByVal lpKeyName
As
Long,
ByVal lpDefault
As
String,
ByVal lpReturnedString
As
String,
ByVal nSize
As
Long,
ByVal lpFileName
As
String)
As
Long


Public
Function ReadIni(
ByVal mSection
As
String,
ByVal mKey
As
String)
As
String



Dim Buf
As
String = Space(128), Rep
As
Long


Rep = GetPrivateProfileString(mSection, mKey, "Raté", Buf, Buf.Length, "c:\pom.ini")


ReadIni = Left(Buf, Rep)



End
Function


Le même code en vb6 fonctionne, mais en vb.net, j'obtiens la string par défaut dans buf et Rep contient un nombre immense (8028345155369041926)...
Pourriez-vous m'aider ?
Merci...

1 réponse

Messages postés
2336
Date d'inscription
samedi 14 juillet 2001
Statut
Membre
Dernière intervention
5 mai 2009
6
regarde dans l'API guide. Certain API fonctionne différemment en .net


-------------------------------------------------
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol
-------------------------------------------------