عرض مشاركة واحدة
  #1  
قديم 04-12-2021, 11:26 PM
الصورة الرمزية admin
admin 
✯ ادارة المنتدى ✯
 
تاريخ التسجيل: Mar 2021
الدولة: مصر
المشاركات: 733
معدل تقييم المستوى: 10
admin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to behold


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

 

بسم الله الرحمن الرحيم وبه نستعين
الموضوع منقول
هنالك طريقتين لحفظ الخيارات عند إغلاق البرنامج وفتحه من جديد :
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


الموضوع الأصلي : طريقة حفظ الإعدادات في محرر التسجيل Registry Editor || الكاتب : admin || المصدر : منتدى مجمع التطوير

 

الملفات المرفقة
نوع الملف: zip مجمع التطوير.zip‏ (90.4 كيلوبايت, المشاهدات 0)

التوقيع

رد مع اقتباس