[ali.alfoly]

جزاك الله خير
بس الدالة لتحويل صورة الي ايقونة انا اريد العكس

[silverlight]

يعني انتا عايز عايز تحول الايقونة ل صورة؟؟؟؟؟؟؟؟؟؟؟؟؟ وضح شوية من فضلك

[ali.alfoly]

ههههههههه والله وضحت حوالي 4 مرات بس مش عارف ايه المشكلة
الله المستعان اسئل االه تعالي ان يفهمني
يا جماعة الايقونة icon هي عبارة عن مجموعة من الصور وليست صورة واحدة
انظر الصورة

الصور مختلفة عن بعضها انا اريد جلب صورة منهم
وهذا موجود بالمثال السابق

[الشاكي لله]

بعد قراءة المشروع الي في الرابط

ارى انه اعتمد على مكتبات معقدة في النظام

لذلك اضن انه يمكن التحويل الى ابعاد محددة من الايقونة وهي :

16x16
32x32
64x64
128x128
256x256

غير هذه الابعاد لا اضن انها ممكنة


اذا كان هذا يرضيك ساقوم بتجهيز الكود حالا

[ali.alfoly]

انتظرك اخي محمد

[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)

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

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

[الشاكي لله]

تم تكوين الكلاس !

طريقة الاستعمال :-

اولا تستعمل دالة Create لإنشاء كائن ايقونة
ثانيا تستعمل الدالة IconToImage وتعطيها البارمترات المطلوبة (سيظهر لك شرح لكل بارميتار بالعربي)

PHP كود :

string path = @"C:\Program Files\TeamViewer\Version9\TeamViewer.exe";    //you can use also .ico files

            System.Drawing.Icon icon = IconConverter.Convert.CreateIcon(path);
            Image img = IconConverter.Convert.IconToImage(icon, IconConverter.IconSize.Size_256, true);
            
            pictureBox1.Image = img; 


بالنسبة للبارميتار الثاني فإنك تعطيه Size الي تبيه .

اما بالنسبة للجودة ، فاني قمت افتراضيا بجلب الدقة الافضل :
كما هو واضح في احد اكواد الكلاس :-

PHP كود :

Icon ic = Icons.OrderBy(i => (int)i.GetType().GetField("bestBitDepth" 
                             System.Reflection.BindingFlags.NonPublic |
                             System.Reflection.BindingFlags.Instance).GetValue(i)).Last(); 


الكود اعلاه بيجيب bestBitDepth

بمعنى افضل جودة للحجم الي انت اخترته


-

لان جه في بالي انك ماراح تحتاج الى اختيار الجودة لأنك بتستعمل الصور في اداة imagelist

واداة ImageList توجد بها خاصية اسمها ColorDepth حتى تختار جودة الصورة ، فما تحتاج تحدد الجودة في عملية التحويل لانك في النهاية تقدر تتحكم بالجودة من اداة ImageList





___


وايضا بعض الايقونات لايتوفر لها حجم 128 او 256 لذلك وضعت البارميتار الثالث
لتحديد ان اردت جلب اكبر حجم ممكن ان لم يتوفر الحجم الذي اردته او رمي استثناء

[Aly El-Haddad]

السلام عليكم، كيف حال الجميع؟
لم أقرأ الردود كلها لضيق الوقت لكن هذا الموضوع قد يساعدكم
http://vb4arb.com/vb/thread-1328.html
في رعاية الله

[ali.alfoly]

جزاكم الله خيرا اخواني وجعله الله تعالي في موازين حسناتكم مجهودات كبيرة جدا شكرا لكم وهذا المعتاد منكم دائما
اخي محمد ممكن السورس