حفظ الاعدادت فى مسجل النظام Registry
صفحة 1 من اصل 1 • شاطر
حفظ الاعدادت فى مسجل النظام Registry
بسم الله الرحمن الرحيم
اهلا بكم أخوانى ....اليوم أن شاء الله تعالى سنتعلم سويا كيفية حفظ إعداد
البرنامج فى مسجل النظام ....فمثلا قمت بعمل برنامج وجعلت المستخدم قادر على تغير
بعض الاعدادات أثناء التنفيذ بأنه مثلا يقوم بأختيار لون معين كخلفية للنافذة
...فمن البديهى طبعا أن يظهر له مربع أختيار الالوان ثم بعد ذلك تطبيقة على النافذة
....وسوف يتم فعلا التطبيق لكن ماذا سيكون لون تلك النافذة بعد أغلاق البرنامج و
فتحه مرة أخرى ....الاجابة بالطبع لن تجد اللون الذى تم اختياره من قبل المستخدم
......
لذلك موضوعنا اليوم هو كيفية حفظ تلك الاعدادات سواء كانت ألوان أو نصوص أو قيمة
لمربع أختيار متعدد أو خانة أختيار ...
أولا : حفظ الاعدادات ...ويتم ذلك بأستخدام الكود التالى :
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
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
اليوم في 7:09 pm من طرف moslema_r
» شركة تنظيف فرشات بالرياض
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد