[justforit]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله و بركاته

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

password:vb4arb

[مصمم هاوي]

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

[justforit]

(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