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