تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مثال] طريقة حفظ الإعدادات في محرر التسجيل Registry Editor
#1
بسم الله الرحمن الرحيم وبه نستعين


هنالك طريقتين لحفظ الخيارات عند إغلاق البرنامج وفتحه من جديد :

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



المشروع في المرفقات


الملفات المرفقة
.zip   مثال القراءة والكتابة من محرر التسجيل.zip (الحجم : 90.39 ك ب / التحميلات : 300)
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , ابو روضة , sendbad100 , طـلال , tryold , asemshahen5
#2
جزاك الله كل خير اخى سعود
الرد }}}
تم الشكر بواسطة:
#3
بارك الله فيك
الرد }}}
تم الشكر بواسطة:
#4
(26-10-17, 01:43 PM)ابو روضة كتب : جزاك الله كل خير اخى سعود



(26-10-17, 02:02 PM)sendbad100 كتب : بارك الله فيك

وبارك الله فيكم ونفع بي وبكم


Heart
الرد }}}
تم الشكر بواسطة:
#5
الف الف الف شكر وجزاك الله كل خير
الرد }}}
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Big Grin [مشروع] تصميم محرر اكواد بسيط من خلال الفيجوال بيسك مع السورس كود ahmadpal 1 2,118 23-01-24, 05:38 PM
آخر رد: alkndy
  طريقة سهلة للاتصال بقاعدة بيانات SQL مع اضافة ايقونات للتحكم في تدفق البيانات ggtt17121985 0 541 06-11-23, 10:16 AM
آخر رد: ggtt17121985
  [مشروع] ضغط و فك الضغط بابسط طريقة (تحتاج تطوير) سعود 0 867 31-07-22, 03:43 AM
آخر رد: سعود
Music [مشروع] BM id3 Editor 1.1 برنامج لاعادة تعيين معلومات ملف صوتي ( التاق) asmarsou 0 778 29-06-22, 10:24 PM
آخر رد: asmarsou
Video [درس فيديو] طريقة سحب الصور والنصوص وافلاتها لادراجها في مكانها ahmadpal 2 2,542 06-04-22, 01:31 AM
آخر رد: ابو روضة
  [VB.NET] مشروع محرر نصوص باستخدام الفيجوال بيسك كامل ومتاح للتحميل نسخة فيجوال بيسك 2019 العابث الاخير 0 1,535 24-02-22, 03:23 PM
آخر رد: العابث الاخير
  [VB.NET] مثال طريقة جعل البرنامج يعمل مع بداية تشغيل النظام معاند الحظ 2 2,123 03-02-22, 05:20 AM
آخر رد: أبووسم
  [مشروع] مستكف المجلدات والملفات بابسط طريقة سعود 1 1,164 29-12-21, 08:29 AM
آخر رد: سعود
  [مثال] طريقة استخدام MPV Player وتضمينه داخل يرنامجك معاند الحظ 1 1,732 04-12-21, 04:37 AM
آخر رد: ابو روضة
  [مثال] طريقة الاضافةو التعديل و العرض و الحفظ داخل قاعدة البيانات SQL alims 5 3,316 16-09-21, 12:42 PM
آخر رد: alims

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم