التعامل مع الرجستري باستخدام فيجوال بيسك دوت نت - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184) +--- الموضوع : التعامل مع الرجستري باستخدام فيجوال بيسك دوت نت (/showthread.php?tid=4835) |
التعامل مع الرجستري باستخدام فيجوال بيسك دوت نت - RaggiTech - 02-10-12 كاتب الموضوع : حميد ربيع
بسم الله الرحمان الرحيم التعامل مع الرجستري باستخدام فيجوال بيسك دوت نت
اذا كنت مهتما و تود اكتشاف هذا العالم ، سيكون هذا الدرس ان شاء الله مدخلك وبداية طريقك لاكتشاف هذا العالم. ملاحظة: هذا الدرس موجه الي المبتدئين والمتوسطين وهو تعليمي وليس احترافي، كما سبق القول فهو فقط مدخل مبسط . ﻹستعاب هذه الدروس جيدا سنعمل علي مثال بسيط يقربنا من فهم الشيفرات المستعلة ويزيل عنا عبئ البحث بين صفحات الكتب ومتاهة روابط المواقع والمنتديات التعليمية المليئة بالدروس والكتب و في الأخر لا تجد ما تبحث عنه،وباختصار أرجو من الله أن يكون هذا الدرس المتواضع الحل الشافي لمعناتك،ويكون فاتحة خير ﻹستعابك مفاهيم أخرى،والله ولي التوفيق. للرجستري استعملات عدة من بينها حفظ اعدادات البرنامج و حفظ بعض القيم لاستعمالها لاحقا و غيرها ... أولا: قم بانشاء مشروع جديد بعنوان : lesson Registry . وصمم الفورم علي الشكل التالي : قم بتغير خاصية Name للنص الأول الي UserName و النص الثاني الي PassWord . + كتابة الشيفرات . * أولا يجب عليك استدعاء مجال الأسماء Microsoft.Win32 وذلك علي الشكل التالي كود : [color=blue]Imports[/color] Microsoft.Win32 كود : Dim RecSami As RegistryKey = Registry.CurrentUser.CreateSubKey("Key Sami") + كتابة الشيفرات : دوبل كليك علي زر إنشاء حساب أو Create Account . وبعد ذلك نقوم بكتابة الشفرة التالية : كود : If UserName.Text = "" Or PassWord.Text = "" Then +تحليل الشيفرة: كود : If UserName.Text = "" Or PassWord.Text = "" Then كود : Else وهذه هي النتيجة : كما تلاحظ بالفعل تمكنا من الكتابة داخل الرجستري قيم ستحفظ بداخله يمكن التعديل عليها . الشيفرات الخاصة بالفورم1 ستكون علي الشكل التالي : كود : Imports Microsoft.Win32 أضف فورم 2 وصممه علي الشكل التالي: قم بتغير خاصية Name للنص الأول الي UserName و النص الثاني الي PassWord و النص التالث الي txtWrite كما العادة استدعي مجال الأسماء Microsoft.Win32 وقم بتعريف نفس المتغير الذي استعملناه في الفورم1 كود : Dim RecSami As RegistryKey = Registry.CurrentUser.CreateSubKey("Key Sami") كود : Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + الأن نضع شفرة الحفظ Save . كود : RecSami.SetValue("txtWrite", txtWrite.Text) *ربما قد تقول لي ماذا لو نسي المستخدم الضغط علي زر الحفظ وأغلق البرنامج وكان قد عدل علي أدة النص ، أقول لك مصيبة فلن يتم حفظ ما تغير ، ولتجنب هذا المشكل أقترح عليك حلا يمنع وقوع هذا الخطئ . + استعرض أحداث الفورم و أنقر علي FormClosed وأكتب الشفرة التالية : كود : Private Sub Form2_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed بهذا عند اغلاق المستخدم البرنامج سيتم حفظ ما تغير . + كتابة الشفرة الخاصة باستعراض الصورة Browse أولا أضف أداة OpenFileDialog وغير خاصية Name الي open كود : open.Title = "Browse Picture" كود : Picture.Image = Image.FromFile(RecSami.GetValue("Picture")) أداة OpenFileDialog تستخدم لاستعراض الملفات و الصور أي جلبها من علي الحسوب ، أود أن أشرح لك تفاصيل هذه الأداة ولكن لا أود أن أضيف سطور إضافية لهذا الكتاب لأنه يوجد الكثير لأخبرك عن هذه الأداة، وفي اعتقادي أنك ستفهم الشفرة السابة بمجهودك الخاص . + والنتيجة ستون علي الشكل التالي : الشيفرات الخاصة بالفورم2 ستكون علي الشكل التالي : كود : Imports Microsoft.Win32 تحميل المشروع أرفقت مشروعين الاول ب vb.net 2005 ; والثاني ب vb.net 2008 تحميل الدرس 2005 2008 |