第十章-图形操作.ppt

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,第十章 图形操作,精彩的图形界面，不但可以增加用户的购买动机，更可以改善冰冷的人机界面。通过本章可了解图形的基本操作,。,VB,绘图方式有两种：,第一种是采用,绘图控件,：图片框、图像框、直线、几何图形、统计图；,第二种是采用,绘图方法,：如,Cls,、,Pset,、,Point,、,Line,、,Circle,。,同样画一条直线，可用直线对象或,Line,方法。,使用,控件绘图,的优点如下,：（简单）,。使用较少的系统资源，运行速度较快。,。设计阶段可预览图形效果。,。较短的代码。,。适用于窗体内需要较少的直线与圆等等情况。,使用,方法绘图,的优点如下：（高级）,。适用于窗体内需要较多的直线与圆的情况。,。各直线或圆可重叠交叉使用，对象绘图无法重叠。,第一节 图形的坐标系统,一、坐标系统,:,在,VB,中，每个对象定位于存放它的容器内，对象定位都要使用容器的坐标系。例如，窗体处于屏幕内，屏幕是窗体的容器。在窗体内绘制对象，窗体就是容器。如果在框架内绘制控件，该框架就是容器。,VB,为对象的定位提供了,Left,、,Top,、,Width,、,Height,四项属性。,每个容器都有一个坐标系，坐标系有三个要素：坐标原点、坐标度量单位、坐标轴的长度和方向。,容器坐标系的默认设置是：,容器的左上角为坐标原点（,0,，,0,），其,X,坐标由左向右递增，,Y,坐标由上往下递增。,坐标度量单位为缇。,二、缇的解释,根据缺省规定，使用缇为单位。,（,1440,缇等于一英寸；,567,缇等于一厘米）。,可通过设置,ScaleMode,属性，来重新定义坐标度量单位。属性设置值见下表,:,0,用户定义,1,缇,2,磅。,72,磅等于一英寸,3,像素。像素是监视器或打印机分辨率的最小单,位。每英寸里像素的数目由设备的分辨率决定。,4,字符。打印时，一个字符有,1/6,英寸高、,1/12,英寸宽。,5,英寸。,6,毫米。,7,厘米。,三、自定义坐标系,一般使用的是缺省系统。但坐标轴的方向、原点和坐标系统的刻度，都是可以改变的，使得在窗体上缩放图形和定位图形变得更容易。,通过对象的,ScaleLeft,、,ScaleTop,、,ScaleWidth,和,ScaleHeight,四项属性可改变窗体对象的坐标系。,ScaleLeft,和,ScaleTop,：,控制容器对象左边和顶端的坐标，根据这两个属性形成坐标原点。默认值为,0,。,ScaleWidth,和,ScaleHeight,：,确定对象内部水平方向和垂直方向的单元数。,注意：,Height,和,Width,属性值包含标题栏和边框宽度。,实际可用的高度和宽度是由,ScaleWidth,和,ScaleHeight,属性决定的。,1,、重定义坐标原点,属性,ScaleTop,、,ScaleLeft,的值用于控制对象左上角坐标。,2,、重定义坐标轴方向和度量单位,属性,ScaleWidth,和,ScaleHeight,的值可确定坐标系的,X,轴和,Y,轴的方向及最大坐标值，缺省时其值均大于,0,。如果,ScaleWidth,的值,小于,0,，,X,轴的方向向左，如果,ScaleHeight,的,值小于,0,，,Y,轴的方向向上。,对象右下角坐标值为（,ScaleLeft+ScaleWidth,，,ScaleTop+ScaleHeight,）。,例如：,form1.scaleleft=-200,form1.scaletop=250,form1.scalewidth=500,form1.scaleheight=-350,3,、用,scale,方法改变坐标系,object.Scale(x1,y1),(x2,y2),(x1,y1),是窗体左上角的坐标，,(x2,y2),是窗体右下角的坐标。,如果,x1x2,，则,x,轴水平向左；,如果,y1y2,，则,y,轴垂直向上；,x1,等于,ScaleLeft,，,y1,等于,ScaleTop,x2,等于,ScaleLeft+ScaleWidth,，,y2,等于,ScaleTop+ScaleHeight,例如,:,Scale(0,0)-(4800,3600),原点在左上角，,X,轴向右，,Y,轴向下。,Scale(0,3600)-(4800,0),原点在左下角，,X,轴向右，,Y,轴向上。,4,、定义笛卡尔坐标系,对于习惯在笛卡尔坐标系中做图的用户来说，窗体缺省坐标对画曲线非常不方便，,VB,为用户提供了一个更改坐标系的方法，可以将窗体缺省坐标系变成笛卡尔坐标系，其语法格式为：,对象,Scale,（,左，顶）,-,（右，底）,将窗体缺省坐标变成笛卡尔坐标，只需用,Scale,方法将“左”和“底”的值设为负，而“右”和“顶”的值设为正即可。,如：,Form1.Scale(-100,100)-(100,-100),将窗体坐标变为标准的笛卡尔坐标，即坐标原点在窗体的中心位置。,第二节 绘图属性,一、当前坐标,CurrentX,和,CurrentY,属性：,窗体或图形框或打印机的这,两个属性给出这些对象在绘,图时的当前坐标。,Private Sub Form_Load(),Show,Randomize,CurrentX,=,Rnd,*Form1.Width,CurrentY,=,Rnd,*Form1.Height,Line-(200,300),End Sub,第三节 使用图形控件,一、,Shape,控件,Shape,控件显示矩形、正方形、椭圆、圆形、圆角矩形或者圆角正方形。,二、,Line,控件,第三节 常用的绘图方法,一、,PSet,方法：,在对象的指定位置，按指定颜色画点。,object.PSet,Step(x,y),color,在一开始画图时，,VB,约定窗体的左上角为当前坐标，如果不想从左上角开始，则要定义当前坐标，用,CurrentX,=x,，,CurrentY,=y,定义，（,x,y,）,为当前坐标，,CurrentX,、,CurrentY,在画图时是不断更新的，如画了一条线后，线的终点就变成了坐标，即,VB,将线的终点坐标分别赋予了,CurrentX,、,CurrentY,。,下表为使用绘图方法后的,CurrentX,、,CurrentY,设置值。,Circle,对象的中心,Cls,（,0,，,0,）,Line,线终点,Print,下一个打印位置,Pset,绘图点（,x,y,）,例如：,PSet,(1200,1200),vbRed,PSet,Step(400,400),vbRed,二、,Line,方法：,在对象上画直线和矩形。,object.Line Step(x1,y1)-Step(x2,y2),color,BF,例如：,PSet,(1200,1200),vbRed,PSet,Step(400,400),vbRed,Line-Step(400,400),Line-Step(400,400),B,Private Sub Form_Load(),Show,Timer1.Interval=250,Picture1.ScaleTop=-1,Picture1.ScaleLeft=-1,Picture1.ScaleWidth=2,Picture1.ScaleHeight=2,Picture1.Line(-1,0)-(1,0),Picture1.Line(0,-1)-(0,1),End Sub,Private Sub Timer1_Timer(),For i=-1 To 1 Step 0.05,Picture1.PSet(i*,Rnd,i*,Rnd,),vbRed,Next i,End Sub,三、,Circle,方法：在对象上画圆、椭圆或弧、扇形，逆时针绘图。,object.Circle Step(x,y),radius,color,start,end,aspect,(x,y),为圆心坐标,step,：指定圆或弧的中心相对于当前对象的,currentx,、,currenty,属性提供的坐标。,radius,：半径，,start,end,（弧度为单位）弧或扇形的起点和终点，范围,-2,2,。起点的缺省,0,，终点的缺省,2,。,当起始角、终止角取值前加一负号时，画出扇,形，负号表示画圆心到圆弧的径向线。,aspect,：垂直半径与水平半径之比，不能为负数。,const pi=3.1415926,circle(2000,1250),1000,vbred,-pi,-pi/2,circle step(-500,-500),500,circle step(0,0),500,5/25,API,函数,API(Application Program,lnterface,，即,Windows,的应用程 序编程接口,),API,说到底就是一系列的底层函数，是系统提供给 用户用于进入操作系统核心，进行高级编程的途径。,从,VB,应用程序中访问,API,函数，必须用,Declare,语句将,API,函数声明为外部过程。,