by Toshi » 2005年5月30日(月) 21:42
ボタンを押したらウィンドウを赤で塗りつぶしたいのですが、
(必要な部分だけ抜粋)
Sub MainWnd_Paint(hDC As DWord)
hMemDC=CreateCompatibleDC(hDC)
hPen=CreatePen(PS_SOLID,1,RGB(255,0,0))
hOldObject=SelectObject(hMemDC,hPen)
Rectangle(hMemDC,0,0,300,60)
BitBlt(hDC,0,0,300,60,hMemDC,0,0,NULL)
End Sub
Sub MainWnd_CommandButton1_Click()
InvalidateRect(hMainWnd,ByVal NULL,TRUE)
End Sub
赤ではなく黒で塗りつぶされてしまいます。
赤以外の色でも同じです。
さっぱり原因が分からないのですが、どこか見落としているのでしょうか?
ボタンを押したらウィンドウを赤で塗りつぶしたいのですが、
(必要な部分だけ抜粋)
Sub MainWnd_Paint(hDC As DWord)
hMemDC=CreateCompatibleDC(hDC)
hPen=CreatePen(PS_SOLID,1,RGB(255,0,0))
hOldObject=SelectObject(hMemDC,hPen)
Rectangle(hMemDC,0,0,300,60)
BitBlt(hDC,0,0,300,60,hMemDC,0,0,NULL)
End Sub
Sub MainWnd_CommandButton1_Click()
InvalidateRect(hMainWnd,ByVal NULL,TRUE)
End Sub
赤ではなく黒で塗りつぶされてしまいます。
赤以外の色でも同じです。
さっぱり原因が分からないのですが、どこか見落としているのでしょうか?