VB第十一章课件《图形操作》.ppt

1,第11章 图形操作,11.1 度量系统 11.2 坐标系统 11.3 绘图属性 11.4 图形控件 11.5 图形方法与事件 11.6 程序举例,2,VB提供了相当丰富的图形功能，既可通过图形控件进行图形操作，也可通过图形方法在窗体或图片框上输出文字或图形。灵活使用这些图形控件和图形方法，不仅可以完成许多特殊的功能，而且可以Windows的程序界面增加活力。,3,11.1 度量系统,VB使用的缺省度量单位是Twip（缇），1英寸等于1440Twip。VB支持多种度量单位，以备不同度量的需要。窗体、图片框或打印对象中的任何对象 必须使用它的ScaleMode属性来指定度量单位。每个窗体、图片框或打印对象的缺省度量单位都是Twip。,4,5,11.2 坐标系统,绘图语句所绘制的图形，通常是通过容器控件（窗体、图片框）输出的，而每个容器控件都有一个坐标系统，坐标系是在容器控件中绘图必备的条件。一个坐标系包括坐标度量单位、坐标原点、坐标轴的长度与方向等要素。由坐标的原点、长度和方向3个要素确定绘制的图形在容器中的位置。VB坐标系统是以屏幕左上角为原点（0，0），而坐标轴x、y轴分别是以向右、向下方向增加。每个对象定位于存放它的“容器”中，对象的Top、Left属性确定了该对象左上角在“容器”中的位置。,6,对象的坐标系统允许由用户自定义，有2种方法用于坐标系统的定义。1通过对象的ScaleTop、ScaleLeft、ScaleWidth和ScaleHeight属性来实现。属性ScaleTop、ScaleLeft的值用于控制对象左上角坐标，所有对象的ScaleTop、ScaleLeft属性的缺省值为0，坐标原点在对象的左上角。当改变ScaleTop或ScaleLeft的值后，坐标系的x轴或y轴按此值平移形成新的坐标原点。,7,【例11.1】定义一个系统坐标，其原点为（0，0），使原点在窗体的中央位置。程序代码如下：Private Sub Form_Load()Form1.ScaleLeft=-100 Form1.ScaleTop=100 Form1.ScaleHeight=-200 Form1.ScaleWidth=200 Line(0,100)-(0,-100)Line(100,0)-(-100,0)End Sub,8,2采用Scale方法设置坐标系统 Scale方法是用户建立坐标系统最方便的方法，其格式如下：对象Scale(xLeft，yTop)(xRight，yButton)其中：对象可以是窗体、图片框或打印机。如果缺省该项，则指具有焦点的窗体对象。(xLeft，yTop)表示左上角的坐标值，(xRight，yButton)表示右下角的坐标值，均为单精度数值。,9,系统会根据给定的坐标参数自动计算出ScaleLeft、SclaeTop、ScaleWidth、ScaleHeight的值：ScaleLeft=xLeftScaleTop=yTopScaleWidth=xRight-xLeftScaleHeight=yBotton-yTop例如，Form1.Scale(-100,100)(100,-100)将建立与例11.1一样的坐标系。任何时候在程序代码中Scale方法都能有效地和自然地改变坐标系统。当Scale方法不带参数时，则取消用户自定义的坐标系，而采用缺省坐标系。,10,11.3 绘图属性,1CurrentX、CurrentY属性 CurrentX、CurrentY属性给出在容器内绘图时的当前横坐标、纵坐标，这两个属性只能在程序中设置。CurrentX、CurrentY属性的设置格式：对象 CurrentX=x对象 CurrentY=y功能：设置对象的CurrentX和CurrentY的值。,11,2DrawWidth（线宽）属性 窗体、图片框或打印机的DrawWidth属性给出这些对象上所画线的宽度或点的大小。DrawWidth属性格式：对象DrawWidth=n功能：设置容器输出的线宽。其中：n为数值表达式，其范围为132767，该值以像素为单位表示线宽。默认值为，即1个像素宽。,12,3DrawStyle（线型）属性 窗体、图片框或打印机的DrawStyle属性给出这些对象上所画线的形状。以上线型仅当DrawWidth属性值为1时才能产生。当DrawWidth属性值大于1且DrawStyle属性值为14时，都只能产生实线效果。当DrawWidth的值大于1，而DrawStyle属性值为6时，所画的内收实线仅当是封闭线时起作用。,13,4AutoRedraw属性 AutoRedraw属性用于设置和返回对象或控件是否能自动重绘。若AutoRedraw属性值为True时，使Form对象或PictureBox控件的自动重绘有效，否则对不接收重绘事件（Paint）.5FillStyle和FillColor属性 封闭图形的填充方式由FillStyle和FillColor属性决定。FillColor属性指定填充图案的颜色，缺省的颜色ForeColor相同。FillStyle属性指定填充的图案，共有8种内部图案。,14,15,6色彩 VB默认采用对的前景色（ForeColor属性）绘图，也可通过以下方式指定。（1）RGB函数 RGB函数通过红、绿、蓝3基色混合产生某种颜色，其函数格式为：RGB(a,b,c)其中：a、b、c代表红、绿、蓝3色成分，取值范围为0255之间的整数。例如RGB(0,0,0)返回黑色，RGB(255,255,255)返回白色。（2）QBColor函数 QBColor函数QuickBasic所使用的16种颜色，其函数格式为：QBColor(x)其中：x称之为颜色代码，取值范围为015之间的整数，每个颜色代码代表一种颜色。,16,（3）用长整型代码 RGB函数与QBColor函数实际上都返回一个十六进制的长整数。这个数从左到右，每2位一组代表一种基色，它们的顺序是蓝绿红。因此也可直接使用6位的十六进制颜色代码。在色彩的属性设置框中可以看到这些代码（例如&H000000&表示黑色，&H0000FF&表示红色等）。,17,11.4 图形控件,VB提供了4个控件以简化与图形有关的操作，它们是PictureBox控件、Image控件、Shape控件、Line控件，每一个控件都适用于一个特定的目的。Image、Shape和Line控件需要较少的系统资源，且包含PictureBox中可用的属性、方法和事件的子集，因此，比PictureBox控件显示得快。图形控件的优点是，创建图形所用的代码比图形方法用的少。VB提供的图片框和图像框可以显示位图、图标、图元文件中的图形，也可处理GIF和JPEG格式的图形文件。,18,1Line（直线）控件 在设计时可以用Line控件来画线，长度、宽度、颜色、虚实线等属性均可设置。2Shape（形状）控件 Shape控件可用来画矩形、正方形、椭圆、圆、圆角矩形及圆角正方形。当Shape控件放置到窗体时显示为一个矩形，通过Shape属性可确定所需的几何形状。,19,【例11.2】产生Shape控件的6种形状，在窗体上添加一Shape控件，Index属性设置为0。程序代码如下：Private Sub Form_Activate()Dim i As Integer,r As Integer r=50 Print 0 1 2 3 4 5 Shape1(0).Shape=0:Shape1(0).FillStyle=2 Shape1(0).FillColor=vbRed For i=1 To 5 Load Shape1(i)Shape1(i).Left=Shape1(i-1).Left+600 Shape1(i).Shape=i Shape1(i).FillStyle=i+2 Shape1(i).FillColor=RGB(r+i*30,0,0)Shape1(i).Visible=True Next iEnd Sub,20,3PictureBox（图片框）控件 PictureBox控件的主要作用是为用户显示图片，也可作为其它控件的容器。实际显示的图片由Picture属性决定。Picture属性可设置被显示的图片文件名（包括可选的路径名）。在代码中可以LoadPicture()在图片框中装载图形文件，其格式如下：.Picture=LoadPicture(图形文件名)为了在运行时从图片框中删除一个图片，可用以下方式实现：.Picture=LoadPicture(),21,Picture控件不提供滚动条。也不能伸展被装入的图片以适应控件的大小，但是可以用图片框AutoSize属性调整图片框的大小以适应图片的大小。当AutoSize设置True时，图片框能够自动调整大小与显示的图片相匹配；当AutoSize设置False时，图片框不能自动调整大小来适应其中的图片，加载到图片框中的图片保持原始尺寸，这就意味着如果图片比图片框大，则超过的部分将被剪裁掉。,22,4Image（图像框）控件 在窗体上使用图像框的步骤与图片框相同，但是图像框比图片框占用更少的内存，描绘得更快，与图片框不同的是图像框内不能放置其它控件。图像框没有AutoSize属性，但有Stretch属性。Stretch属性设置为False时，图像框可自动改变大小以适应其中的图片；Stretch属性设置为True时，加载到图像框的图片可自动调整尺寸以适应图像框的大小。如果图像框内装入的图形较大，在Forme比较小的情况下，图像框的边界会被窗体的边界截断。,23,11.5 图形方法与事件,1Pset方法Pset方法用于画点，其格式如下：对象Pset Step(x，y)，颜色功能：在由指定的容器内，在坐标为(x，y)的位置上画一个点；若省略，则默认为窗体。说明：关键字Step表示采用当前作图位置的相对值；采用背景颜色可清除某个位置上的点；利用Pset方法可以画任意曲线。,24,【例11.3】利用Pset方法绘制阿基米德螺线。程序代码如下：Private Sub Form_Resize()Dim i As Integer,j As Single Dim x As Single,y As Single DrawWidth=2 For i=0 To 5000 PSet(i,600),vbRed Next i For j=0 To 20 Step 0.01 y=30*j*Cos(j)+600 x=50*j*Sin(j)+1200 PSet(x,y),RGB(0,0,255)Next jEnd Sub,25,2Line方法Line方法用于画直线或矩形，其格式如下：对象名Line Step(x1，y1)-（x2，y2），颜色，BF功能：在由指定的容器内，在坐标系中以（x1，y1）为起点，（x2，y2）为终点画一条线段或一个矩形。,26,说明：（1）（x1，y1）为线段的起点坐标或矩形的左上角坐标，（x2，y2）为线段的终点坐标或矩形的右上角坐标；（2）关键字Step表示采用当前作图位置的相对值；（3）“B”表示画矩形，“F”表示用画矩形的颜色来填充矩形。缺省F，则矩形的颜色由FillColor和FillStyle属性决定；,27,3Circle方法Circle方法用于画圆、椭圆、圆弧或扇形，其格式如下：对象名Circle Step（x，y），半径，颜色，起始角，终止角，长短轴比率功能：在由指定的容器内，在坐标系中以（x，y）为圆心画圆、椭圆、圆弧或扇形。,28,说明：（1）缺省，则默认为当前窗体；（2）（x，y）为圆心坐标，关键字Step表示采用当前作图位置的相对值；（3）圆弧和扇形通过“起始角”、“终止角”控制。当“起始角”、“终止角”取值在02时为圆弧；当在“起始角”、“终止角”取值前加一个负号时，画出扇形，负号表示画圆心到圆弧的径向线。（4）椭圆通过长短轴的比率控制，比率为1（缺省值），则画圆；比率大于1，则画沿水平方向拉长的椭圆；比率小于1，则画沿垂直方向拉长的椭圆；比率应大于0。,29,【例11.4】Circle方法的应用。程序代码如下：Private Sub Form_Paint()Const pi=3.14159 ScaleMode=3:DrawWidth=2 Circle(50,40),30 Circle(120,40),30,0.5 Circle(180,40),30,1.5 Circle(50,120),30,-pi,-pi/4 Circle(120,120),30,vbRed,pi/2,1.5*pi Circle(180,120),30,vbRed Circle(180,120),30,vbRed,0.25 Circle(180,120),30,vbRed,1.75End Sub,30,4Paint事件 如果在程序代码中有图形方法的绘图语句，使用Paint事件将很有用，最有效的方法是将所有的绘图方法（Pset、Line等）都放在Paint事件中，否则，可能会发生一些不希望发生的情况。窗体和PictureBox控件都有Paint事件，通过使用Paint事件过程，可以保证必要的图形都得以重现（如窗体最小化后，恢复到正常大小时，窗体内所有图形都得重画）。当AutoRedraw属性True，时，将自动重画，Paint事件不起作用。在Resize事件过程中使用Refresh方法，可在每次调整窗体大小时强制对所有对象Paint事件进行重画。,31,【例11.5】设计一应用程序，当程序运行时将画出一个与窗体各边的中点相交的菱形，当随意调整窗体的大小时，窗体中的菱形也随着自动调整。程序代码如下：Private Sub Form_Paint()Dim x,y x=ScaleLeft+ScaleWidth/2 y=ScaleTop+ScaleHeight/2 Line(ScaleLeft,y)-(x,ScaleTop)Line-(ScaleWidth+ScaleLeft,y)Line-(x,ScaleHeight+ScaleTop)Line-(ScaleLeft,y)End SubPrivate Sub Form_Resize()RefreshEnd Sub,32,11.6 程序举例,【例11.6】实现通过两个滚动条的滚动，改变形状的颜色和大小。,