Question

VB在图片框中画一个椭圆,颜色通用对话框设置 求教啊

椭圆要求刚好内嵌 计算机VB 大侠速度帮帮忙啊

Answer 1

画椭圆

圆的方位比，决定了圆是显得很圆（圆）还是被拉长（椭圆）。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