penの色

[よしき]

DCに青色で線を引きたいのですが

コード: 全て選択

For x=1 to 100
hpen1=CreatePen(PS_SOLID,0,RGB(0,0,255))
LineTo(hDC,x,100)
DeleteObject(hpen1)
Next x

としたあとにDCをウインドウに描画しても黒い線になってしまいます。昔のトピックでブラシについてはあったんですが、ペンについてはよくわかりませんでした。
なにがおかしいのでしょうか。

[イグトランス]

ペンを作るだけでは，そのペンを使うことにはなりません。
SelectObjectで，作ったペンを選んでやる必要があります。

コード: 全て選択

hpen1 = CreatePen(PS_SOLID, 0, RGB(0, 0, 255))
Dim hpenOld As HPEN
hpenOld = SelectObject(hDC, hpen1)
For x = 1 to 100
    LineTo(hDC, x, 100)
Next x
SelectObject(hDC, hpenOld) '終わったら元に戻しておく。
DeleteObject(hpen1)

[よしき]

わかりやすい例をあげていただきありがとうございます。ばっちりできました。