ActiveBasicでのプログラミングでわからないこと、困ったことなどがあったら、ここで質問してみましょう(質問を行う場合は、過去ログやWeb上であらかじめ問題を整理するようにしましょう☆)。
-
少年1
#1
投稿記事
by 少年1 »
ドラッグされた実行ファイルのアイコンを
コマンドボタン(CommandButton2)に描画したいのですが
どうも上手く行きません。
どこを直せばいいのでしょうか?教えてください
Ver 4.11.02
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
エラーなども起きないのですが
描画もされません;;
よろしくお願いします
-
少年1
#3
投稿記事
by 少年1 »
「アイコン」スタイルはRADできちんとチェックされている状態なのですが...
プログラムの間違いでしょうか?
-
Toshi
- 記事: 98
- 登録日時: 2005年7月19日(火) 19:47
- お住まい: 山形県
-
連絡する:
#4
投稿記事
by Toshi »
コード: 全て選択
ExtractIconEx(fp,0,hBigIcon,0,1)
ヘルプによると、第 3 引数は
phiconLarge
32ビット整数型配列へのポインタを指定します。この配列に、大きいアイコンのハンドルが格納されます。不要なときは、NULL を指定します。
だそうなので、hBigIcon へのポインタを渡す必要があります。なので、
コード: 全て選択
ExtractIconEx(fp,0,VarPtr(hBigIcon),0,1)
としてポインタを渡す様にすれば正常に動作します。