الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ماهي الكود او الدوال المستخدمة للتحويل صيغ الصور

بدأه mdf في 11 مايو 2010 · 14 رد · 1,343 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

لدي فكرة برنامج لتحويل الصور من جميع الصيغ إلى صيغة ico + تغير طول وعرض الصور....اريد ماهي الكود او الدوال المستخدمة للتحويل صيغ الصور

اي شئ غير واضح مكن السؤال انا جاهز

تم تعديل هذه المشاركة بواسطة mdf في 11 مايو 2010 في 15:05

#3
محمد رضى كتب:

أولاً مشكور جداً.....لكن الفكرة هي تحويل الصيغ من gif.jpg.png إلى ico فقط ....لكن الدوال الى الان لم اعرف ماهي المسئوله عن التحويل في الذي ذكرت ...ممكن لو توضح الطريقه المجديه

تم تعديل هذه المشاركة بواسطة mdf في 12 مايو 2010 في 00:55

#4

يمكنك المتابعة من هنا :

            ' تحميل صورة من ملف
            Dim img As Image = Image.FromFile("file.ext")
            ' تحويل الصورة إلى أيقونة و إضهارها على النموذج
            Me.Icon = Icon.FromHandle(DirectCast(img, Bitmap).GetHicon())

بالتوفيق :)

#5
محمد رضى كتب:

يمكنك المتابعة من هنا :

            ' تحميل صورة من ملف
            Dim img As Image = Image.FromFile("file.ext")
            ' تحويل الصورة إلى أيقونة و إضهارها على النموذج
            Me.Icon = Icon.FromHandle(DirectCast(img, Bitmap).GetHicon())

بالتوفيق :)

اشكرك جداً ...لكن لدي بعض الاسفسارات

اولاً الكود فيه خلال من Icon.FromHandle وهل الصحيح rawing.Icon.FromHandle والكود الذي وضعت هل هو من الموقع هذا http://msdn.microsoft.com/en-us/library/system.drawing.image_members%28v=VS.100%29.aspx?appId=Dev10IDEF1&l=FR-FR&k=k%28SYSTEM.DRAWING.IMAGE%29%3bk%28VS.OBJECTBROWSER%29%3bk%28TargetFrameworkMoniker-%22.NETFRAMEWORK&k=VERSION%3dV4.0%22%29&rd=true

انا بحثت عنه لكي استفيد من هذا الموقع

ثانياً إذا وضعنأ شرط PictureBox إذا كان فارغاً فاكذا If PictureBox1.Image == Then

MsgBox("no picture box")

Else

او If PictureBox1.Image = Nothing Then

MsgBox("no picture box")

Else

ثالثاً كيف تغير مقاس الطول والعرض للصور قبل الحفظ ؟

رابعاً إذا كان التحويل إلى صيغ صور اخرى هل بنفس الطريقة فقط تغير icon إلى png و هل التحوبل إلى الاصوت و الفيديو نفس الطريقة ام هناك دوال تختلاف ممكن توضح لي هذا الدوال ؟

تم تعديل هذه المشاركة بواسطة mdf في 20 مايو 2010 في 01:10

#6

جاري الانتظار...لحين الاجابه

#7

هذا كود لتحميل صورة بصيغة ما, تغيير حجم الصورة ثم حفظها في ملف آخر بصيغة أخرى :

        ' ننشئ كائن صورةجديد و نحمل فيه صورة بصيغة jpg
        Dim orgImg As Image = Image.FromFile("path\file.jpg")
        ' ننشئ صورة بالحجم الجديد الذي نريد
        Dim bmp As New Bitmap(400, 400)
        ' ننشئ كائن من رسم مرتبط بالصورة الجديدة
        Dim grphx As Graphics = Graphics.FromImage(bmp)
        ' نرسم الصورة الأصلية على الصورة الجديدة مع تحديد الحجم الجديد
        grphx.DrawImage(orgImg, New Rectangle(0, 0, bmp.Width, bmp.Height))
        ' نحفظ الصورةالجديدة بصيغة أخرى غير الأصلية
        bmp.Save("path\file.png", Imaging.ImageFormat.Png)
        ' تحرير موارد النظام
        grphx.Dispose()
        bmp.Dispose()
        orgImg.Dispose()

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

بالتوفيق :)

#8

يامحمد رضى ...الله يرضى عليك ....اريد اجابه على اسئلتي ممكن... :blush:

اولاً الكود هل فيه خلال من Icon.FromHandle وهل الصحيح rawing.Icon.FromHandle انا استخدمت rawing.Icon.FromHandle والحمدلله شغال تطلع النتيجة بدل إيقونة الفورم ....والكود الجديد هذا ...ماالفرق بينه وبين الذي استخدمته في الاول؟

Dim dn As Image = PictureBox1.Image

Dim bmp As New Bitmap(32, 32)

