[ربيع]

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

الموضوع بسيط جدا، لن تحتاج لكودات غير التي كتبتها سابقاً، للتعديل والحذف والكتابة على حد سواء.
انظر:

كود :

[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("FileMenu", "Save", "قيمة افتراضية حفظ", value, Len(value), filename)
        MessageBox.Show(value)

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

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ' Save تعديل قيمة المفتاح
        WritePrivateProfileString("FileMenu", "Save", "القيمة الجديدة لـ: حفظ", filename)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ' Save حذف المفتاح
        WritePrivateProfileString("FileMenu", "Save", Nothing, filename)
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        ' FileMenu حذف قائمة
        WritePrivateProfileString("FileMenu", Nothing, Nothing, filename)
    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]

أما الكود الذي سألت عنه فهو دالة خاصة بالنظام تسمى API، ابحث عن هذه الكلمة تجد شروحات كثيرة إن شاء الله، فلا يسعني قول أكثر من ذلك....