能力值：
( LV6，RANK：90 )
|
-
-
2 楼
VB6有画圆的方法啊？
|
能力值：
( LV6，RANK：90 )
|
-
-
3 楼
创建一个工程，窗口上面放一个PictureBox，大小相对大一些，将其ScaleMode属性设为3。
然后放一个按钮，其中加入以下代码：
'这段代码演示了如何使用VB的Circle方法绘制各种各样的圆。
Form1.Picture1.Circle (60, 60), 40, vbRed '画一个圆心(60,60)半径40的红色的圆（默认空心）
Form1.Picture1.FillStyle = 0 '设定填充模式为实心
Form1.Picture1.FillColor = vbBlue '设定填充色蓝色
Form1.Picture1.Circle (190, 60), 40, vbRed '下来画出来的就是填充了实心蓝色的圆了
Form1.Picture1.DrawWidth = 3 '设定边框宽度为3
Form1.Picture1.Circle (60, 190), 40, vbRed '这次绘制出来的圆边框粗细为3
Form1.Picture1.DrawStyle = 5 '设定边框不可见
Form1.Picture1.FillColor = vbRed '设定填充色红色
Form1.Picture1.Circle (190, 190), 40 '这次绘制出来一个无边框、填充颜色是红色的圆
Form1.Picture1.Refresh
然后试试看，对照注释应该就明白了。
|
能力值：
( LV2，RANK：10 )
|
-
-
4 楼
恩，有个画圆的函数，改下参数就ok
|
能力值：
( LV3，RANK：20 )
|
-
-
5 楼
知道Circle方法，我想用ARC来画椭圆，怎么弄？
|
能力值：
( LV6，RANK：90 )
|
-
-
6 楼
有个API可以实现，具体形式是：
ARC x1,y1,x2,y2,x3,y3,x4,y4
x3,y3为起始半径上的一个点，x4,y4为终止半径上的一个点。
|
能力值：
( LV2，RANK：10 )
|
-
-
7 楼
顶下楼上的支持！
|
|
|
|
