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

解決


ハナクソース  2004-04-09 11:10:21  No: 112759  IP: [192.*.*.*]

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

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

編集 削除
ぴろあき  2004-04-09 11:55:09  No: 112760  IP: [192.*.*.*]

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

編集 削除
ぴろあき  2004-04-09 12:01:00  No: 112761  IP: [192.*.*.*]

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

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

編集 削除
ぴろあき  2004-04-09 17:15:41  No: 112762  IP: [192.*.*.*]

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

編集 削除
ハナクソース  2004-04-13 13:49:30  No: 112763  IP: [192.*.*.*]

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

編集 削除
ハナクソース  2004-04-14 10:02:23  No: 112764  IP: [192.*.*.*]

編集 削除