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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [كود] أخذ ايقونة من صورة و حفظها (/showthread.php?tid=55358)

أخذ ايقونة من صورة و حفظها - justforit - 16-10-25

كود :
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

هذا الاجراء يحفظه مباشرة الى المسار المرسل
الان يعمل ولا ادري ماهو سر عدم عمله في وقت مضى!


RE: أخذ ايقونة من صورة و حفظها - justforit - 16-10-25

مثال على الكود بالمشاركة السابقة
password:vb4arb