第四章 图形处理.pptVIP

第四章 图形处理 4.1 坐标系 (d第四章 P121坐标系改变演示) 坐标系是一个二维网格， 用于定义容器（如窗体和图片框等）中点的位置。在VB中，原点（0，0）默认在容器的左上角，X轴方向向右， Y轴方向向下，刻度是Twip。 1、标准刻度： 可用ScaleMode属性来改变标准刻度。重新设置ScaleMode属性后，ScaleWidth和ScaleHeight属性将重新定义为与新刻度保持一致，而ScaleTop和ScaleLeft属性将设为0。 2、ScaleLeft和ScaleTop属性 用于定义左上角的水平和垂直坐标。 3、ScaleWidth和ScaleHeight属性 用于定义相对单位，单位的长度取决于绘图区的当前宽度和高度。如果设为负数，那么将改变坐标系的方向。 4、用Scale方法改变坐标系 [object].Scale (x1,y1) – (x2,y2) 如果不带参数调用Scale方法，则将坐标系重新定义为默认坐标系。 5、设置当前坐标：CurrentX和CurrentY属性 书P74例题 “d第四章P123设置当前坐标” 4.2 图形方法 用于在窗体、图片框或Printer对象中绘制图形。 4.2.1 清除绘图区 [object.] Cls 执行Cls方法后，绘图区将以背景色重画，当前坐标恢复为原点（0，0），但不会清除设计时画的控件以及用Picture属性加载的图形。 4.2.2 画点 PSet方法用来设置指定点处像素的颜色 [object.] Pset [Step] (x,y) [,color] Pset方法的最大用处就是绘制函数曲线。 书P123例题 4.2.3 Point方法 用于返回指定点的颜色值，语法是： [object.] Point(x,y) 4.2.4 画直线和各种形状 Line方法用于画直线和各种矩形，语法是： [object.] Line [ [Step] (x1,y1)] - [Step] (x2,y2), [color], [B] [F] 4.2.5 画圆、椭圆和圆弧：Circle方法 1、画圆 [object.] Circle [Step] (x,y), radius [,color] 2、画圆弧 [object.] Circle [Step] (x,y), radius, [color], start, end [,aspect] 3、画椭圆 [object.] Circle [Step] (x,y), radius, [color], [start], [end] [,aspect] 4.2.6 PaintPicture方法 用于将图片从一个地方快速移到其它地方，并可以通过复杂的位操作来获得各种图形处理特效。 [object,] PaintPicture pic, destX, destY [,destWidth _ [,destHeight [,srcX [,srcWidth [,srcHeight[,Op] ] ] ] ] ] ] 例：paintpicture方法举例 产生如下界面： Option Explicit Private Sub Form_Click() Dim x1 As Single, y1 As Single ‘picture1是原图形，picture2，3，4是目标图形 x1,y1是以目标图形左上角点为原点的目标坐标 将原图放大一倍 Picture2.PaintPicture Picture1.Picture, 0, 0, _ Picture1.ScaleWidth * 2, Picture1.ScaleHeight * 2 放大一倍并水平翻转,由于图形从右向左放置，所以给出右上角的坐标 Picture3.PaintPicture Picture1.Picture, Picture1.ScaleWidth * 2, 0, _ -Picture1.ScaleWidth * 2, Picture1.ScaleHeight * 2 按原图复制多个图形 x1 = 0 Do While x1 Picture4.ScaleWidth y1 = 0 Do While y1 Picture4.ScaleHeight Picture4.PaintPicture P