Circleを塗りつぶすには？

解決

うさぎ 2005-11-20 23:05:24 No: 127989

VB6です。

Lineを塗りつぶすには
Line(x,y)-(x,y),,BFで
できますが、
Circleを塗りつぶすには
どうすればよいのでしょうか？
Shapeを使わずに
Circleでやりたいと思っています。
ご指導お願いします。

くりちゃん URL 2005-11-21 00:18:52 No: 127990

FillStyleプロパティとFillColorプロパティを設定すればできるようです。

Form1.FillStyle = 0 '塗りつぶし

Form1.FillColor = vbRed

Form1.Circle (100, 100), 100, vbRed

うさぎ 2005-11-21 02:54:30 No: 127991

ありがとうございます。
さっそくやってみましたが、
うまく塗りつぶしができません。

Form上ではCircleが綺麗に
塗りつぶせるのですが、
Picture上に表示させようとすると
枠部分は、色が表示できるものの
内部は、真っ黒になってしまいます。

コードは
Picture1.fillstyle=0

Picture1.fillcolor=vbRed

Picture1.Circle(160,230),25,vbRed
です。

他に設定足りないものが
あるのでしょうか？

うさぎ 2005-11-21 02:59:29 No: 127992

失礼しました！！
うまく表示できました。
くりちゃんさん
ありがとうございました。