イメージボックスにアイコンを表示

[BASIC32]

早速ですが、イメージボックスにアイコンを、表示させることはできます。（ＲＡＤで）
ですが、それは32＊32のアイコンだけ表示され、
16＊16のアイコンを表示しようとすると、32＊32に拡大されて表示されます。
これは、ActiveBasicの仕様なのでしょうか。

もし、仕様なら、無理矢理でも表示させる方法は、無いのでしょうか。
環境は、以下の通りです。
OS:WindowsMe
ABのバージョン:4.24

返信、よろしくお願いいたします。

[C1000]

プログラムの中からなら表示する方法を見つけました。
http://resume-next.hp.infoseek.co.jp/data/Win3.html

コード: 全て選択

'グローバル変数
Dim hImage As DWord

'ウィンドウ作成時
Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
hImage=LoadImage(GetModuleHandle(0),IDI_ICON1,IMAGE_ICON,16,16,LR_DEFAULTCOLOR)
SendMessage(GetDlgItem(hMainWnd,ImageBox1),STM_SETIMAGE,IMAGE_ICON,hImage)
End Sub

[BASIC32]

> プログラムの中からなら表示する方法を見つけました。
> http://resume-next.hp.infoseek.co.jp/data/Win3.html
>

コード: 全て選択

'グローバル変数
> Dim hImage As DWord
> 
> 'ウィンドウ作成時
> Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
> hImage=LoadImage(GetModuleHandle(0),IDI_ICON1,IMAGE_ICON,16,16,LR_DEFAULTCOLOR)
> SendMessage(GetDlgItem(hMainWnd,ImageBox1),STM_SETIMAGE,IMAGE_ICON,hImage)
> End Sub
> 

それです。
ありがとうございます。

あとですね、コマンドボタンに、アイコンと文字列を表示する方法は、ありませんか？

[konisi]

コマンドボタンに画像を貼り付ける方法は、僕は試行錯誤しているところで分かりません。

※その時はコマンドボタンそのものを擬似的に作って、自分で描画するっていう方法に切り替えました。

[BASIC32]

画像だけをコマンドボタンに表示する方法なら、コードの切れ端の中の、
BackSearchAB.chm の中を探せば、見つかりますよ。

[ゲスト]

ビットマップ作って貼り付ければいいのでは？

[BASIC32]

> ビットマップ作って貼り付ければいいのでは？
確かに、そうですが、
GetWindowText 関数等で、文字を取得できない事や、
ResouceHacker等で、文字入りビットマップを見られたくないので。。。
なるべく、文字とアイコン（orビットマップ）を、ボタンに表示させる方法が、
いいのですが。。。
わがままばかりで、すみません。

[konisi]

相当面倒ですが、SetPixel関数で直に描画したほうが早いかもしれません。

[C1000]

BackSearchABの中にありました。

コード: 全て選択

SendMessage(GetDlgItem(hMainWnd, CB_TEST), _
BM_SETIMAGE, IMAGE_ICON, _
LoadIcon(CreateStruct.hInstance, IDI_ICON1))

[NoWest]

こんなんでどうでしょうか？

コード: 全て選択

Dim hBmp As HBITMAP

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
	Dim hDC As HDC
	hDC=GetDC(hMainWnd)

	Dim hBmpDC As HDC
	hBmpDC=CreateCompatibleDC(hDC)

	hBmp=LoadBitmap(CreateStruct.hInstance,IDB_BITMAP1)

	DeleteObject(SelectObject(hBmpDC,hBmp))
	ReleaseDC(hMainWnd,hDC)

	SetBkMode(hBmpDC,TRANSPARENT)
	TextOut(hBmpDC,5,5,"TEST",4)

	SendMessage(GetDlgItem(hMainWnd,CommandButton1),BM_SETIMAGE,IMAGE_BITMAP,hBmp)

	DeleteDC(hBmpDC)
End Sub

hBmpはDestroyイベントででもDeleteObjectで破棄してください。

[BASIC32]

NoWestさんのコードで、とりあえずは表示できました。
ありがとうございます。
ただ気になったのが、16*16のビットマップをIDB_BITMAP1に指定して、
デバッグすると、そのビットマップの中に、”TEST”が表示されるようです。
結果、ビットマップの中に”T"しか、表示されませんでした。
環境が、原因でしょうか。。。

これから、このコードを改良してみます。
うまく表示されたら、報告します。

[ノッチ]

> NoWestさんのコードで、とりあえずは表示できました。
> ありがとうございます。
> ただ気になったのが、16*16のビットマップをIDB_BITMAP1に指定して、
> デバッグすると、そのビットマップの中に、”TEST”が表示されるようです。
> 結果、ビットマップの中に”T"しか、表示されませんでした。
> 環境が、原因でしょうか。。。
>
> これから、このコードを改良してみます。
> うまく表示されたら、報告します。

NoWestさんじゃないですがコードの解説を。
Buttonにはもともとビットマップを貼り付ける機能があるので、
文字入りのビットマップを作成して表示させるというものです。
ですので用意するビットマップにはあらかじめ文字を表示するためのスペースを
用意しておき、

TextOut(hBmpDC,5,5,"TEST",4)

の5,5の部分をビットマップがかぶらなくなるX、Y座標にあわせてみて下さい。

ビットマップと文字の両方を表示させる機能がボタンにあればいいのですが、
どちらかしかできないのでNoWestさんのやり方が一番簡単だと思います。

[BASIC32]

どうやら、ビットマップをうまく編集する意外に、方法は無さそうですね。。。
とりあえず、その方法で行きます。
ありがとうございました。