vb画圆弧程序代码(vb画圆)
求vb大神 已知两点坐标 圆半径 如何画两点间圆弧 要代码示例 一定要圆弧 不能是扇形
用Circle画圆圆弧椭圆都可以具体参照下面的详细说明Circle(1000,1000),500,8,-6,-31000,1000,圆心坐标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指定（以弧度为单位）弧的起点和终点位置。其范围从-2pi到2pi。起点的缺省值是0;终点的缺省值是2*pi。aspect可选的。Single（单精度浮点数），圆的纵横尺寸比。缺省值为1.0，它在如何屏幕上都产生一个标准圆（非椭圆）。说明想要填充圆，使用圆或椭圆所属对象的FillColor和FillStyle属性。只有封闭的图形才能填充。封闭图形包括圆、椭圆、或扇形。画部分圆或椭圆时，如果start为负，Circle画一半径到start，并将角度处理为正的；如果end为负，Circle画一半径到end，并将角度处理为正的。Circle方法总是逆时针（正）方向绘图。画圆、椭圆或弧时线段的粗细取决于DrawWidth属性值。在背景上画圆的方法取决于DrawMode和DrawStyle属性值。画角度为0的扇形时，要画出一条半径（向右画一水平线段），这时给start规定一很小的负值，不要给0。.可以省略语法中间的某个参数，但不能省略分隔参数的逗号。您指定的最后一个参数后面的逗号是可以省略的。Circle执行时，CurrentX和CurrentY属性被参数设置为中心点。这个方法不能用在With匛ndWith语句块中。--------------------------------------------------------------------------------Circle方法示例这个示例用Circle方法在窗体中央画许多同心圆。要运行这个示例，将此代码放入窗体的General部分。按F5并单击窗体。SubForm_Click()DimCX,CY,Radius,Limit'Declarevariable.ScaleMode=3'以像素为单位。CX=ScaleWidth/2'X位置。CY=ScaleHeight/2'Y位置。IfCXCYThenLimit=CYElseLimit=CXForRadius=0ToLimit'半径。Circle(CX,CY),Radius,RGB(Rnd*255,Rnd*255,Rnd*255)NextRadiusEndSub--------------------------------------------------------------------------------
关于圆弧曲线拟合的程序设计的VB程序代码应该怎么设计
Declare
Function
Arc
Lib
"gdi32"
(ByVal
hdc
As
Long,
ByVal
X1
As
Long,
ByVal
Y1
As
Long,
ByVal
X2
As
Long,
ByVal
Y2
As
Long,
ByVal
X3
As
Long,
ByVal
Y3
As
Long,
ByVal
X4
As
Long,
ByVal
Y4
As
Long)
Declare
Function
ArcTo
Lib
"gdi32"
(ByVal
hdc
As
Long,
ByVal
X1
As
Long,
ByVal
Y1
As
Long,
ByVal
X2
As
Long,
ByVal
Y2
As
Long,
ByVal
X3
As
Long,
ByVal
Y3
As
Long,
ByVal
X4
As
Long,
ByVal
Y4
As
Long)
说明
象注解中那样画一个圆弧。（X1,Y1）和（X2,Y2）定义了椭圆的一个范围（约束）矩形。从矩形中心点到点（X3,Y3）的一条线段与椭圆的交点标志着圆弧的起点。而到（X4,Y4）的一条线与椭圆的交点则标志着圆弧的终点。ArcTo函数会将当前画笔位置设为弧的终点，而Arc函数则不会对当前的画笔位置造成影响
返回值
Long，非零表示成功，零表示失败
参数表
参数
类型及说明
hdc
Long，一个显示场景的句柄
X1,Y1
Long，指定围绕椭圆的一个矩形的左上角位置
X2,Y2
Long，指定围绕椭圆的一个矩形的右下角位置
X3,Y3
Long，指定圆弧起点
X4,Y4
Long，指定圆弧终点
在win16和win95中，约束矩形的宽度和高度必须在3——32766间。绘图方向肯定是逆时针方向。
在win
nt中：绘图方向由SetArcDirection函数决定。默认为逆时针方向
就是这两个函数的使用，自己试试
vb.net中绘制圆的代码是什么?
Dim myGraphics As Graphics = Me.CreateGraphics '声明并创建一个Graphics对象
Dim myPen As Pen = New Pen(Drawing.Color.Black, 3) '声明一个画笔，并设定颜色和粗细
myPen.DashStyle = Drawing.Drawing2D.DashStyle.Solid '线型，Solid是实线
myGraphics.DrawEllipse(myPen, 200, 200, 100, 100) '画圆，数值依次是：横坐标、纵坐标、宽度和高度（宽高相同为正圆，否则为椭圆）
myGraphics.Dispose() '释放Graphics占用的资源
vb中拿鼠标画圆的代码
画圆
Circle 方法可画出圆形和椭圆形的各种形状。另外，Circle 方法还可以画出圆弧（圆的一部分）和楔形饼块。使用变化的 Circle 方法，可画出多种曲线。
为了画圆，Visual Basic 需要给出该圆的圆心位置和它的半径。画一个理想圆的语法是：
[object.]Circle [Step](x, y), radius[, color]
方括号表明 object 和 Step 关键字是任选项。如果不指定 object，则认为指定的就是当前的窗体。x 参数和 y 参数是圆心的坐标，radius 参数是圆的半径。例如，下面语句将画出一个以 (1200,1000) 为圆心、750 为半径的圆：
Circle (1200, 1000), 750
这个语句产生的精确作用，还要依赖于窗体的大小和窗体的坐标系。如果不知道窗体的大小，也就不能知道这个圆是否可见。可使用绘图区的标尺属性，将该圆的圆心置于窗体的中心处：
Circle ((ScaleWidth + ScaleLeft) / 2, (ScaleHeight + _
ScaleTop) / 2), ScaleWidth / 4
此时，关于 ScaleWidth 和 ScaleHeight 所有应知道的是，它们能帮助将图形定位于窗体的中心。
详细信息 在本章前面“改变对象的坐标系统”中详细讨论了 ScaleWidth 和 ScaleHeight 属性。
注意 圆的半径通常是按照水平单位来指定的。如果坐标系使用的水平单位和垂直单位是相同的话（按照缺省规定，应当这样），可以不用考虑单位问题。但如果使用的是自定义标尺，则水平单位和垂直单位可能对应不同的长度。上例中，半径是用水平单位来指定的，可以保证圆的实际高度和实际宽度相等。
Blanker 应用程序创建了一些圆圈，作为多彩地毯演示程序的一部分。该演示程序围绕窗体中心画出一系列虚线圆。这些圆看起来正好象一个编织成的圆形地毯。CircleDemo 过程使用下列语句，在多彩地毯演示程序中画圆：
Sub CircleDemo ()
Dim Radius
'将红色设置为随机数。
R = 255 * Rnd
'将绿色设置为随机数。
G = 255 * Rnd
'将蓝色设置为随机数。
B = 255 * Rnd
'将 x 坐标设置在窗体中间。
XPos = ScaleWidth / 2
'将 y 坐标设置在窗体中间。
YPos = ScaleHeight / 2
'将半径设置在窗体高度的 0 到 50% 之间。
Radius = ((YPos * 0.9) + 1) * Rnd
'用随机颜色画圆。
Circle (XPos, YPos), Radius, RGB(R, G, B)
End Sub
多彩地毯演示程序的结果，显示在图 12.16 中。
图 12.16 Blanker 应用程序里的多彩地毯演示程序
画圆弧
为了用 Circle 方法画出圆弧，应以弧度为单位，给出定义弧线 start 和 end 的角度参数。画圆弧的语法是：
[object.]Circle [Step](x, y), radius, [color], start, end[, aspect]
如果 start 参数或 end 参数是负数的话，Visual Basic 将画一条连接圆心到负端点的线。例如，下面的过程将用消除切片方式画出一个饼。
Private Sub Form_Click ()
Const PI = 3.14159265
Circle (3500, 1500), 1000, , –PI / 2, –PI / 3
End Sub
注意 将度换算成弧度的公式是将度数乘以 Pi/180。
用VB编程画圆
效果如图:
源程序可以在附件中下载!
"横排画圆"按纽程序如下:
Private Sub Command1_Click()
???
??? Dim centerX, centerY As Integer
??? Dim rad As Integer
???
??? Dim i As Integer
??? '定义并设置画圆的中心坐标(centerX,centerY)及半径 rad
??? centerX = 100
??? centerY = 100
??? rad = 50
??? '循环画10个圆,中心偏移为一个半径大小???
??? For i = 0 To 9
????? Me.Circle (centerX + i * rad, centerY), rad, vbRed
??? Next i???
End Sub
其它的程序类似,可以自己阅读...
vb中画圆的代码怎么写啊
下边是个实例，放一个text，一个按钮，text里输入几个就画几个
private
sub
command2_click()
dim
i
as
integer
for
i
=
1
to
val(text2.text)
form3.picture1.circle
(120,
260),
i
*
10,
vbred
'在左边为120.260的位置为圆心，i*10的数量为半径画个圆
next
form3.picture1.refresh
end
sub