[ابو ليلى]

و عليكم السلام و رحمة الله و بركاته
اليك طريقة لحفظ الاعدادت في مسجل النظام
بالاول انشأ مفاتيح بعدد القيم التي تريد حفظها في عقدة رئيسية(مجلد)
انا افضل الحفظ في عقدة CurrentUser
انشأ مديول وحط الاجراء التالي

PHP كود :

    Dim VBArb As RegistryKey

    Public Sub CreateKeyes()

        If Registry.CurrentUser.OpenSubKey("VB4ArbKyes") Is Nothing Then
            Dim VB4ArbKyes As RegistryKey = Registry.CurrentUser.CreateSubKey("VB4ArbKyes")
            VBArb = VB4ArbKyes.CreateSubKey("Key1")
            VBArb = VB4ArbKyes.CreateSubKey("Key2")
            VBArb = VB4ArbKyes.CreateSubKey("Ket3")
            VBArb = VB4ArbKyes.CreateSubKey("Key4")
                End If
    End Sub 


استدعي هذا الاجراء في اول اقلاع البرنامج

بعد ذلك اخي الكريم حاول حفظ القيم في المفاتيح عبر الدالة التالية (في المديول)

PHP كود :

   Public Sub SetValueKey(ByVal KeyNmae As String, ByVal Value As String)
        If Not IsNothing(My.Computer.Registry.CurrentUser.OpenSubKey("VB4ArbKyes")) Then
            My.Computer.Registry.CurrentUser.OpenSubKey("VB4ArbKyes", True).OpenSubKey(KeyNmae, True).SetValue(KeyNmae, Value)
        End If

    End Sub 


و لحفظ القيمة بداخلها ما عليك الا استدعائها كالتالي في المكان الذي تريده

PHP كود :

           SetValueKey("Key1", TextBox1.Text.Trim) 


و لمعرفة قيمة اي مفتاح اليك هذه الدالة (في المديول)

PHP كود :

   Public Function GetValueKey(ByVal SubKeyName As String) As String
        Dim Value As String = ""
        If Not IsNothing(My.Computer.Registry.CurrentUser.OpenSubKey("VB4ArbKyes")) Then
            Value = My.Computer.Registry.CurrentUser.OpenSubKey("VB4ArbKyes").OpenSubKey(SubKeyName).GetValue(SubKeyName)
            Return Value
        Else
            Return ""
        End If
        Return Value

    End Function 


و الاستدعاء بسيط وفق الشكل التالي

PHP كود :

TextBox1.Text = GetValueKey("Key1") 


بالتوفيق اخي الكريم