急!!画椭圆!!!
发布网友
发布时间：2022-04-25 14:49
共2个回答
热心网友
时间：2023-10-09 22:53
circle函数中的radius是画椭圆时的半长轴吗?
答：不是。且听下文分解：
画椭圆
圆的方位比，决定了圆是显得很圆（圆）还是被拉长（椭圆）。Circle 方法的完整语法是：
[object.]Circle [Step](x, y), radius, [color], [start], [end] [, aspect]
start 参数和 end 参数是可选的；但是，如果想省掉参数，逗号是不能省的。例如：如果含有 radius 参数和 aspect 参数，省掉了 color、start、end 三个参数，则必须加上四个连续的逗号，它表明这三个参数被省掉了。
Circle (1000, 1000), 500, , , , 2
aspect 参数指定了水平长度和垂直长度比。该 aspect 参数是正浮点数，这说明它既可以是整数表达式，也可以是小数表达式，但不能是负数。该 aspect 参数较大时，椭圆沿垂直轴线拉长；相反，该 aspect 参数较小时，则沿水平轴线拉长。由于椭圆有两个半径—水平方向的 x 半径和垂直方向 y 半径— Visual Basic 在 Circle 语句中只使用了一个参数 radius 对应椭圆的长轴。如果 aspect 参数小于 1 的话，该 radius 半径指的是水平方向的 x 半径，如果 aspect 参数大于或等于 1 的话，则 radius 指的是垂直方向的 y 半径。
注意 aspect 参数指定的总是水平长度和垂直长度的实际物理距离比，要保证这一点（即便用的是自定义标尺），半径应以水平单位指定。
下列过程说明的是，不同的 aspect 参数值，Circle 方法是如何决定对 radius 参数的使用的；是将它作为椭圆的 x 半径，还是作为椭圆的 y 半径：
Private Sub Form_Click ()
'画一个实心椭圆。
FillStyle = 0
Circle (600, 1000), 800, , , , 3
'画一个空心椭圆。
FillStyle = 1
Circle (1800, 1000), 800, , , , 1 / 3
End Sub
结果显示在图 12.17 中。
热心网友
时间：2023-10-09 22:53
用shape实现可以吗？你拖拽的时候调整shape的宽度高度。这个你应该能实现。要是画椭圆的话，要不清空窗体显示，要不就得把上一个椭圆的颜色变成窗体颜色。呵呵
