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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : تحويل عدة صور الى ايقونات (/showthread.php?tid=55359)

تحويل عدة صور الى ايقونات - justforit - 16-10-25

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله و بركاته
مثال بسيط لتحويل صورة واحدة الى ايقونة او عدة صور من مجلد يحولها دفعة واحدة بمقاسات جديدة
password:vb4arb


RE: تحويل عدة صور الى ايقونات - مصمم هاوي - 16-10-25

جزاك الله كل خير على البرنامج
وسأقوم بتجربته

RE: تحويل عدة صور الى ايقونات - justforit - 16-10-25

(16-10-25, 04:50 PM)مصمم هاوي كتب : جزاك الله كل خير على البرنامج
وسأقوم بتجربته

واياك اخي الكريم
 تشرفت بزيارتك للموضوع
الكود المستخدم اذكر انه لم يعمل و كانت تظهر اخطاء و لم افهم السبب.
الكود التالي هو المسؤول مع شوي تجهيزات (اقصد المشروع اللي بالوضوع الحالي):

كود :
Public Sub Ticon(imgpath As String, iconpath As String)
   Dim bmp As New Bitmap(Image.FromFile(imgpath))
   Dim iconHandle = bmp.GetHicon()
   Dim icon As Icon = Icon.FromHandle(iconHandle)
   Using fs As New FileStream(iconpath, FileMode.Create)
       icon.Save(fs)
   End Using
End Sub