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

أهلا وسهلا بكم الاعضاء الافاضل اليوم أقدم
لكم المكتبة EgyConfig و التى من خلالها تستطيع إنشاء ملفات التكوين
بسهولة ....وقد يتسائل بعض الاخوة ماهى ملفات التكوين ؟


ملفات التكوين هى ملفات نصية تستخدم عادة في تخزين المعلومات و التعديلات التي قد تجريها
على برنامجك وتريد الاحتفاض بهده التعديلات في مكان , حتى يتسنى لك اللرجوع
لها عند فتح برنامجك مرة اخرى .... فهي متل فكرة الريجستر.....

تستخدم ملفات INI الأقواس لتحديد اﻷقسام واللتي بدورها تحتوي علي مفاتيح و قيم
....يتم الفصل بين المفتاح والقيمة المقابلة له بعلامة التساوي
(المفتاح=القيمة).....أسماء اﻷقسام تكتب بين قوسين مربعين ج[قسم].



هذه نبذة مختصرة على ملفات التكوين ....تعالوا الان نتعرف على كيفية أستخدام الاداة EgyConfig فى انشاء تلك الملفات ....


1 _ قم بتحميل الاداة و المثال من الملف المرفق فى تلك المشاركة .


2_
قم بتسجيل المكتبة EgyConfig فى مسجل النظام لديك و ذلك بوضع الملف فى
مجلد النظام Systim32 ثم بأستخدام الامر التالى فى موجهة الاموامر Run :

الكود:

RegSvr32 EgyConfig.dll

3_ قبل استخدام الاداة يجب اشتقاق كائن جديد من المكتبة بأستخدام الامر التالى :

الكود:

Dim egy As New EgyConfig.Cini

حيث ان egy متغير يمكنك تغيرة



4_ تحديد المسار الذى سيتم انشاء ملف التكوين فية باستخدام الامر التالى :

الكود:

egy.FileName = App.Path & "\setting.ini"


5_ بعد ذلك نكتب الاكواد التالية لكتابة ملف التكوين ....او بمعنى اصح البيانات التى نريد تخزينها

الكود:


egy.FileName = App.Path & "\setting.ini"
egy.ApplicationKey = "form1"

egy.SetValue "Text1", Text1.Text
egy.SetValue "Text2", Text2.Text
egy.SetValue "Text3", Text3.Text
Set egy = Nothing




وكما تلاحظون ......فى السطر الاول حددنا مسار ملف التكوين



السطر الثانى ....وضعنا مفتاح form1 و حتى يسهل علينا تحديد البيانات التابعة لكل نافذة



اما الاسطر الثالث و الرابع و الخامس ...هو انشئنا مفتاح text1 ثم حفظنا فية قيمة text 1 وهكذا للاسطر الاخرى



اما السطر الاخير هو بمثابة المتغير egy



6 _ قراءة البيانات المخزنة فى ملف التكوين ....با استخدام الكود التالى :

الكود:

Dim egy As New EgyConfig.Cini
egy.FileName = App.Path & "\setting.ini"
egy.ApplicationKey = "form1"

Text1.Text = egy.GetValue("Text1", "p")
Text2.Text = egy.GetValue("Text2", "p")
Text3.Text = egy.GetValue("Text3", "p")


و
بالنسبة للاكواد السابقة قمنا بجعل قيمة النص 1 يساوى القيمة المخزنة فى
المفتاح text1 وهكذا لباقى الاسطر ...لكن ستجد حرف p بعد المفتاح text1 وهو
بمثابة القيمة الافتراضية فى حالة عدم وجودة القيمة text1 لاى سبب من
الاسباب حتى لا يتسبب ذلك فى اغلاق البرنامج و يمكنك وضع اى قيمة اخرى بدلا
من حرف p

و الان اليكم المكتبة فى المرفقات مع مثال الشرح

مبدع والله ..