Dim grps As Graphics = Graphics.FromImage(bmp)

grps.DrawImage(dn, New Rectangle(0, 0, bmp.Width, bmp.Height))

bmp.Save("C:\users\اسم جهازك\Desktop\file.ico", Imaging.ImageFormat.Icon)

grps.Dispose()

bmp.Dispose()

dn.Dispose()

ثانياً انا استخدمته من تحويل png إلى icon تخرج الايقونة غير صحيح ....حتى حاولت استخدامها بدل إيقونة الفورم في الفوجل بيسك لكن طلعت خطأ

ثالثاً ما المقصود بموارد النظام في

grps.Dispose()

bmp.Dispose()

dn.Dispose()

وهل اكوادك من موقع الشركة

http://msdn.microsof...0%22%29&rd=true

رابعاً

إذا وضعنأ شرط PictureBox إذا كان فارغاً فهاكذا If PictureBox1.Image == Then

MsgBox("no picture box")

Else

او If PictureBox1.Image = Nothing Then

MsgBox("no picture box")

Else

انا يا محمد اريد افهم .وليس انسخ ولصق الكود دون معرفه ....اساس اطور في البرامج و افيد الاخرين ؟ :)

ولك مني جزيل الشكر

تم تعديل هذه المشاركة بواسطة mdf في 20 مايو 2010 في 21:41

#9

للرفع

#10

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

#11

يامحمد رضى ...الله يرضى عليك ....اريد اجابه على اسئلتي ممكن...

اولاً الكود هل فيه خلال من Icon.FromHandle وهل الصحيح rawing.Icon.FromHandle انا استخدمت rawing.Icon.FromHandle والحمدلله شغال تطلع النتيجة بدل إيقونة الفورم ....والكود الجديد هذا ...ماالفرق بينه وبين الذي استخدمته في الاول؟

Dim dn As Image = PictureBox1.Image

Dim bmp As New Bitmap(32, 32)

Dim grps As Graphics = Graphics.FromImage(bmp)

grps.DrawImage(dn, New Rectangle(0, 0, bmp.Width, bmp.Height))

bmp.Save("C:\users\اسم جهازك\Desktop\file.ico", Imaging.ImageFormat.Icon)

grps.Dispose()

bmp.Dispose()

dn.Dispose()

ثانياً انا استخدمته من تحويل png إلى icon تخرج الايقونة غير صحيح ....حتى حاولت استخدامها بدل إيقونة الفورم في الفوجل بيسك لكن طلعت خطأ

ثالثاً ما المقصود بموارد النظام في

grps.Dispose()

bmp.Dispose()

dn.Dispose()

وهل اكوادك من موقع الشركة

http://msdn.microsof...0%22%29&rd=true

رابعاً

إذا وضعنأ شرط PictureBox إذا كان فارغاً فهاكذا If PictureBox1.Image == Then

MsgBox("no picture box")

Else

او If PictureBox1.Image = Nothing Then

MsgBox("no picture box")

Else

#12

للرفع

#13

يامحمد رضى ...الله يرضى عليك ....اريد اجابه على اسئلتي ممكن...

اولاً الكود هل فيه خلال من Icon.FromHandle وهل الصحيح rawing.Icon.FromHandle انا استخدمت rawing.Icon.FromHandle والحمدلله شغال تطلع النتيجة بدل إيقونة الفورم ....والكود الجديد هذا ...ماالفرق بينه وبين الذي استخدمته في الاول؟

Dim dn As Image = PictureBox1.Image

Dim bmp As New Bitmap(32, 32)

Dim grps As Graphics = Graphics.FromImage(bmp)

grps.DrawImage(dn, New Rectangle(0, 0, bmp.Width, bmp.Height))

bmp.Save("C:\users\اسم جهازك\Desktop\file.ico", Imaging.ImageFormat.Icon)

grps.Dispose()

bmp.Dispose()

dn.Dispose()

ثانياً انا استخدمته من تحويل png إلى icon تخرج الايقونة غير صحيح ....حتى حاولت استخدامها بدل إيقونة الفورم في الفوجل بيسك لكن طلعت خطأ

ثالثاً ما المقصود بموارد النظام في

grps.Dispose()

bmp.Dispose()

dn.Dispose()

وهل اكوادك من موقع الشركة

http://msdn.microsof...0%22%29&rd=true

رابعاً

إذا وضعنأ شرط PictureBox إذا كان فارغاً فهاكذا If PictureBox1.Image == Then

MsgBox("no picture box")

Else

او If PictureBox1.Image = Nothing Then

MsgBox("no picture box")

Else

#14

اي احد يعرف يرد علي وجزاه الله خير

#15

أخي mdf, دعنا نتطرق للموضوع سؤال ثم سؤال آخر.

و رجاء, المزيد من الوضوح في طرح كل سؤال على حدة...

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…