Question

VB中用Circle画圆，怎样设置颜色

Me.Circle (100, 100), 100
这行代码只能画出一个黑色边框的圆圈，可是我想设置成黄色的边、圆形里面也是黄色。

Answer 1

见以下代码：

Option Explicit

Private Sub Command1_Click()
    Picture1.Cls
    '设置圆的填充色为透明（无填充）
    Picture1.FillStyle = vbFSTransparent
    '画一个圆：圆心在(80, 50)，半径为50，圆周的颜色为蓝色
    Picture1.Circle (80, 50), 50, vbBlue
End Sub

Private Sub Command2_Click()
    Picture1.Cls
    '设置圆的填充色为黄色
    Picture1.FillStyle = vbFSSolid
    Picture1.FillColor = vbYellow
    '画一个圆：圆心在(80, 50)，半径为50，圆周的颜色为红色
    Picture1.Circle (80, 50), 50, vbRed
End Sub

Private Sub Form_Load()
    '背景色为白
    Picture1.BackColor = vbWhite
    '作图时以像素为单位
    Picture1.ScaleMode = vbPixels
    '自动刷新
    Picture1.AutoRedraw = True
End Sub

按Command1的运行结果

按Command2的运行结果

Answer 2

在对象上画圆、椭圆或弧。
语法
object.Circle [Step] (x, y),radius, [color, start, end, aspect]
Circle 方法的语法有如下的对象限定符和部分

半径 后面 用颜色

比如

Sub Form_Click ()
Dim CX, CY, Radius, Limit ' Declare variable.
ScaleMode = 3 ' 以像素为单位。
CX = ScaleWidth / 2 ' X 位置。
CY = ScaleHeight / 2 ' Y 位置。
If CX > CY Then Limit = CY Else Limit = CX
For Radius = 0 To Limit ' 半径。
Circle (CX, CY), Radius,RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next Radius
End Sub

安装 msdn，有详细说明的

Answer 3

Me.FillStyle = 0
Me.FillColor = vbYellow
Me.Circle (100, 100), 100, vbYellow

Answer 4

在窗体右侧 属性 中 找到 ForeColor 属性，设置颜色
或者 在画图前 设置该属性 比如 me.ForeColor=&H00004000&