Public Class Form1 Private Declare Function WritePrivateProfileSection Lib "kernel32.dll" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long Private Declare Function WritePrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long 'Insère une section dans le fichier "File" Public Function SetSection(ByVal File As String, ByVal Section As String, ByVal Valeur As String) As Boolean SetSection = WritePrivateProfileSection(Section, Valeur, File) End Function Public Function SetCle(ByVal File As String, ByVal Section As String, ByVal Cle As String, ByVal Valeur As String) As Boolean SetCle = WritePrivateProfileString(Section, Cle, Valeur, File) End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, x As String a = TextBox1.Text x = TextBox2.Text SetCle("Mes documents\Text", a, x, "g") End Sub End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSetCle = WritePrivateProfileString(Section, Cle, Valeur, File)