ab.com コミュニティ

はじめまして

ＡＢ初心者で一つずつ学んで行こうと思っているのですが、引っかかった点がありましたので投稿させていただきました。BitBltに関する質問です。
ビットマップファイルをウィンドウに描写する方法は理解できたのですが、BitBltを２度した場合に描写されないんです。
つまり簡略して書きますと、

SelectObject(hA,hBitmap)
BitBlt(GetDC(hMainWnd),0,0,100,100,hA,0,0,SRCCOPY)

での動作は確認できたのですが、

SelectObject(hA,hBitmap)
BitBlt(hB,0,0,100,100,hA,0,0,SRCCOPY)
BitBlt(GetDC(hMainWnd),0,0,100,100,hB,0,0,SRCCOPY)

では描写されなくなったのです。どの点がまずいのでしょうか。
環境はv4.03.00でWinXPです

投稿するまでに手を尽くしたつもりだったのですが、
更に悪あがきをしていたら自己解決いたしました。
お騒がせいたしまして、本当に申し訳ありませんでした。

> BitBlt(GetDC(hMainWnd),0,0,100,100,hB,0,0,SRCCOPY)
これはメモリリークになります。
GetDCしたらReleaseDCを呼ばなければなりません。
たとえばこんな感じです。
Dim hdc As HDC
hdc = GetDC(hMainWnd)
BitBlt(hdc,0,0,100,100,hB,0,0,SRCCOPY)
ReleaseDC(hwnd, hdc)

ご指摘ありがとうございました。早速まずいところは全て書き換えました。
道はまだまだ険しいですが頑張りたいと思います(;^-^)