penの色

返信する


答えを正確に入力してください。答えられるかどうかでスパムボットか否かを判定します。
BBCode: ON
[img]: ON
[url]: ON
スマイリー: OFF
トピックのレビュー
   

展開ビュー トピックのレビュー: penの色

Re:

by よしき » 2006年12月24日(日) 12:35

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

by イグトランス » 2006年12月24日(日) 10:25

ペンを作るだけでは，そのペンを使うことにはなりません。
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)

penの色

by よしき » 2006年12月24日(日) 01:15

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

コード: 全て選択


For x=1 to 100
hpen1=CreatePen(PS_SOLID,0,RGB(0,0,255))
LineTo(hDC,x,100)
DeleteObject(hpen1)
Next x
としたあとにDCをウインドウに描画しても黒い線になってしまいます。昔のトピックでブラシについてはあったんですが、ペンについてはよくわかりませんでした。
なにがおかしいのでしょうか。

ページトップ