منتدى مصر التقني
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

حفظ الاعدادت فى مسجل النظام Registry

اذهب الى الأسفل

حفظ الاعدادت فى مسجل النظام Registry Empty حفظ الاعدادت فى مسجل النظام Registry

مُساهمة من طرف السنى الأربعاء فبراير 13, 2013 5:28 am


بسم الله الرحمن الرحيم



اهلا بكم أخوانى ....اليوم أن شاء الله تعالى سنتعلم سويا كيفية حفظ إعداد
البرنامج فى مسجل النظام ....فمثلا قمت بعمل برنامج وجعلت المستخدم قادر على تغير
بعض الاعدادات أثناء التنفيذ بأنه مثلا يقوم بأختيار لون معين كخلفية للنافذة
...فمن البديهى طبعا أن يظهر له مربع أختيار الالوان ثم بعد ذلك تطبيقة على النافذة
....وسوف يتم فعلا التطبيق لكن ماذا سيكون لون تلك النافذة بعد أغلاق البرنامج و
فتحه مرة أخرى ....الاجابة بالطبع لن تجد اللون الذى تم اختياره من قبل المستخدم
......



لذلك موضوعنا اليوم هو كيفية حفظ تلك الاعدادات سواء كانت ألوان أو نصوص أو قيمة
لمربع أختيار متعدد أو خانة أختيار ...



أولا : حفظ الاعدادات ...ويتم ذلك بأستخدام الكود التالى :



SaveSetting App.EXEName, "SectionName, "ValueName", "Value"



فمثلا اريد حفظ القيمة الموجودة فى option1 اذن الكود سيكون على النحو التالى
:



الكود:
SaveSetting App.EXEName, "form1", "Option1", Option1.Value



وكما هو أعلاه ...بدئنا كود الحفظ بأستخادم الامر SaveSetting ثم اتبعناه
بالامر App.EXEName ثم كومة و بين علامتى تنصين كتبنا اسم المفتاح form1 ثم اسم
القيمة option1 القيمة المراد حفظها فى الريجستير و هى قيمة option1



ويمكن تغير الاسماء الخاصة بأسم المفتاح أو أسم القيمة كما يحلو لك ....فمثلا
سأقوم بحفظ اللون الموجود فى text1 على النحو التالى :



الكود:
SaveSetting App.EXEName, "mmmm", "vvv", Text1.BackColor



ففى المثال السابق غيرت اسم المفتاح واسم القيمة الى mmmm و vvv و القيمة
المراد حفظها هى لون خلفية text1



ثانيا : أسترجاع القيم المحفوظة ....ويتم ذلك على النحو التالى :



Setting = GetSetting(App.EXEName, "SectionName", "ValueName")



ويجب ملاحظة أن كلمة Setting تعبر عن القيمة التى تم حفظها ...فمثلا فى
المثالين السابقيين تم حفظ قيمة كل من Option1.Value و Text1.BackColor و
بالتالى فأن عملية الاسترجاع ستكون على النحو التالى :

الكود:
 


Option1.Value = GetSetting(App.EXEName, "form1", "Option1")

الكود:
 

Text1.BackColor = GetSetting(App.EXEName, "mmmm", "vvv")



و هكذا نكون قد حفظنا تلك الاعداد فى مسجل النظام Registry ...و ارجوا أن يستفاد
منه الجميع
السنى
السنى
........
........

تاريخ التسجيل : 18/02/2011
المساهمات : 249
النقاط : 464
التقيم : 25
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى