Discussion :

[jwolka]

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 vb :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[sevyc64]

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)

[jwolka]

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 vb :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[narutobaka]

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 .

++