Question

如何用vb 6.0 做画图， 怎么写各种形状的代码？ （圆形，椭圆，长方形 ）

能不能把写下的画图代码后面加上注释，
好能理解些。 ！ 要用vb6.0 编写～～
问题补充：可不可以把代码写下来看看 ， 我是新手，刚刚学。不太会，谢谢了

Answer 1

[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 半径。

代码:
Private Sub Form_Click()
'画一个实心椭圆。
FillStyle = 0
Circle (600, 1000), 800, , , , 3 '600,1000是中心坐标,800是长轴半径,3是y轴与x轴之比
'画一个空心椭圆。
FillStyle = 1
Circle (1800, 1000), 800, , , , 1 / 3

'画圆
Circle (3800, 1000), 800
'画矩形
Line (1000, 1000)-(3000, 3000), , B '加B就是画矩形,没B是化直线

End Sub