Bonjour à tous;

Je veux lire et écrire dans un fichier ini qui se trouve dans le dossier de mon app vb.net; mais mon problème les code suivante me met des erreurs.

Code dans module1
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Module Module1
 
    'Lit Dans Fichier Ini
    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
    'Ecrit Dans Fichier Ini
    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
    Public Function LitDansFichierIni(ByVal Section As String, ByVal Cle As String, ByVal Fichier As String, Optional ByVal ValeurParDefaut As String = "") As String
        Dim strReturn As String
strReturn = String(65130, 0)
        GetPrivateProfileString(Section, Cle, ValeurParDefaut, strReturn, Len(strReturn), Fichier)
        LitDansFichierIni = Left(strReturn, InStr(strReturn, Chr(0)) - 1)
    End Function
    Public Function EcritDansFichierIni(ByVal Section As String, ByVal Cle As String, ByVal Valeur As String, ByVal Fichier As String) As Long
        EcritDansFichierIni = WritePrivateProfileString(Section, Cle, Valeur, Fichier)
    End Function
 
End Module
Erreurs:
Erreur 1 'As Any' n'est pas pris en charge dans les instructions 'Declare'.
Erreur 2 'As Any' n'est pas pris en charge dans les instructions 'Declare'.
Erreur 3 'As Any' n'est pas pris en charge dans les instructions 'Declare'.
Erreur 4 'String' est un type classe et ne peut pas être utilisé en tant qu'expression.
Erreur 5 '.' attendu.

Code dans Public Class Main:
Pour lire
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub BT_LIRE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_LIRE.Click
        Dim CheminFichierIni As String
        CheminFichierIni = Path & "\depenses.ini"
        TextBox1 = LitDansFichierIni("Janvier", "Revenus", CheminFichierIni)
    End Sub
Erreur 1 'Path' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.
Erreur 2 Impossible de convertir une valeur de type 'String' en 'System.Windows.Forms.TextBox'.

Pour écrire
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub BT_ECRIRE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_ECRIRE.Click
        Dim CheminFichierIni As String
        CheminFichierIni = Path & "\depenses.ini"
        EcritDansFichierIni("Janvier", "Revenus", TextBox2.Text, CheminFichierIni)
    End Sub
Erreur 1 'Path' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.
Erreur 2 Impossible de convertir une valeur de type 'String' en 'System.Windows.Forms.TextBox'.

Avez-vous une solution pour corriger les érreurs.

Merci d'avance.