189 8069 5689
用Circle 画圆 圆弧 椭圆 都 具体参照面详细说明 Circle(一000,一000),500,吧,-陆,-三 一000,一000,圆坐标 500,半径 面别代表起始角,终止角,短轴比率 吧,详细点,Circle都说遍 象画圆、椭圆或弧 语 object.Circle [Step] (x, y), radius, [color, start, end, aspect] Circle 语象限定符部： 部 描述 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 指定（弧度单位）弧起点终点位置其范围 -二 pi 二 pi 起点缺省值0; 终点缺省值二 * pi aspect 选 Single （单精度浮点数）圆纵横尺寸比缺省值 一.0何屏幕都产标准圆（非椭圆） 说明 想要填充圆使用圆或椭圆所属象 FillColor FillStyle 属性封闭图形才能填充封闭图形包括圆、椭圆、或扇形 画部圆或椭圆 start 负Circle 画半径 start并角度处理； end 负Circle 画半径 end并角度处理Circle 总逆针（）向绘图 画圆、椭圆或弧线段粗细取决于 DrawWidth 属性值背景画圆取决于 DrawMode DrawStyle 属性值 画角度 0 扇形要画条半径（向右画水平线段）给 start 规定负值要给 0 .省略语间某参数能省略隔参数逗号您指定参数面逗号省略 Circle 执行CurrentX CurrentY 属性参数设置点 能用 With匛nd With 语句块 -------------------------------------------------------------------------------- Circle 示例 示例用Circle 窗体央画许同圆要运行示例代码放入窗体 General 部按 F5 并单击窗体 Sub Form_Click () Dim CX, CY, Radius, Limit ' Declare variable. ScaleMode = 三 ' 像素单位 CX = ScaleWidth / 二 ' X 位置 CY = ScaleHeight / 二 ' Y 位置 If CX CY Then Limit = CY Else Limit = CX For Radius = 0 To Limit ' 半径 Circle (CX, CY), Radius,RGB(Rnd * 二55, Rnd * 二55, Rnd * 二55) Next Radius End Sub -------------------------------------------------------------------------------
网站建设哪家好，找创新互联！专注于网页设计、网站建设、微信开发、小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了老河口免费建站欢迎大家使用！
画椭圆
圆的方位比，决定了圆是显得很圆（圆）还是被拉长（椭圆）。Circle 方法的完整语法是：
[object.]Circle [Step](x, y), radius, [color], , [, aspect]
start 参数和 end 参数是可选的；但是，如果想省掉参数，逗号是不能省的。例如：如果含有 radius 参数和 aspect 参数，省掉了 color、start、end 三个参数，则必须加上四个连续的逗号，它表明这三个参数被省掉了。
Circle (1000, 1000), 500, , , , 2
aspect 参数指定了水平长度和垂直长度比。该 aspect 参数是正浮点数，这说明它既可以是整数表达式，也可以是小数表达式，但不能是负数。该 aspect 参数较大时，椭圆沿垂直轴线拉长；相反，该 aspect 参数较小时，则沿水平轴线拉长。由于椭圆有两个半径—水平方向的 x 半径和垂直方向 y 半径— Visual Basic 在 Circle 语句中只使用了一个参数 radius 对应椭圆的长轴。如果 aspect 参数小于 1 的话，该 radius 半径指的是水平方向的 x 半径，如果 aspect 参数大于或等于 1 的话，则 radius 指的是垂直方向的 y 半径。
注意 aspect 参数指定的总是水平长度和垂直长度的实际物理距离比，要保证这一点（即便用的是自定义标尺），半径应以水平单位指定。
下列过程说明的是，不同的 aspect 参数值，Circle 方法是如何决定对 radius 参数的使用的；是将它作为椭圆的 x 半径，还是作为椭圆的 y 半径：
Private Sub Form_Click ()
'画一个实心椭圆。
FillStyle = 0
Circle (600, 1000), 800, , , , 3
'画一个空心椭圆。
FillStyle = 1
Circle (1800, 1000), 800, , , , 1 / 3
End Sub
窗体上添加一个按钮，在该按钮的单击事件里编写代码如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'声明窗体的Me.CreateGraphics对象
Dim MyGraphics As Graphics = Me.CreateGraphics
Dim Cx As Integer = 150 '圆心的X坐标
Dim Cy As Integer = 150 '圆心的Y坐标
Dim R As Integer '圆的半径
'绘制半径为R的圆
For R = 5 To 100 Step 5
MyGraphics.DrawEllipse(Pens.Black, New Rectangle(Cx - R, Cy - R, 2 * R, 2 * R))
Next
End Sub
‘用黑色画笔绘制一组同心圆，半径从5开始，增量为5。
说明：
DrawEllipse是VB.Net的Graphics类的绘制椭圆的方法；他有几种格式，上面使用的是一种；
DrawEllipse（画笔的颜色，绘制椭圆所需要的矩形区域）
其中：绘制椭圆所需要的矩形区域，如果被定义为正方形，就演变成绘制圆，定义该区域由死个数值确定，第1个数值，确定该区域左上角的X坐标，第2个数值，确定该区域左上角的Y坐标，第3个数值，确定该区域的宽度，第4个数值，确定该区域的高度。
例如1：
DrawEllipse(Pens.Black, New Rectangle(150, 150, 50, 50))
就是以圆心坐标为（100,100），绘制半径为50 的圆。其实在VB.NET中，是告诉系统在以左上角坐标（150,150），边长为50的正方形里绘制内切圆。理解了是在正方形里绘制内切圆，就可以通过数学计算，知道如何绘制了。
同理例如2：
DrawEllipse(Pens.Black, New Rectangle(150, 150, 100, 50))
就是以圆心坐标为（100,100），绘制半径为50 的圆。其实在VB.NET中，是告诉系统在以左上角坐标（150,150），长轴为100，短轴为50的内切椭圆。
若是静态地画图，只需在窗体上添加两个Shape控件Shape1和Shape2，将其Shape属性均设置为3，将其FillStyle属性分别设置为2和3即可，不需任何代码。如下图：
运行效果如下：
若是要动态地画图，则需设计界面和编写代码，例如：
Const PI As Single = 3.1415926
Const k As Integer = 4
Const m As Integer = 50
Dim r As Single, t As Single
Private Sub Command1_Click()
Me.Timer1.Interval = 10
End Sub
Private Sub Form_Load()
Me.Picture1.Height = 6000
Me.Picture1.Width = 6000
Me.Picture1.Left = 100
Me.Picture1.Top = 100
Me.Command1.Height = 370
Me.Command1.Width = 1200
Me.Command1.Top = Me.Picture1.Top + Me.Picture1.Height + Me.Picture1.Top
Me.Height = 400 + Me.Picture1.Top + Me.Picture1.Height + Me.Picture1.Top + Me.Command1.Height + Me.Picture1.Top
Me.Width = Me.Picture1.Left + Me.Picture1.Width + 2 * Me.Picture1.Left
Me.Command1.Left = (Me.Width - Me.Command1.Width) / 2
Me.Text1.Left = 200
Me.Text1.Top = Me.Command1.Top + 50
Me.Text2.Left = Me.Width - Me.Text2.Width - 1.5 * Me.Text1.Left
Me.Text2.Top = Me.Text1.Top
Me.Picture1.Scale (-Me.Picture1.ScaleWidth / 2, Me.Picture1.ScaleHeight / 2)-(Me.Picture1.ScaleWidth / 2, -Me.Picture1.ScaleHeight / 2)
Me.Picture1.PSet (0, 0), vbRed
r = Me.Picture1.ScaleWidth / 2 * 7 / 8
t = PI / (180 * k)
Me.Timer1.Interval = 0
End Sub
Private Sub Timer1_Timer()
Static i As Long
Me.Text1.Text = Int(i / k) "°"
Me.Picture1.PSet (r * Cos(i * t), r * Sin(i * t)), vbRed
i = i + 1
If i 720 * 2 Then Me.Timer1.Interval = 0: Me.Timer2.Interval = 100
End Sub
Private Sub Timer2_Timer()
Static i As Long
Me.Text2.Text = Int(i) * 100 "ms"
Me.Picture1.Line (-Sqr(r ^ 2 - (-i * r / m) ^ 2), -i * r / m)-(Sqr(r ^ 2 - (-i * r / m) ^ 2), -i * r / m), vbRed
Me.Picture1.Line (-Sqr(r ^ 2 - (-i * r / m) ^ 2), i * r / m)-(Sqr(r ^ 2 - (-i * r / m) ^ 2), i * r / m), vbRed
i = i + 1
If i m Then Me.Timer2.Interval = 0
End Sub
运行效果如下：
Private Sub Command1_Click()
Me.FillStyle = 0 '填充模式为实心
Me.FillColor = vbRed '填充颜色为红色
Me.Circle (Me.ScaleWidth \ 2, Me.ScaleHeight \ 2), Me.ScaleHeight \ 3, vbRed, -2 * pi, -pi
'在窗体正中画一个半径为窗体三分之一高的红色实心半圆
End Sub
添加以个TEXT2,一个按钮，复制一下代码即可Private Sub Command2_Click()
Dim i As Integer
'i = Val(Text2.Text)
For i = 1 To Val(Text2.Text)
Form3.Picture1.Circle (120, 260), i * 10, vbRed
Next
'Form3.Picture1.Circle (60, 60), 40, vbRed '画一个圆心(60,60)半径40的红色的圆（默认空心）
'
'
'Form3.Picture1.FillStyle = 0 '设定填充模式为实心
'Form3.Picture1.FillColor = vbBlue '设定填充色蓝色
'Form3.Picture1.Circle (190, 60), 40, vbRed '下来画出来的就是填充了实心蓝色的圆了
'
'
'Form3.Picture1.DrawWidth = 3 '设定边框宽度为3
'Form3.Picture1.Circle (60, 190), 40, vbRed '这次绘制出来的圆边框粗细为3
'
'Form3.Picture1.DrawStyle = 5 '设定边框不可见
'Form3.Picture1.FillColor = vbRed '设定填充色红色
'Form3.Picture1.Circle (190, 190), 40 '这次绘制出来一个无边框、填充颜色是红色的圆
Form3.Picture1.Refresh
End Sub