تغيير اشكال نماذج الأكسيس بأشكال جميله

اخواني الكرام
السلام عليكم ورحمة الله وبركاته
لدينا اليوم درس بسيط وسهل وممتع في نفس الوقت حيث سنقوم بتغيير شكل نموذج الأكسيس بأشكال جميله من خلال بعض الخطوات البسيطة والسهلة نقوم بعملها فعلى بركة الله نبدأ .
اولا : نسخ عنصر اكتيف اكس Active X واشكال النماذج
1. يوجد في الملف المرفق مكتبة تدعى ExSkin.dll وهي الأداة التي تقوم بتغيير شكل النموذج الى عدة اشكال لذا نقوم بنسخها مباشرة الى مجلد نظام الويندوز C:\WINDOWS\system32
2. يوجد في الملف المرفق ملفات تنتهي بالإمتداد esk وهي عبارة عن اشكال جاهزة للنماذج نقوم بوضعها في نفس مجلد قاعدة البيانات التي نعمل عليها .

ثانيا : ادراج الأداة في برنامج الأكسيس
1. نقوم بفتح برنامج الأكسيس ومن ثم نقوم بإنشاء نموذج جديد - او نستخدم احد النماذج الموجوده في قاعدة بياناتنا والتي سبق وان قمنا بعملها - في وضع التصميم .
2. نذهب الى شريط قوائم الأكسيس العلوي ونختار ادوات ثم ادراج ثم نختار عنصر تحكم Active X


3. سيفتح لنا نافذة عناصر التحكم والمكتبات الموجوده في مجلد نظام الويندوز نقوم بالبحث عن عنصر التحكم ExSkinForm ActiveX Control ثم نقوم بإختياره ومن نضغط على موافق .


4. سيتم ادارج عنصر التحكم في النموذج ( وهو في وضع التصميم )
5. بعد ظهور عنصر التحكم على النموذج نقوم بالضغط عليه بزر الماوس الأيمن وسيفتح لنا قائمة نختار منها كائن ExSkinForm ActiveX Control وستظهر لنا قائمة فرعية نختار منها Load Skin


6. بمجرد الضغط على تحميل الشكل او الجلد Load Skin سيتم فتح نافذة البحث عن الملفات الخاصة بالأشكال ( التي وضعناها سابقا في نفس مجلد القاعدة ) والتي تنتهي بالإمتداد esk


7. نقوم بإختيار اي شكل من الأشكال ثم نضغط Open وسيتم اغلاق النافذة .
8. نقوم الآن بالحفظ او الضغط على زري الأمر في لوحة المفاتيح Ctrl+S

ثالثا : تفعيل المكتبة ExSkin 1.0 Control Library في مراجع الأكسيس
1. نفتح النموذج في وضع التصميم ثم نقوم بالضغط على المفتاحين ALT+F11 من لوحة المفاتيح لنصل بسرعة الى محرر الفيجول بيسك الخاص بكتابة الأكواد ونختار من القوائم Tools ثم نختار References


2. نبحث في القائمة عن المكتبة ExSkin 1.0 Control Library ثم نقوم بوضع علامة صح عليها ثم نضغط OK وسيتم اغلاق النافذة .


اخيرا نضع هذا الكود عند حدث التحميل للنموذج

Private Sub Form_Load()
ExSkinForm0.Visible = False
ExSkinForm0.Refresh
End Sub

ليظهر لنا النموذج بهذا الشكل


وهذه عدة اشكال من النماذج قد تم عملها بهذه الطريقة في قاعدة البيانات المرفقة