VB-第9章.pptVIP

9.1 图形控件 9.2 坐标系 9.3 图形方法 9.4 绘图属性 9.5 应用 图形设计 图形设计是大多数应用程序设计中非常重要的一个环节。图形表达的意思更完整、更准确，可以为应用程序的界面增加情趣和艺术效果。 VB6为程序设计者提供了非常丰富的绘图功能。设计程序时，不仅可以使用VB提供的图形控件画图，还可以调用图形方法绘制丰富多彩的艺术图形。 9.1 图形控件 VB提供了形状（Shape）和直线（Line）控件在窗体上画图。这些控件不支持任何事件过程，只用于表面装饰。既可以在设计时通过设置其属性来确定显示某种图形，也可以在程序运行时修改图形控件属性以动态的显示图形。 Line控件 Shape控件 Shape控件用于在窗体或图片框中绘制常见的几何图形。通过设置Shape控件的Shape属性 可以画出多种图形。 0(缺省值) vbShapeRectangle 矩形 1 vbShapeSquare 正方形 2 vbShapeOval 椭圆形 3 vbShapeCircle 圆形 4 vbShapeRoundedRectangle 圆角矩形 5 vbShapeRoundedSquare 圆角正方形 9.2 坐标系统 VB的坐标系用于在二维空间定义容器对象(如窗体和图片框)中点的位置。构成一个坐标系，需要三个要素：坐标原点、坐标度量单位、坐标轴的长度与方向。坐标度量单位由容器对象的ScaleMode属性决定。 用户自定义坐标系统 方法一：通过ScaleTop，ScaleLeft，ScaleWidth和ScaleHeight属性实现。 方法二：采用Scale方法来设置坐标系 [对象.]Scale [(xLeft,yTop)-(xRight,yBotton)] 例如，Form1.Scale (-200,250) - (300, -150)将建立 和例10.1一样的坐标系。 可在程序中使用Scale方法改变坐标系统。 当Scale方法不带参数时，取消用户定义的 坐标系，采用缺省坐标系. Line (0, 0) - (1000, 1000)在不同坐标系的效果。 控件对象在坐标系内与X轴和Y轴的位置保持相对不变。 9.3 图形方法 1、 Line方法 画直线或矩形： [对象.] Line [ [Step] (x1,y1)]－(x2,y2)[,颜色][,B[F]] 其中：对象可以是窗体或图形框。 (x1,y1) ，(x2,y2)为线段的起终点坐标或矩形的左上角右下坐标。颜色为可选参数，指定画线的颜色，缺省取对象的前景颜色，即ForeColor B表示画矩形，F表示用画矩形的颜色来填充矩形。 关键字Step表示采用当前作图位置的相对值，即从当前坐标移动相应的步长后所得的点为画线起点。 注意：各参数可根据实际要求进行取舍，但如果舍去的是中间参数，参数的位置分隔符不能舍去。 画一条从(250,300)到(400,500)点的直线 Line (250,300)-(400,500) 从当前位置（由CurrentX，CurrentY决定）画到(400,500) Line - (400,500) 出发点是(150,250)，终点是向X轴正向走150，向Y轴正向走50的点 Line (150,250) - Step (150,50) 等同于：Line (150,250) - (300,300) 画一个左上角在(20,40)，右下角在(150,200)的矩形，注意在color 参数省略时，逗号并不省略。 Line (20,40) - (150,200) , , B 用红色从(20,40)到(70,110)画一个实心的矩形。 Line (20,40) - Step (50,70), RGB(255,0,0), BF 【例】用Line方法在一个窗体上画随机射线。 Private Sub Form_Click() Dim i As Integer, x As Single, y As Single Scale (-320, 240)-(320, -240) ‘定义自定义坐标系 For i = 1 To 100 x = 320 * Rnd 产生x坐标 If Rnd 0.5 Then x = -x y =