Discussion :

[kciope]

Bonjour tout le monde,

Je me retourne vers car mes recherches google ou sur le forum ne m'ont pas beaucoup aidé
Je dois utilisé WritePrivateProfileString pour écrire une chaine accentué, sauf que l'accent n'est pas pris en compte, j'ai un caractère bizarre a la place.
Connaissez une méthode que WritePrivateProfileString gère les accents ou un équivalent.
Merci d'avance

[tomlev]

Chez moi ça fonctionne bien... comment as-tu déclaré la fonction WritePrivateProfileString ?

Moi je l'ai déclarée comme ça :

Code :

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

1
2
3
<DllImport("kernel32", CharSet := CharSet.Auto)> _
Private Shared Function WritePrivateProfileString(lpAppName As String, lpKeyName As String, lpString As String, lpFileName As String) As Boolean
End Function

[kciope]

Chez moi ça fonctionne bien... comment as-tu déclaré la fonction WritePrivateProfileString ?

Moi je l'ai déclarée comme ça :

Code :

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

1
2
3
<DllImport("kernel32", CharSet := CharSet.Auto)> _
Private Shared Function WritePrivateProfileString(lpAppName As String, lpKeyName As String, lpString As String, lpFileName As String) As Boolean
End Function

chez moi c'est pas pareil, je vais essayer ta declaration

Code :

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

<DllImport("kernel32.dll", CharSet:=CharSet.Auto)> Function GetPrivateProfileSectionNames(ByVal lpszReturnBuffer As IntPtr, ByVal nSize As Integer, ByVal lpFileName As String) As Integer

[tomlev]

Regarde ce site pour les déclarations des fonctions Win32 :
http://pinvoke.net/default.aspx/kern...ileString.html

[kciope]

C'est bon ca fonctionne, ca venait bien de ma déclarations, voici ce que j'utilise maintenant :

Code :

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

  Private Declare Ansi Function WritePrivateProfileSection Lib "kernel32.dll" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long

J'ai rajouter le "Ansi" entre Declare et function.
Merci pour votre aide