ab.com コミュニティ

ExtractIconEx(fp,0,hBigIcon,0,1)

ExtractIconEx(fp,0,VarPtr(hBigIcon),0,1)

[code]
ExtractIconEx(fp,0,hBigIcon,0,1)

[/code]
ヘルプによると、第 3 引数は
[quote]
phiconLarge
32ビット整数型配列へのポインタを指定します。この配列に、大きいアイコンのハンドルが格納されます。不要なときは、NULL を指定します。

[/quote]
だそうなので、hBigIcon へのポインタを渡す必要があります。なので、
[code]
ExtractIconEx(fp,0,VarPtr(hBigIcon),0,1)

[/code]
としてポインタを渡す様にすれば正常に動作します。

「アイコン」スタイルはRADできちんとチェックされている状態なのですが...
プログラムの間違いでしょうか？

[url]http://www.program-lab.jp/blog/progmemo/archives/cat_win32iesso.html[/url]
↑によると「アイコン」スタイルを追加する必要があるようです。
ActiveBasicのRADでもこのスタイルに対応していますので、チェックを入れてみて下さい。

ドラッグされた実行ファイルのアイコンを
コマンドボタン(CommandButton2)に描画したいのですが
どうも上手く行きません。
どこを直せばいいのでしょうか？教えてください
Ver 4.11.02

[quote]
Sub MainWnd_DropFiles(hDrop As HDROP)
dim fp as String
dim hEdit2 as HANDLE
dim hCB as HWND

fp=ZeroString(256)
DragQueryFile(hDrop,0,fp,256)
ExtractIconEx(fp,0,hBigIcon,0,1)
hCB=GetDlgItem(hMainWnd,CommandButton2)

SendMessage(hCB,BM_SETIMAGE,IMAGE_ICON,hBigIcon)

End Sub[/quote]

エラーなども起きないのですが
描画もされません；；
よろしくお願いします