Visual_Basic程序设计 高巍 姜楠 肖峰 第8章图形技术新.pptVIP

8.4 图形绘制方法 例8.4必须重新定义系统坐标系，这里采用Scale方法实现。 在“画曲线”按钮的单击事件中输入以下代码。 Private Sub Command1_Click() Dim x As Single, y As Single Picture1.Scale(-10, 25)-(10, -25) 定义坐标系 Picture1.Line(-10, 0)-(10, 0), RGB(0, 0, 255)画横坐标轴 Picture1.Line(0, 25)-(0, -25), RGB(0, 0, 255)画纵坐标轴 For x=-7 To 7 Step 0.0001 y=x*x*x Picture1.PSet(x, y), RGB(255, 0, 0) 通过描点画函数图像 Next x End Sub 8.4 图形绘制方法 8.4.3 画圆、椭圆和圆弧 使用Circle方法画圆，同时该方法还可以完成弧和椭圆的绘制， 其语法格式如下： Object.Circle [step](x, y), radius, [Color], [Start], [End], [Aspect] 用Circle方法画圆一般只需给出圆心坐标（x, y），半径radius以 及圆弧颜色等。例如， Circle(ScaleWidth/2,