Question

在vb中怎么用line画圆

Answer 1

VB中有专门画圆的函数Circle，命令如下：

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

效果如下：

Answer 2

line你从英文原意就知道这是用来画直线的。画圆的有专门的命令：
Circle (x, y), r, c
其中(x, y)是原点坐标，r是半径，c是颜色

追问

我现在是要求用vb做一曲柄摇杆的动画，求连杆上某点的轨迹，必须有曲柄每隔一度的点，才可以

追答

Circle (x, y), r, c, s, e
其中s是圆弧的起始角度，e是终止角度

以下程序画一段 半径为 500缇，角度为1度的红色圆弧：
Circle (500, 500), 500, vbRed, 0, (3.1415926 / 180)

用直线画也可以的，当然就不是标准的圆弧了，而且坐标点要预先计算出来：
Line (X1, Y1)-(X2, Y2), vbRed
然后继续画的话就可以把起始点省略了：
Line -(X3, Y3), vbRed
Line -(X4, Y4), vbRed
Line -(X5, Y5), vbRed
......

追问

Private Sub Command1_Click()
r1 = 40
pi = 3.14159265
Xa = 100
Ya = 100
Dim i As Integer
Dim x(360) As Single
Dim y(360) As Single
Show

For i = 0 To 359
x(i) = Xa + r1 * Cos(i * pi / 180)
y(i) = Ya + r1 * Sin(i * pi / 180)
Line (x(i), y(i))-(x(i + 1), y(i + 1))
Next i

End Sub
麻烦你看下我这个怎么就出不来啊，谢谢了哈

追答

Private Sub Command1_Click()
r1 = 40
pi = 3.14159265
Xa = 100
Ya = 100
Dim i As Integer
Dim x(360) As Single
Dim y(360) As Single
Show
PSet (Xa + r1, Ya)
For i = 1 To 359
x(i) = Xa + r1 * Cos(i * pi / 180)
y(i) = Ya + r1 * Sin(i * pi / 180)
Line -(x(i), y(i))
Next i
End Sub