[ربيع]

نحمده ونصلي على رسوله الكريم

هذا مثال بسيط:

كود :

[align=left] Public Class Form1

    Dim filename As String = Application.StartupPath & "\Settings.ini"

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WritePrivateProfileString("FileMenu", "New", "جديد", filename)
        WritePrivateProfileString("FileMenu", "Open", "فتح", filename)
        WritePrivateProfileString("FileMenu", "Save", "حفظ", filename)
        '
        WritePrivateProfileString("EditMenu", "Cut", "قص", filename)
        WritePrivateProfileString("EditMenu", "Copy", "نسخ", filename)
        WritePrivateProfileString("EditMenu", "Past", "لصق", filename)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim value As String = Space(255)

        GetPrivateProfileString("FileMenu", "New", "قيمة افتراضية جديد", value, Len(value), filename)
        MessageBox.Show(value)

        GetPrivateProfileString("EditMenu", "Copy", "قيمة افتراضية نسخ", value, Len(value), filename)
        MessageBox.Show(value)
    End Sub

#Region "API"

    Private Declare Auto Function GetPrivateProfileString Lib "kernel32" _
    (ByVal lpApplicationName As String, ByVal lpKeyName As String, _
     ByVal lpDefault As String, ByVal lpReturnedString As String, _
     ByVal nSize As Integer, ByVal lpFileName As String) As Integer

    Private Declare Auto Function WritePrivateProfileString Lib "kernel32" _
    (ByVal lpApplicationName As String, ByVal lpKeyName As String, _
     ByVal lpString As String, ByVal lpFileName As String) As Long

#End Region

End Class
[/align]

قد يفيد