by ゲスト » 2008年11月15日(土) 18:42
初めまして、ゲストです。
リソースにあるビットマップを表示するのを試しに作っているのですが、
表示されません。
どこがダメなのでしょうか。
コードはこうです。
コード: 全て選択
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]