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

لعمل هذا البرنامج سنحتاج لنفس الأدوات التي تعاملنا معها في الدرس الخامس وهي أداة محرك الأقراص، وأداة مستعرض المجلدات وأداة مستعرض الملفات يضاف إليها أداة عرض الصور وهي ثاني أداة من الأسفل في قائمة الأدوات وبمجرد النقر المزدوج عليها تضع نسخة منها على النموذج وسيكون اسم هذه النسخة Image1 بقي أن نقوم بإجراء الربط ما بين الأدوات (محرك الأقراص ومستعرض المجلدات وكذلك أداة الملفات) بنفس الطريقة في درسنا السابق ثم نقوم بكتابة كود عرض الصورة . كيف؟



الآن نحن أمام مشكلة، إذا حددنا اسم الصورة التي سنعرضها فإننا سنحتاج لبرنامج مستقل لكل صورة نريد عرضها. ما هو المخرج؟ الحل بسيط نستخدم قيمة متغيرة لأي صــورة ولتكن K ، فبهذه القيمة نحجز مكاناً بحيث يكون البرنامج صالحاً لعرض أي صورة ، وحتى نضمن فاعلية المتغير علينا أن نعرفه على الأداة، فنقول (إذا كان الملف K صورة يجب عرضها) وتكون صيغة الأمر:

Image1.Picture = LoadPicture (K)

ويصبح الكود كاملاً كما في الشكل (1) ويلاحظ أننا أضفنا خاصية Picture كملحقة للأداة Image1 وهذه من ضمن مجموعة خصائص تظهر للمستخدم بمجرد اتباع الأداة بنقطة وسنترك التعرف على هذه الخصائص للدروس المستقبلية.



الآن ننفذ وسنجد أن البرنامج يهمل جميع الملفات ويعرض فقط الصور النقطية أنظر الشكل (2).
يمكن الحصول على الملفات المصدرية للمشروع من خلال الوصلة:

http://almothafar.5gbfree.com/up//do...9fe29159b6.zip



ــــــــــــــــــــــــــــــــــــــــــــــــــ ــــ