Active Basic 画像表示 添削願い

質問

AB4.23.00を使っています。
複数画像を表示しようと頑張っているのですが、どうやっても出来ません。
すみませんが、コードの添削の方をお願いします。

'-----------------------------------------------------------------------------
' イベント プロシージャ
'-----------------------------------------------------------------------------
' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hMainWnd

' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。

/*全体*/
Dim hMemDC As HDC

/*背景*/
Dim hBackDC As HDC
Dim hBackBmp As HBITMAP

/*自機*/
Dim hMyDC As HDC
Dim hMyBmp As HBITMAP

/*プログラムの設定など*/
Dim Dir As String

'-----------------------------------------------------------------------------
' ウィンドウメッセージを処理するためのコールバック関数

Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord
' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。

' イベントプロシージャの呼び出しを行います。
MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
End Function

'-----------------------------------------------------------------------------
' ここから下は、イベントプロシージャを記述するための領域になります。

Sub MainWnd_Destroy()
stg_DestroyObjects()
PostQuitMessage(0)
End Sub

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
Dim hDC As HDC
Dim OldBmp As HBITMAP

SetWindowText(hMainWnd,"しゅーてぃんぐ")

'ディレクトリ取得
Dim path[MAX_PATH+1] As Byte
GetCurrentDirectory(MAX_PATH,path)
Dir=path

'MainWndのDC取得
hDC=GetDC(hMainWnd)

'全体DCメモリ作成
hMemDC=CreateCompatibleDC(hDC)

'背景
hBackBmp=LoadImage(0,back.bmp",IMAGE_BITMAP,0,0,LR_DEFAULTSIZE or LR_LOADFROMFILE)
hBackDC=CreateCompatibleDC(hDC)

'キャラクター
hMyBmp=LoadImage(0,A.bmp",IMAGE_BITMAP,0,0,LR_DEFAULTSIZE or LR_LOADFROMFILE)
hMyDC=CreateCompatibleDC(hBackDC)

'描写
SelectObject(hMemDC,hBackBmp)
BitBlt(hMemDC,0,0,640,480,hBackDC,0,0,SRCCOPY)
SelectObject(hMemDC,hMyBmp)
BitBlt(hMemDC,0,0,40,50,hMyDC,0,0,SRCCOPY)

ReleaseDC(hMainWnd,hDC)

End Sub

Sub MainWnd_Paint(hDC As HDC)
BitBlt(hDC,0,0,640,480,hMemDC,0,0,SRCCOPY)

End Sub

back.bmpの上にA.bmpを描写したいです。
透過処理などはいらないので、どうすれば表示することが出来るかを教えてください。
今は、どちらか片一方しか表示されません。

また、
http://www.geocities.jp/debu0510/basic/main17.html
を参考にさせていただいたのですが、CreateCompatibleBitmap関数の使い方が分かりません。
これは、どのようにして使用するのでしょうか。
こちらもご教授お願いします。

回答No.2

redfox63 · ベストアンサー

実行する順序が違います
最初にメモリーDC用のビットマップを生成してメモリーDCに選択してから
背景やキャラクターを転送(描画)しましょう

// hMemBmpの生成
hMemBmp = CreateCompatibleBitmap(hDC, 640, 480 )
// hMemDCに hMemBmpを選択
SelectObject( hMemDC, hMemBmp );

//背景の描画
// hBackDCにhBackBmpを選択
SelectObject( hBackDC, hBackBmp )
// hBackDCからhMemDCへ転送
BitBlt( hMemDC, 0, 0, 640, 480, hBackDC, 0, 0, SRCCOPY )

//キャラクタの描画
// hMyDCにhMyBmpを選択
SelectObject( hMyDC, hMyBmp )
// hMyDCからhMemDCへ転送
BitBlt( hMemDC, 0, 0, 40, 50, hMyDC, 0, 0, SRCCOPY )

ReleaseDC( hMainWnd, hDC )

お礼

理解できました！！
ありがとうございました！！

回答No.1

redfox63

hMyDC=CreateCompatibleDC(hBackDC)
を
hMyDC=CreateCompatibleDC(hDC)
でいいのでは ・・・

'描写
' 背景画像は hMemDCではなく hBackDCに選択する
SelectObject(hBackDC,hBackBmp)
BitBlt(hMemDC,0,0,640,480,hBackDC,0,0,SRCCOPY)
' キャラクタ画像は hMemDCに選択するのではなく hMyDCに選択する
SelectObject(hMyDC,hMyBmp)
BitBlt(hMemDC,0,0,40,50,hMyDC,0,0,SRCCOPY)
といった具合ですよ

hMemDC用のBitmapも生成して描画の前に選択しておきましょう

hMemBmp = CreateCompatibleBitmap( hDC, 640, 480 )
SelectObject( hMemDC, hMemBmp )
といった具合で

お礼

ご回答ありがとうございます。

以下のコードで実行したのですが、画面が真っ黒になっただけでした。
すみませんが、もう一度添削の方をお願いします。

'描写
SelectObject(hBackDC,hBackBmp)
BitBlt(hMemDC,0,0,640,480,hBackDC,0,0,SRCCOPY)
SelectObject(hMyDC,hMyBmp)
BitBlt(hMemDC,0,0,40,50,hMyDC,0,0,SRCCOPY)

hMemBmp=CreateCompatibleBitmap(hDC,640,480)

SelectObject(hMemDC,hMemBmp)
BitBlt(hDC,0,0,640,480,hMemDC,0,0,SRCCOPY)

ReleaseDC(hMainWnd,hDC)

他の変更はありません。
hMemBmpをグローバルでHBITMAPとして作成しただけです