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

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加