VB中如何用Circle方法绘制太极八卦

先说明一下circle的语法：

object.Circle Step(x, y), radius, [color, start, end, aspect]

object 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。

Step 可选的。关键字 ，指定圆、椭圆或弧的中心，它们相对于当前 object 的 CurrentX 和 CurrentY 属性提供的坐标。

(x, y) 必需的。 Single （单精度浮点数），圆、椭圆或弧的中心坐标。object 的 ScaleMode 属性决定了使用的度量单位。

radius 必需的。Single （单精度浮点数），圆、椭圆或弧的半径。 object 的 ScaleMode 属性决定了使用的度量单位。

color 可选的。Long （长整型数），圆的轮廓的 RGB 颜色。如果它被省略，则使用 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。

start, end 可选的。 Single （单精度浮点数），当弧、或部分圆或椭圆画完以后，start 和 end 指定（以弧度为单位）弧的起点和终点位置。其范围从 -2 pi 到 2 pi 。起点的缺省值是0; 终点的缺省值是2 * pi。

aspect 可选的。 Single （单精度浮点数），圆的纵横尺寸比。缺省值为 1.0，它在如何屏幕上都产生一个标准圆（非椭圆）。

Private Sub Form_Paint()

Dim pi As Single

pi = 3.1415926

x = Form1.ScaleWidth / 2 'x是窗体宽度的1/2

y = Form1.ScaleHeight / 2 'y是窗体高度的1/2

Form1.Circle (x, y), 500 '大圆以x，y为圆心，500为半径

Form1.Circle (x - 250, y), 250, , 0, pi '小圆半径为大圆1/2，颜色缺省，0、pi分别为圆弧的起点角度与终点角度（用弧度计算）

Form1.Circle (x + 250, y), 250, , pi, 2 * pi

End Sub

我并没有做得那么复杂，但效果就相对简单一点，这样你应该能看懂，可以通过修改圆的坐标、半径、起角终角来看一下效果，应该就很好理解了。至于填充和动态旋转效果我就没做了，免得你越看越昏，如果你需要可以给你做出来。

希望对你有帮助。