vb.net طريقة حفظ الإعدادات في محرر التسجيل Registry Editor

[admin]

بسم الله الرحمن الرحيم وبه نستعين
الموضوع منقول
​

هنالك طريقتين لحفظ الخيارات عند إغلاق البرنامج وفتحه من جديد :
1 - محرر التسجيل Registry Editor
2 - عن طريق Settings

هذا مثال للطريقة الأولى ولو أنه من الأفضل إستخدام الطريقة الثانية
الأكواد بالكامل :

Public Class Form1
   'متغير من نوع نصي نجلب فيه القيمة
   Dim read As String

   'إخفاء الزر
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       'False قم بإنشاء أو تغيير بيانات القيمة إلى
       My.Computer.Registry.SetValue("HKEY_CURRENT_USER\SOFTWARE\saud", "2", "False", Microsoft.Win32.RegistryValueKind.String)
       'قم بإخفاء الزر
       Button3.Visible = False
   End Sub

   'عند الضغط على زر إظهار
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       'True قم بإنشاء أو تغيير بيانات القيمة إلى
       My.Computer.Registry.SetValue("HKEY_CURRENT_USER\SOFTWARE\saud", "2", "True", Microsoft.Win32.RegistryValueKind.String)

       'قم بإظهار الزر
       Button3.Visible = True
   End Sub


   'إغلاق الفورم
   Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
       'إذا كان الزر ظاهر
       If Button3.Visible = True Then
           'True قم بإنشاء أو تغيير بيانات القيمة إلى
           My.Computer.Registry.SetValue("HKEY_CURRENT_USER\SOFTWARE\saud", "2", "True", Microsoft.Win32.RegistryValueKind.String)
       End If
       'إذا كان الزر مخفي
       If Button3.Visible = False Then
           'False قم بإنشاء أو تغيير بيانات القيمة إلى
           My.Computer.Registry.SetValue("HKEY_CURRENT_USER\SOFTWARE\saud", "2", "False", Microsoft.Win32.RegistryValueKind.String)
       End If
   End Sub


   'فتح الفورم
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       'متغير يجلب بيانات القيمة
       read = (My.Computer.Registry.GetValue _
               ("HKEY_CURRENT_USER\SOFTWARE\saud", "2", Nothing))

       ' True إذا كانت بيانات القيمة تساوي
       If read = "True" Then
           'قم بإظهار الزر
           Button3.Visible = True
       End If
       ' False إذا كانت بيانات القيمة تساوي
       If read = "False" Then
           'قم بإخفاء الزر
           Button3.Visible = False
       End If
   End Sub
End Class