vb 图形与图像设计.pptVIP

13.4 利用Line方法在窗体上画出随机射线。 13.5 在屏幕颜色为16位色以上的显示方式下，窗体背景由深变浅。 13.6 在窗体上画一系列宽度递增的直线。 13.7 在窗体上画出部分圆或椭圆，即圆弧和扇形。 13.8 利用Circle方法在窗体中央画许多同心圆。 13.9 利用Circle方法在窗体中画一个圆柱。 13.10 利用Circle方法在窗体中画一个有缺口的饼。 13.11 利用Circle方法在窗体上绘制由圆环构成的艺术图案。构造图案的方法为：将一个半径为r的圆周等分为n份，以这n个等分点为圆心，以半径r1绘制n个圆。 13.12 通过拖动鼠标在窗体上画图，每单击一次鼠标为DrawMode属性设置一个不同的值。 13.13 输入两点的坐标，显示两点的连线并计算两点间的距离，并用图形表示两点间的距离。 13.14 用图形表示从大圆中分别剪下两个小圆，求大圆剩下部分的面积。 13.15 输入3种商品的销售量，显示销售比例的饼图。 13.16 编写程序，输入一个长方体的长、宽、高，求其表面积。 13.17 在窗体上的不同位置输出不同大小、颜色的五角星。 13.18 编制小时钟程序，利用Timer控件来控制指针的转动。 13.19 利用图像控件设计“红绿灯”程序。 13.20 利用菜单和图片框输出三角函数及摆线的图形。 图13.6 满天星 【例13-3】 用PSet方法绘制Cos(x)数学函数曲线。 输入下面的窗体事件代码： Private Sub Form_Paint() Dim x As Integer For i = 0 To 10000 用PSet画直线 PSet (i, 1200), vbRed Next i For x = 0 To 10000 画曲线 PSet (x, 1000 * Cos(x * 3.1415926 / 1800) + 1200), vbBlue Next x End Sub 程序运行结果如图13.7所示。 图13.7 用PSet方法绘制的数学曲线 2. 画直线、矩形方法(Line) Line方法可以在对象上的两点之间画直线或矩形，语法为 〈object〉.Line [Step] [x1, y1] - [Step] (x2, y2) [,〈颜色〉] [,B [F]] 图13.8 用Line方法画出的图形 【例13-4】 下面用Line方法的不同参数画出图形，如图13.8所示。 只需如下的窗体事件代码： Private Sub Form_Paint() Cls Scale (0, 0) -(15, 15) 设置用户坐标系统 Line (1, 1) -(5, 5), 4 画直线 Line (6, 1) -(8, 5), 4, B 画矩形框 Line (10, 1) -(13, 5), 4, BF 画矩形块 For i = 1 To 3 画三个嵌套的方形框 Line (3 + i, 6 + i) -(11 - i, 14 - i), , B Next i End Sub 在使用PSset和Line方法时，在每个坐标点(x,y)之前，可加上Step关键字，用来指出将要画出的点和当前坐标点的相对位置，如上例中的第4，5，6行语句可以用以下语句代替： Line (1, 1)–Step(4, 4), 4 画直线 Line (6, 1)–Step(2, 4), 4, B 画矩形框 Line (10, 1)–Step(3, 4), 4, BF 画矩形块 3. 画圆方法(Circle) Circle方法可以在对象上画圆、椭圆或弧。语法为 [〈object〉.] Circle [Step] (x, y),〈半径〉, [color, start, end, aspect] 图13.9 利用Circle方法绘图