ab.com コミュニティ

今回、次のようなプログラムを使って、ビットマップを読み込むプログラムを作りました。
そして、実行するのですが、ソースコードに書いてある SelectObject(hTargetDC,hTargetBITMAP) の部分で[ハンドルが無効です]というエラーが発生します。

画像が正しくロードされているのは確認済みです。

なお、picMarkは、そのままBitBltなどで転送するためのものです。

[ここをクリックすると内容が表示されます]

コード: 全て選択



'使用例 ---

Dim picMark As HDC

Dim bmMark As HBITMAP
Dim bmiMark As BITMAP

'↓ パスに間違いがないことは確認済みです
LoadImg("dat\bmp\system\mark.bmp",picMark,bmMark,bmiMark)

'---

'画像リソースを読み込む関数

Sub LoadImg(ImgPath As BytePtr,hTargetDC As HDC,hTargetBITMAP As HBITMAP,ByRef hTargetBITMAPINFO As BITMAP)
	hTargetDC = CreateCompatibleDC(hDC)
	hTargetBITMAP = LoadImage(NULL,ImgPath,IMAGE_BITMAP,0,0,LR_LOADFROMFILE)
	GetObject(hTargetBITMAP,sizeof(BITMAP),hTargetBITMAPINFO)
	SelectObject(hTargetDC,hTargetBITMAP) 
End Sub

CreateCompatibleDC()関数の引数が問題なんじゃないでしょうか。
指定されたデバイスコンテキストに対してコンパチブルなメモリデバイスコンテキストを作る訳なんですけど、たぶん 0 が指定されてて現在の画面に対するコンパチブルなメモリデバイスコンテキストを作っちゃってると。

[ここをクリックすると内容が表示されます]

コード: 全て選択

Dim hDC As HDC
Dim picMark As HDC

Dim bmMark As HBITMAP
Dim bmiMark As BITMAP

hDC=GetDC(hMainWnd)

LoadImg(hDC,"dat\bmp\system\mark.bmp",picMark,bmMark,bmiMark)

' なんらかの処理

' 片付け
ReleaseDC(hMainWnd,hDC)
DeleteDC(picMark)

'----------------------------------------------------------------------
' リソースからイメージを読み込む
'----------------------------------------------------------------------
Sub LoadImg(ByVal hDC As HDC,ByVal ImgPath As BytePtr,ByVal hTargetDC As HDC,ByVal hTargetBITMAP As HBITMAP,ByRef hTargetBITMAPINFO As BITMAP)
	hTargetDC = CreateCompatibleDC(hDC)
	hTargetBITMAP = LoadImage(NULL,ImgPath,IMAGE_BITMAP,0,0,LR_LOADFROMFILE)
	GetObject(hTargetBITMAP,sizeof(BITMAP),hTargetBITMAPINFO)
	SelectObject(hTargetDC,hTargetBITMAP)
End Sub

どちらにしてもhTargetBITMAPは外から値渡し(ByVal)で渡す意味がありません。
関数内で変数宣言するか，或いはByRefにするかのどちらかになると思います。

助言していただき、ありがとうございました。

以下のように修正したところ動作しました。

コード: 全て選択


Sub LoadImg(ImgPath As BytePtr,ByRef hWindow As HWND,ByRef hTargetDC As HDC,ByRef hTargetBITMAP As HBITMAP,ByRef hTargetBITMAPINFO As BITMAP)
	Dim hDC As HDC
	hDC = GetDC(hWindow)
	hTargetDC = CreateCompatibleDC(hDC)
	hTargetBITMAP = LoadImage(NULL,ImgPath,IMAGE_BITMAP,0,0,LR_LOADFROMFILE)
	GetObject(hTargetBITMAP,sizeof(BITMAP),hTargetBITMAPINFO)
	SelectObject(hTargetDC,hTargetBITMAP)
	ReleaseDC(hWindow,hDC)
End Sub

ab.com コミュニティ

ビットマップ処理がうまくいかない

ビットマップ処理がうまくいかない

解決しました