VB课件第12章 图形操作.pptVIP

第12章 图形操作 §12.1 图形操作基础 1.坐标的度量单位由容器对象的ScaleMode属性决定。度量单位规定的是对象打印时的大小。 坐标原点在窗体的左下角 1. CurrentX与CurrentY属性，指定当前坐标。 2.AutoRedraw属性，若其值为True，则所绘制的图形 是持久的；若其值为False，则所绘制的图形是临时的。 语法 QBColor(Color) 参数Color是一个0～15的整数，每个整数代表一种颜色。 即QBColor函数可设置16种颜色。 Private Sub ComChange_Click() Picture1.Picture = LoadPicture(Arrows2.wmf) End Sub Private Sub ComClear_Click() Picture1.Picture = LoadPicture End Sub Private Sub ComUndo_Click() Picture1.Picture =LoadPicture(Agree.wmf) End Sub AutoSize属性：指定PictureBox控件是否自动改变大小,以适应图形的大小。属性为 True或 False 缺省值为 False Line方法用于绘制直线或矩形、多边形、曲线等图形，其语法格式如下： [对象].Line [[Step](x1，y1)]-[Step](x2，y2)[，颜色][，B[F]] 说明： Line方法用于绘制直线或矩形、多边形、曲线等图形，其语法格式如下： [对象].Line [[Step](x1，y1)]-[Step](x2，y2)[，颜色][，B[F]] 说明： Circle方法用于绘制圆、椭圆、扇形或弧，其语法格式如下： [对象.]Circle[[Step](x,y)],半径[,颜色][,起始角][,终止角][长短轴比率] Circle方法用于绘制圆、椭圆、扇形或弧，其语法格式如下： [对象.]Circle[[Step](x,y)],半径[,颜色][,起始角][,终止角][长短轴比率] 图 形 方 法 Circle方法用于绘制圆、椭圆、扇形或弧，其语法格式如下： [对象.]Circle[[Step](x, y)], 半径[, 颜色][, 起始角][, 终止角][长短轴比率] Pset方法用于画点，其语法格式如下： [对象].Pset [Step](x，y)[，颜色] 参数（x，y）为所画点的坐标，使用Pset方法可以绘制出任何曲线。 图 形 方 法 PaintPicture方法能够将窗体或图片框中的一个矩形区域的像素复制到另 一个对象上，并且可以对复制的图形进行缩放和翻转等操作。 PaintPicture方法的语法格式如下： Dpic. PaintPicture Spic，dx，dy，dw，dh，sx，sy，sw，sh[，rop] 图 形 方 法 例12-16 本例说明PaintPicture方法的使用。 12.5 图形方法 12.5.1 Line方法 图形方法是指窗体或图片框控件用于绘图的方法。其中有Line方法、 Circle方法、Pset方法、PaintPicture方法等。 (6) B可选的。表示绘制出矩形，其中(x1，y1)是指矩形左上角顶点坐标 (x2，y2)是指矩形右下角顶点坐标 (7) F：可选的，只有使用了参数 B 后才可使用该参数。F参数指矩形以 指定颜色填充。 Private Sub Form_Load( ) FontSize = 16 Scale (0, 700)-(700, 0) Line (0, 700)-(0, 0), vbRed CurrentX = 10: CurrentY = 690 Print y Line (0, 0)-(700, 0), vbRed CurrentX = 680: CurrentY = 50 Print x Line (200, 300)-(500, 600) CurrentX = 100: CurrentY = 80 Line -(500, 400) Line (200, 300)-(700, 900) Line (200, 300)- Step(500, 600) End Sub 12.5 图形方法 图形方法应用 例 使用 Line方法绘制一个柱状图表,每个柱的填充颜色与样