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
السّلام عليكم و رحمة الله و بركاتهكل الشّكر و التّقدير و المحبّة و الاحترام أخي الكريم " محمد إسماعيل " على الهديّة الرائعة التي أنعمت عليَّ بها لفهمها أكثر .. إلهي ينعم عليك بخير الدنيا و الآخرة بعد عمر طويل إن شاء اللهتحياتي
وعليكم السّلام و رحمة الله و بركاته
افادني المنتدي كثيرا واقل ما اقوم بفعلة اجابة عما اعرفة من اسئلة
وللكل خالص الاحترام والتقدير