[سوال] ذخیره آیکون EXE,اساتید گرامی لطف کنید جوابم رو بدید :-(

[!_!_batman_!_!]

درود!
چند روزه خیلی سعی کردم یه Icon changer خوب و کاربردی بنویسم اما به یه مشکل خیلی جدی برخوردم
حالا مشکلم؟
یه قسمتی از برنامه هست که آیکون یه فایل اجرایی (exe) رو واسم برمیگردونه
اما مشکله من اینجاست که این آیکون لامصب رو چه جوری سیو کنم که هم کیفیت آیکون حفظ بشه و هم واقعا به شکل یه آیکون سیو بشه!!!
این شده واسه من یه مشکل,چندین روزه نت,دوستان ... رو الاف خودم کردم اما کسی نتونست کمکم کنه!
تعدادی سورس از نت گرفتم اما آیکون رو سیو میکنه ولی رنگ آیکون رو میریزه بهم
ممنون میشم این مشکلم رو حل کنید
×××××××××××××××××××××
یه چندباری اینجا TOPIC ایجاد کردم و مشکلم رو مطرح کردم ولی اینجور که دیدم استادان گرامی خیلی دیر به سوالم جواب دادند
امیدوارم زود به جوابم برسم,چون خیلی به این تکه کد احتیاج دارم

[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

[setroyd]

سلام.
یه کلاس برای کار با آیکون ها برات اتش کردم.

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

کد:

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

این کد اشتباه است من فکر میکنم class مشکل دارد لطفا درستش رو up کن اگه میتونی ممنون