منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - الحصول علي صورة بمقاس معين وجودة معينة من داخل ايقونة

الصفحات : 1 2

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

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

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

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

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

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

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

16x16
32x32
64x64
128x128
256x256

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

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

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

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

الكود ادناه سوف يتعامل مع هذا النوع من الصور بشرط ان الصورة تكون موجودة في 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 لذلك وضعت البارميتار الثالث
لتحديد ان اردت جلب اكبر حجم ممكن ان لم يتوفر الحجم الذي اردته او رمي استثناء

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

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

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ali.alfoly

silverlight

ali.alfoly

الشاكي لله

ali.alfoly

silverlight

الشاكي لله

Aly El-Haddad

ali.alfoly