16-10-25, 01:54 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله و بركاته
مثال بسيط لتحويل صورة واحدة الى ايقونة او عدة صور من مجلد يحولها دفعة واحدة بمقاسات جديدة
password:vb4arb
16-10-25, 04:50 PM
جزاك الله كل خير على البرنامج
وسأقوم بتجربته
وسأقوم بتجربته
16-10-25, 09:46 PM
(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