13518219792
VB中有专门画圆的函数Circle，命令如下：
成都创新互联公司-专业网站定制、快速模板网站建设、高性价比和平网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式和平网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖和平地区。费用合理售后完善，10多年实体公司更值得信赖。
Circle (x, y), r, c 其中(x, y)是原点坐标,r是半径,c是颜色
如果一定要用Line，以圆心（x,y）为例，在为r(x-1+cosi,y+sini)起点，以r(x+cosi,y+sini)为终点画一个点的线。用for 循环来做。步长i越小，效果越好。
Private Sub Command1_Click()
Dim i As Single, x As Integer, y As Integer, r As Integer
x = Form1.Width / 3
y = Form1.Height / 3
r = Form1.Width / 4
For i = 0 To 6.3 Step 0.00001
Line (x - 1 + r * Cos(i), y + r * Sin(i))-(x + r * Cos(i), y + r * Sin(i)), vbRed
Next i
End Sub
效果如下：
VB画圆代码：主要使用函数【Circle (x, y), 半径, 颜色 】 ：Circle(圆圈中心的坐标X，圆圈中心的坐标Y),圆圈的半径,圆圈线的颜色
代码start===========
'控件：
'名称:Command1，属性Caption:开始
'名称:Command2，属性Caption:结束
Private Sub Command1_Click() '****开始按钮
Circle (1500, 1000), 700, vbBlack '此为画圆函数：【Circle(圆圈中心的坐标X，圆圈中心的坐标Y),圆圈的半径,圆圈线的颜色】
End Sub
Private Sub Command2_Click() '***结束按钮
Unload Form1 '退出Form1
End Sub
Private Sub Form_Load()
Form1.AutoRedraw = True '程序开始时设置AutoRedraw属性(即重画属性)为ture，否则画的图可能消失
End Sub
代码end=============
三步做出圆的切线：过圆上一点作圆的切线，先在圆上确定一点，作圆心与该点连线的垂线即可得到切线。
1、在一个平面内，先画一个半径适当的圆，确定圆上任意一点。
2、接圆心与圆上确定的这一点，即找到圆的一条半径。
3、过圆上确定那一点做该半径的垂线，即可得到过圆的一条切线。
切线简介
几何上，切线指的是一条刚好触碰到曲线上某一点的直线。更准确的说，当切线经过曲线上的某点（即切点）时，切线的方向与曲线上该点的方向是相同的，此时，“切线在切点附近的部分”最接近“曲线在切点附近的部分”（无限逼近思想）。tangent在拉丁语中就是to touch的意思。类似的概念也可以推广到平面相切等概念中。
用Circel方法。
首先要做个容器，指明你在什么地方画。比如在窗体上，那么就是form1.Circel
Circel方法需要的参数、格式：
[容器名.]Circel[[step]
(X,Y),
半径,
[,颜色][,起始角][,终止角][,长短轴比率]]
例：form1.Circel(25,25),
10,
RGB(100,100,50)
就是说在（25，25）为圆心半径为10画个该颜色的圆。
用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 -------------------------------------------------------------------------------
窗体上添加一个按钮，在该按钮的单击事件里编写代码如下：
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的内切椭圆。
