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

اقدم لكم اداة التحكم  Thumbnail Scroll وهى عبارة عن شريط التمرير التي يمكنك من تحميل شريط من الصور وعرضها على هيئة مصغرات Thumbnails كما فى الصور التالية :







من مميزات الاداة انها تقبل الصور بامتداد JPG، GIF، BMP ....ولكيفية استخدامها على النحو التالى :

1_ يتم رسم الاداة على النافذة

2_ يتم استخدام الاسلوب AddThumb لاضافة الصورة الى الاداة اما من خلال الكود التالى :

الكود:

ucThumb1.AddThumb(LoadPicture(c:/imagem.jpg), key)

فالكود اعلاه يقوم بتحميل الصور من مجلد الصور مباشرة و يمكن ملاحظة ان المعلمة key هى اختيارية يمكنك الاستغلاء عنها ...أو يمكنك أيضا تحميل الصور من عنصر تحكم آخر، على سبيل المثال من picturebox، وهو ImageList الخ ..على النحو التالى :

الكود:

ucThumb1.AddThumb(ImageList.ListImages(index).Picture)

3_بعد إضافته الى الاداة يمكنك اسخدام الاسلوب ShowThumbnails لاستدعاء او اظهار تلك الصور على النحو التالى :

الكود:

With ucThumb1
        Call .AddThumb(LoadPicture("c:\imagen.jpg"))
        Call .ShowThumbnails
    End With  

و لاظهار جميع الصورة بالاداة يمكنك عمل حقلة تكرارية


وللمزيد من المعلومات حول كيفية الاستخدام قم بتحميل المشروع بالاداة من الرابط التالى :

رابط تحميل المشروع .....الرابط ربما يكون غير نشط فى حالة كونك غير مسجل بالمنتدى