[silverlight]

أعتذر ......أنا ما كنت شفت البرنامج الموجود ف الكودبروجكت....شوف الصورة حسبما فهمت بتكون عبارة عن شريحة من الصور

الكود ادناه سوف يتعامل مع هذا النوع من الصور بشرط ان الصورة تكون موجودة في Resources الخاصة بمشروعك
عموما طالما تستطيع أن تستخلص الصورة أو إن الصورة بالفعل معك أي شئ أخر سهل جدا بعد ذلك.

الفكرة تنحصر في انك محتاج يكون لديك الصورة في Resources المشروع ثم تجعل Build Action الخاص ب الصورة Embeded

ثم نفذ الخطوات التالية:

1- تعريف Array و هي التي سوف نقوم بتخزين كل الصور بداخلها

كود :

Private images As Image()

2 - تقوم بتعريف الصورة الموجودة في Resources
وممكن تتعامل معها بشكل مباشر
الحقيقة انا أفضل تعريف صورة أخري حيث تكون الصورة الثانية بمثابة clone من الصورة الاصلية

كود :

Dim ResourcesBitmap As Bitmap = My.Resources.ImageStrip_Jpeg
        Dim bmp As Bitmap = CType(ResourcesBitmap.Clone(), Bitmap)

3- تحديد عدد الصور ف الشريحة و غالبا أنت هنا تتعامل مع شريحة افقية بها عدد أفقي من الصور ثم تمرر هذا العدد الي Array الموجودة في الخطوة الأولي

كود :

Dim count As Integer = bmp.Width / bmp.Height
        images = New Image(count) {}

4 - تعريف متغير عبارة عن مستطيل نحدد به أبعاد كل صورة

كود :

Dim rect As Rectangle = New Rectangle(0, 0, bmp.Height, bmp.Height)

5- نقوم بعمل loop لنقرأ الصور الموجودة في شريحة الصور ثم نضيف كل صورة الي مصفوفة الصور

كود :

For i As Integer = 0 To count - 1
            images(i) = bmp.Clone(rect, bmp.PixelFormat)
            rect.X += bmp.Height
        Next

6- الأن مصفوفة الصور بهها كل الصور...أفترض أنك تستطيع الأن استخدام مصفوفة الصور كما تشاء

مثلا ممكن تعرض الصورةالصورة الأولي في المصفوفة في PictureBox مثلا أو تحفظها علي جهاز

كود :

Me.PictureBox1.Image = images(0)

الكود الاجمالي سيكون شكله كالتالي

كود :

Private images As Image()

Dim ResourcesBitmap As Bitmap = My.Resources.ImageStrip_Jpeg
        Dim bmp As Bitmap = CType(ResourcesBitmap.Clone(), Bitmap)
        Dim count As Integer = bmp.Width / bmp.Height
        images = New Image(count) {}

        Dim rect As Rectangle = New Rectangle(0, 0, bmp.Height, bmp.Height)
        For i As Integer = 0 To count - 1
            images(i) = bmp.Clone(rect, bmp.PixelFormat)
            rect.X += bmp.Height
        Next

        Me.PictureBox1.Image = images(0)

عند تنفيذ الكود سيكون بطئ قليلا في البداية
لذلك الأفضل ان يتم كتابة الكود علي هيئة كلاس أو موديول و استخدامه من داخل مشروعك في مشروعك

عموها هذه هي الفكرة بشكل عام