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هذا الاجراء يحفظه مباشرة الى المسار المرسل
الان يعمل ولا ادري ماهو سر عدم عمله في وقت مضى!
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
