ab.com コミュニティ

すいません、自己解決しました。

Dim hBmp As DWord'リソースのビットマップのハンドル
	hdc=GetDC(hMainWnd)
	memdc=CreateCompatibleDC(hdc)
	hBmp=LoadImage(GetModuleHandle(NULL),IDB_BITMAP1,IMAGE_BITMAP,0,0,LR_DEFAULTCOLOR)
	SelectObject(memdc,hBmp)
	BitBlt(hdc,0,0,256,100,memdc,0,0,SRCCOPY)

初めまして、ゲストです。
リソースにあるビットマップを表示するのを試しに作っているのですが、
表示されません。
どこがダメなのでしょうか。
コードはこうです。
[code]
Dim hBmp As DWord'リソースのビットマップのハンドル
hdc=GetDC(hMainWnd)
memdc=CreateCompatibleDC(hdc)
hBmp=LoadImage(GetModuleHandle(NULL),IDB_BITMAP1,IMAGE_BITMAP,0,0,LR_DEFAULTCOLOR)
SelectObject(memdc,hBmp)
BitBlt(hdc,0,0,256,100,memdc,0,0,SRCCOPY)
[/code]