很菜的问题？如何画实心圆？

[AOX]

我想用实心圆表示点，如何搞？

[zyl910]

FillStyle 属性


返回或设置用来填充 Shape 控件、以及由 Circle 和 Line 图形方法生成的圆和方框的模式。
语法

object.FillStyle [= number]

FillStyle 属性语法包含下面部分：

部分 描述
Object 对象表达式，其值是“应用于”列表中的一个对象。
Number 整数，指定填充样式，“设置值”中有详细描述。


设置值

number 的设置值为：

常数 设置值 描述
VbFSSolid 0 实线
VbFSTransparent 1 （缺省值）透明。
VbHorizontalLine 2 水平直线。
VbVerticalLine 3 垂直直线。
VbUpwardDiagonal 4 上斜对角线。
VbDownwardDiagonal 5 下斜对角线
VbCross 6 十字线
VbDiagonalCross 7 交叉对角线


说明

如果 FillStyle 设置为 1（透明），则忽略 FillColor 属性，但是 Form 对象除外。

[zyl910]

FillStyle 属性示例
在这个例子中单击鼠标时，可用随机的 FillColor 和 FillStyle 属性的设置值在窗体中显示一个圆。要试用此例，先把代码粘贴到声明部分，然后按 F5 键运行该程序。

Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
FillColor = QBColor(Rnd * 15) ' 选择随机的 FillColor.
FillStyle = Int(Rnd * 8) ' 选择随机的 FillStyle.
Circle (X, Y), 250 ' 画一个圆.
End Sub

[AOX]

我的意思是在picturebox里画，要保存图片的，本意是用picturebox的circle方法

[gzhiceberg]

一样的啊
FillColor FillStyle Circle 在picture中都有啦

[BlueBeer]

Private Sub Command1_Click()
With Picture1
.AutoRedraw = True
.FillStyle = 0
Picture1.Circle (1200, 1200), 600
SavePicture .Image, "c:\test.bmp"
End With
End Sub