dll、exeから取得したアイコンをフォームのアイコンにしたい

解決

ハナクソース 2004-04-09 20:10:21 No: 112759

VB6でDLLやEXEから取得したアイコンをフォームのアイコンに設定する
ということをやっています。
APIのExtractIconでアイコンのハンドルを取得はできるのですが、
formのIconプロパティに設定する方法がわかりません。
どうやればいいのでしょうか？？

↓↓↓ちなみにアイコンハンドル取得はこんな感じでやっています↓↓↓
ExtractIcon(Me.hWnd, App.Path & "\EXCEL.EXE", CLng(0))

ぴろあき 2004-04-09 20:55:09 No: 112760

Me.Icon = LoadPicture("<ファイル名>")
でOK。

ぴろあき 2004-04-09 21:01:00 No: 112761

ああ、失礼。
ハンドルまでか・・・

http://kone.vis.ne.jp/program/#sample17
ここのSaveIconFile関数で保存して、
LoadPictureで問題ないでしょう。

ぴろあき 2004-04-10 02:15:41 No: 112762

失礼、何もファイルに落とす必要ないですね。。。
Call DrawIcon(Me.hDC, 0, 0, <アイコンハンドル>)

ハナクソース 2004-04-13 22:49:30 No: 112763

ぴろあきさん、ありがとうございました。
何とかできそうです☆
返事が遅くなりまことにすみませんm(_ _)m

ハナクソース 2004-04-14 19:02:23 No: 112764