16-10-25, 01:00 AM
كود :
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هذا الاجراء يحفظه مباشرة الى المسار المرسل
الان يعمل ولا ادري ماهو سر عدم عمله في وقت مضى!
![[صورة مرفقة: image2icon.png]](https://i.postimg.cc/zvn6pk0b/image2icon.png)