2024年5月7日发(作者：金立智能手机型号大全)

Circle方法用于绘制圆、椭圆、扇形或弧，其语法格式如下：

[对象。]Circle[[Step]（x,y）],半径[,颜色][,起始角][,终止角了[长短轴比率].

对象可以是窗体或图片框控件，其中各参数的含义如下：

Step:该参数是可选的，如果使用该参数，则表示圆心坐标（x,y）是相对当前点

（CurrentX,CurrentY）的，而不是相对坐标原点的。

（x,y）：用于指定圆的圆心，也是可选的，如果省略则圆心为当前点（CurrentX,GurrentY）。

半径：用于指定圆的半径，对于椭圆来讲，该值是椭圆的长轴长度。

颜色：指定所绘制图形的颜色。

起始角、终止角：用来指定圆弧或扇形的起始角度与终止角度，单位为弧度。取值范围

为0~2π时，绘制的是圆弧：给起始角与终止角取值前添加一个负号，则所绘制的是扇形，

负号表示绘制圆心到圆弧的径向线。省略这两个参数，则所绘制的是圆或椭圆。

VB规定，从起始角按逆时针方向绘制圆弧至到终止角处，水平向右方向为0度，且与坐

标系统无关，如图9.18所示。

长短轴比率：当需要绘制椭圆时，可使用该参数指定椭圆长短轴的比率。若值大于1，则

所绘制的是竖立的椭圆；若值小于1，则所绘制的是扁平的椭圆。该值的缺省值为1，即省

略时绘制的是圆。

例如，使用下列语句绘制出的各种图形如图9.19所示。

Const pi=3.1415926

Private Sub Form_Click()

Scale (-100,100)-(100,-100)

Circle(-50,50),30

Circle(50,50),30,vbRed,,,2

Circle(50,50),30,vbRed,,,0.5

Circle(-50,-50),30,vbBlue,pi/6,1.5*pi

Circle(50,-50),30,vbYellow,-pi/6,-5/6*pi

End Sub

实例9.4绘制太极图

使用Circle方法绘制出如图9.20所示的太极图。

代码如下：

Const pi=3.1415926

Sub Tjt(x,y,r)

FillStyle=1

Circle(x,y),r 绘制大圆

Circle(x,y-r/2),r/2,,pi/2,1.5*pi 绘制弧线

Circle(x,y+r/2),r/2,,1.5/pi,pi*2

FillColor=vbBlack

FillStyle=0

Cricle(x,y+r/2),r/5 绘制小圆

Circle (x,y-r/2),r/5