API Windows et fichier INI, lire un integer

Bonjour,

J'utilise l'excellent tutorial de P Laserre sur VB.net. J'utilise Visual Studio 2008 depuis peu. J'essaie de lire un integer dans un fichier ini en utilisant le code exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim texte As String Dim iReturn As Integer Dim lDefault As Long Dim lVal_Retour As Long   Const sLongueur As Short = 255 texte = " "   iReturn = GetPrivateProfileString("test", "Texte", " ", texte, sLongueur, "C:\Temp\test.ini") MessageBox.Show(texte) lVal_Retour = GetPrivateProfileInt("Numerique", "Entier", lDefault, "C:\Temp\test.ini") MessageBox.Show(CStr(lVal_Retour))

---

Pour la valeur texte, il n'y a pas de problème, c'est la bonne valeur, par contre pour la valeur numérique, j'obtiens toujours un chiffre très long.
je retourne le code depuis deux jours, je ne vois pas l'erreur.
Si quelqu'un a une idée ou la gentillesse de se pencher sur mon code; Merci d'avance

Jean.

JE ne sais pas quelles déclarations tu utilise pour les api GetPrivateProfile...

Habituellement, on les trouve avec des variables de type Long. Ces déclarations là sont faite pour des langages Win32 (VB6 par exemple).

En .Net, il faut remplacer le type Long par un type Integer (Le type Long de l'api Windows correspond au type Integer de .Net)

J'ai remplacé le typ long par un typ integer, cela marche d'enfer.

dans ma declaration j'ai donc modifié de cette manière.
et le résultat est correct

Code:

---

1 2	Declare Function GetPrivateProfileInt Lib "Kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, _ ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer

---

Merci encore

Jean.

Bonjour,

effectuant actuellement des recherches sur le sujet je mes le liens vers le cours de plasserre :

http://plasserre.developpez.com/cour...ws-forms4#LX-N

ça peut toujours servir ;).

++