كود استخراج أيقونة من أي ملف :

آسف لإنقطاعي على المنتدى ولكن البارحة أنهيت مشروع وسلمته والحمد لله رب العالمين .....

ومن اليوم سنبدأ لنستعيد نشاطنا إن شاء الله ..............

أخوتي ضعوا هذا الكود في قسم التعاريف الأساسي للفورم general

[ALIGN=LEFT]Private Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociatedIconA" (ByVal hInst As Long, ByVal lpIconPath As String, lpiIcon As Long) As Long

Private Declare Function DrawIconEx Lib "user32" (ByVal hdc As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long[/ALIGN]

ثم ضعوا الكود التالي في الفورم في وضعية الحدث paint

'تعريف متحول من نوع طويل ليتم تخزين الأيقونة فيه بينما تتم طباعتها

[ALIGN=LEFT]  Dim mIcon As Long

 'لأستخراج مسار الأيقونة

  mIcon = ExtractAssociatedIcon(App.hInstance, "C:windowscalc.exe", 2)

'لرسم الأيقونة على الفورم

Call DrawIconEx(Me.hdc, 0, 0, mIcon, 0, 0, 0, 0, &H2)[/ALIGN]

عندها تلاحظ طباعة الأيقونة ولكن بشكل صورة غير شفافة ...

حاول أن تغير البرامتر

&h2 إلى البرامتر &h1 فتلاحظ أنه تم طباعة قناع ولدمج الإثنين معا تظهر الصورة نقية بدون القناع والأطراف فيصبح الكود كالتالي :

[ALIGN=LEFT]Private Sub Form_Paint()

  Dim mIcon As Long

  mIcon = ExtractAssociatedIcon(App.hInstance, "C:windowscalc.exe", 2)

Call DrawIconEx(Me.hdc, 0, 0, mIcon, 0, 0, 0, 0, &H1 + &H2)



End Sub[/ALIGN]

(gift)(f)