ايران ويج

(۲۵-تير-۱۳۹۱, ۲۲:۲۳:۴۳)Payman62 نوشته است: [ -> ]سلام.
یه کلاس برای کار با آیکون ها برات اتش کردم.

کلاس رو به پروژه اضافه کن.
اینم یه نمونه کد برای کار باهاش.

کد:

Const FileNamePath As String = "c:\WINDOWS\system32\shell32.dll"
Private Sub Command1_Click()
Dim GIcon As New GetIcon
Dim IIndex As Long
IIndex = Val(Text1.Text)

Cls
With GIcon
.LoadIconFromEXE FileNamePath, IIndex, 1
For ISum = 1 To .ImageCount
.DrawIconImage Me.Hdc, ISum, ecfiImage, _
10 + (ISum - 1) * 50, 40, .ImageWidth(ISum), .ImageHeight(ISum)
Next ISum
End With
GIcon.SaveIcon "F:\Payman\Programming\VB\Source\0Source\Icon\VBA_GetIcon\VBA GetIcon\Icon.ico"
Set GIcon = Nothing
End Sub