vb画圆且等分圆

来源：百度知道 编辑：UC知道 时间：2024/05/10 18:03:00
我在网上看到使用VB画圆都是用的picture控件，在这个控件中要如何设置其属性才能画出圆来呢？而且要怎么把该圆等分成60份呢？

Private Sub Command1_Click()
Cls
n = Picture1.ScaleWidth / Picture1.ScaleHeight '取得比例
pi = 3.1415926
Dim x As Double
x = 2 * pi / 3 '3等分
Picture1.Scale (-150, 150 / n)-(150, -150 / n) '定义坐标系统在picture上
'Line (0, 140)-(0, -140)
'Line (-140, 0)-(140, 0)
Picture1.Circle (0, 0), 50, vbRed
For i = 1 To 3 '画3条线
y = (i - 1) * x
Picture1.Line (0, 0)-(50 * Cos(y), 50 * Sin(y))
Next i
End Sub

我也是新手,你可以多看看教程那样最好