[محمد اسماعيل]

موضوع الريجيستير كامل

انشاء مفتاح و اضافة قيمة للريجيستير و حذف المفتاح

كود :

Dim ll As RegistryKey = Registry.CurrentUser.OpenSubKey("MyKeys", True)
   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
       ' ط حفظ القيمة بالريجستير'
       Registry.CurrentUser.CreateSubKey("MyKeys") ' إضافة مفتاح جديد
       ll.SetValue("MyKeys", TextBox1.Text) ' لإضافة قيمة جديدة
   End Sub

   Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
       ' جلب القيمة من لريجستير
       MsgBox(ll.GetValue("MyKeys", True))
   End Sub

   Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
       ' حذف مفتاح
       ll.DeleteValue("MyKeys", True)
   End Sub

---

كود :

 Private Sub Button19_Click(sender As System.Object, e As System.EventArgs) Handles Button19.Click
       'كود الحفظ
        SaveSetting(Application.ProductName, "Mvalue", "00000", TextBox1.Text)

   End Sub

   Private Sub Button21_Click(sender As System.Object, e As System.EventArgs) Handles Button21.Click
       'كود استدعاء القيمة
       TextBox1.Text = GetSetting(Application.ProductName, "mvalue", "00000")
   End Sub