منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(21-02-18, 10:49 PM)عبد العزيز البسكري كتب : [ -> ]

(21-02-18, 10:15 PM)محمد اسماعيل كتب : [ -> ]موضوع الريجيستير كامل

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

كود :

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

السّلام عليكم و رحمة الله و بركاته

كل الشّكر و التّقدير و المحبّة و الاحترام أخي الكريم " محمد إسماعيل " على الهديّة الرائعة التي أنعمت عليَّ بها لفهمها أكثر .. إلهي ينعم عليك بخير الدنيا و الآخرة بعد عمر طويل إن شاء الله

تحياتي

وعليكم السّلام  و رحمة الله و بركاته

افادني المنتدي كثيرا واقل ما اقوم بفعلة اجابة عما اعرفة من اسئلة
وللكل خالص الاحترام والتقدير

(21-02-18, 10:55 PM)محمد اسماعيل كتب : [ -> ]

(21-02-18, 10:49 PM)عبد العزيز البسكري كتب : [ -> ]

(21-02-18, 10:15 PM)محمد اسماعيل كتب : [ -> ]موضوع الريجيستير كامل

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

كود :

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

السّلام عليكم و رحمة الله و بركاته

كل الشّكر و التّقدير و المحبّة و الاحترام أخي الكريم " محمد إسماعيل " على الهديّة الرائعة التي أنعمت عليَّ بها لفهمها أكثر .. إلهي ينعم عليك بخير الدنيا و الآخرة بعد عمر طويل إن شاء الله

تحياتي

وعليكم السّلام  و رحمة الله و بركاته

افادني المنتدي كثيرا واقل ما اقوم بفعلة اجابة عما اعرفة من اسئلة
وللكل خالص الاحترام والتقدير

تسلم ايدك ياريس رائع الف شكر

وهيك بكون تم الحفظ ولكن في حالك تم تغيير البرنامج لجهاز اخر طبعا settings بفضى لحالو وبلزمك تعبيه طبعا هاي الطريقة لعرض وحفظ في setting