第12章图形操作.ppt

12.1 VB坐标系统12.2 图形控件12.3 图形方法12.4 绘图应用 在VB中，每个对象定位于存放它的容器，例如，窗体处于屏幕内，屏幕是窗体的容器，在窗体内绘制控件，窗体就是控件的容器。每个容器都有一个坐标系，它里面的每一个点可用一对坐标（X，Y）表示，但采用的坐标系统不同，同一绘图区域的坐标刻度范围以及同一位置的坐标刻度X,Y也不一样。VB提供两类坐标系：默认坐标系、自定义坐标系。VB中，每个对象容器（屏幕、窗体、图片框、框架等）都有一个默认坐标系，其特点是：原点（0，0）定位在对象容器用户区的左上角，X轴向右、Y轴向下为正方向。下图是窗体作为控件的容器时的默认坐标系：默认坐标系中，属性ScaleTop和ScaleLeft用于控制容器对象左边和顶端的坐标，根据这两个属性值可形成坐标系原点。所有对象的ScaleTop、ScaleLeft属性的默认值均为0。属性Height和Width确定容器对象高度和宽度。属性ScaleHeight和ScaleWidth确定对象内部水平方向和垂直方向的单元数。属性ScaleMode决定对象坐标度量单位，共有8种单位，ScaleMode属性默认为twip，ScaleMode属性设置如下表所示。属性值单 位属性值单 位0用户自定义（User）4字符1twip(默认值)5英寸（inch）2磅（point，每英寸72磅）6毫米（millimeter）3像素（pixed）7厘米（centimeter）在图形操作中可通过下面方法定制窗体、图片框等对象的坐标系，包括改变坐标原点的位置、改变X轴及Y轴的正向、改变坐标单位等。修改属性值:当容器对象的ScaleMode属性设置为0时，允许自定义坐标系统。此时程序设汁者可通过设置对象的四个属性ScaleWidth、ScaleHeight、ScaleLeft、ScaleTop来定义合适的坐标系。对象左上角坐 标 为（S c a l e T o p,S c a l e L e f t），右 下 角 坐 标 为（ScaleLeft+ScaleWidth，ScaleTop+ScaleHeight）。例如，设置窗体Form1的四项属性为：Form1.ScaleLeft=-200 Form1.ScaleTop=250 Form1.ScaleWidth=500 Form1.ScaleHeight=-400 Scale方法:Scale方法可重新定义窗体、图片框、打印机等对象的坐标系。语法格式为：对象名.Scale(X1,Y1)(X2,Y2)其中：对象名可以是窗体、图片框或打印机。如果缺省对象名，默认为带有焦点的窗体对象。（X1，Y1）是对象用户区左上角的新坐标，（X2，Y2）是对象用户区右下角的新坐标。缺省时恢复默认坐标系。执行了Scale方法后，VB根据给定的坐标参数自动计算出新的ScaleLeft、ScaleTop、ScaleWidth、ScaleHeight属性值：ScaleLeft=X1 ScaleTop=Y1 ScaleWidth=X2 X1 ScaleHeight=Y2 Y1所以，通过设置（X1，Y1）、（X2，Y2）可改变坐标单位。图形控件包括直线控件（Line）和形状控件（Shape），它们是VB提供的两种标准控件，利用它们可在窗体、图片框、框架等绘图对象上快速直接地绘制各种简单的线条及形状。定制控件MSChart可在窗体上绘制图表，支持真正的三维显示。本节简单介绍这三个控件的使用。Line控件用于在窗体、图片框和框架中直接画直线或斜线，直线的长短、位置、颜色、形状等由其属性决定。直线的主要属性如下表所示：直线的属性既可以在设计时通过属性窗口来设置，也可以在程序运行的时候动态的改变直线的各种属性。例如在运行时修改直线的宽度：Line.BorderWidth=3 属性名属性含义X1,Y1设置或返回直线的起点坐标X2,Y2设置或返回直线的终点坐标BorderStyle设置直线的样式BorderWidth设置或返回直线的宽度BorderColor用于设置或返回直线的颜色 Shape控件可在绘图对象上绘制矩形、正方形、椭圆、圆、圆角矩形以及圆角正方形等几何图形。在设计阶段将该控件加到窗体、图片框或框架中后，即显示为一个几何图形，图形的形状、颜色、形态等由其属性决定，Shape控件的几个主要属性如下表所示：属性名属性含义Shape用于设置控件的形状BackStyle决定图形内是否透明，透明时BackColor属性无效BackColor设置或返回图形内部的颜色BorderStyle设置边界线的样式BorderWidth设置边界线的宽度FillStyle设置图形内部的填充样式FillColor设置或返回图形内部填充内容的颜色例例 用Shape控件的Shape属性显示Shape控件的6种形状，并填充不同的图案，如图所示：采用Shape控件数组，程序如下：Private Sub Form_Activate()Dim i As Integer Shape1(0).Shape=0 Shape1(0).FillStyle=2 For i=1 To 5 Shape1(i).Left=Shape1(i-1).Left+750 Shape1(i).Shape=i Shape1(i).FillStyle=i+2 Shape1(i).Visible=TrueNext iEnd SubMSChart控件可用于绘制各种图表，支持真正的三维显示，支持所有主要的图表类型。值和数据点可以条形图、折线图、标记图、填充区域图、饼图等形式显示。图表还具有标题、背景、图例、图形和脚注。MSChart是定制控件，文件名为MSCHART20.OCX，部件名为Microsoft Chart Control6.0，使用时先添加到工具箱中。MSChart控件的“属性页”如下图所示：MSChart控件的主要属性有：ChartData：设置或返回一个值，该值确定一个矩阵的内容是否直接加载到图表的数据格子中，或当图表要求数据时是否返回一个矩阵。ColumnCount：用于设置或返回数据网格的列数。RowCount：用于设置或返回数据网格的行数。Column：用于设置或返回数据网格的当前列。Row：用于设置或返回数据网格的当前行。Data：用于设置或返回数据网格中由Column和Row标识的指定数据点的值。ColumnLabel：设置或返回Column属性指定列的列标题。图表中每一列都有默认的列标题，第i列的默认列标题为Ci。RowLabel：设置或返回Row属性指定行的行标题。默认行标题为Ri。ShowLegend：决定图表中是否显示图例。ChartType：设置或返回数据网格中数据的图表类型。【例例】用菜单改变下图中的图表的类型。在窗体中添加“图表类型”菜单，其子菜单标题为各种类型名，所有子菜单包括在一个菜单控件数组中，名称为TypeItem。程序代码如下：Private Sub Form_Load()MSChart1.ColumnCount=4:MSChart1.RowCount=3 For i=1 To MSChart1.RowCount MSChart1.Row=i MSChart1.RowLabel=数据&i For j=1 To MSChart1.ColumnCount MSChart1.Column=j MSChart1.ColumnLabel=系列&j MSChart1.Data=i+j Next j,i MSChart1.ShowLegend=TrueEnd Sub （转下页）（接上页）Private Sub TypeItem_Click(Index As Integer)Select Case Index Case 0,1,2,3,4,5,6,7,8,9 MSChart1.chartType=Index Case 11 MSChart1.chartType=14 Case 12 MSChart1.chartType=16 End SelectEnd Sub VB除提供了图形控件外，还提供了多种绘图方法，因而可在绘图对象上完成复杂图形的设计。窗体和图片框都支持图形方法，可用图形方法在这些对象上作出任何你想到的图形。必须注意：绘图方法只能出现在程序代码中，只有当应用程序运行时才能显示出用绘图方法所绘制的图形。Pset方法用于在对象绘图区域的某一指定位置上画点并指定颜色。其语法格式为：对象名.Pset Step(x,y),颜色 其中，当颜色参数省略时，缺省颜色为当前绘图对象所设置的前景色；而点的粗细则由绘图对象的DrawWidth属性值决定。Step表示采用相对坐标，省略Step关键字时，(x,y)为画点的绝对坐标，x、y为单精度值。【例例】自定义坐标，用Pset方法在窗体上画正弦曲线。运行结果如图所示。程序代码如下：Private Sub Form_Click()Const Pi=3.1415926Dim x As SingleMe.DrawWidth=2 设置画笔的粗细Me.Scale(-2*Pi,2)-(2*Pi,-2)自定义窗体绘图区域的坐标系统For x=-2*Pi To 2*Pi Step 0.01 在窗体上绘图区域绘制点由点组成的正弦曲线 PSet(x,Sin(x)Next xEnd Sub Line方法用于在窗体或图片框中画直线或矩形。语法格式为：对象名.LineStep(x1,y1)Step(x2,y2),Color,BF 其中：对象名是指在何对象上画线或矩形，省略时指带焦点的窗体。(x1,y1)指定所画直线的起点坐标。带有Step关键字时表示相对坐标；不带时表示绝对坐标；省略时以对象的CurrentX和CurrentY属性确定起点坐标。(x2,y2)指定所画直线终点的相对或绝对坐标。Color为画线指定颜色值，省略时用对象的ForeColor属性，若省略Color而后面还带有选项，则逗号不能省。若选B，则该方法画出以(x1,y1)、(x2,y2)为主对角线的矩形。若选F（也必须选B），则以画矩形框的颜色填充矩形。Line的语法格式也可以简化为以下三种形式：语法格式一：对象名.Line（xl，y1）(x2，y2)，线条颜色 其中：(xl，y1)、(x2，y2)分别为起点、终点的坐标值 语法格式二；对象名.Line(xl，y1)Step(dx，dy)，线条颜色 其中：(x1，y1)为起点坐标，(dx，dy)是相对于(x1，y1)的相对距离 语法格式三：对象名.Line (x2，y2)，线条颜色 其中：线条起始点为(CurrentX，CurrentY)，线条终点为(x2，y2)注意注意：线条的粗细取决于绘图对象的Drawwidth属性值；线条的样式取决于绘图对象的DrawStyle属性；若在使用画线方法时设置了线条颜色参数，则线条颜色就是参数指定的颜色，否则将由绘图对象的ForeColor属性值来决定线条的颜色。【例例】编程在窗体上分别绘制粗细不同和样式不同的水平直线。程序运行结果如下图所示：Private Sub Form_Click()Dim i As Integer For i=1 To 4 Me.DrawWidth=i Line(100,100+i*250)-(2000,100+i*250)Next i Me.DrawWidth=1 For i=1 To 4 Me.DrawStyle=i 用DrawStyle属性设置画笔的样式 Line(2200,100+i*250)-(4000,100+i*250)Next iEnd SubCircle方法用于画圆、椭圆、圆弧和扇形。其语法格式如下：对象名.Circle Step(x,y),r,Color,弧起始角,终止角度,半径比 其中：对象名是指在何对象上产生Circle方法的结果，省略对象名默认为带焦点的窗体对象。(x,y)为画圆、椭圆或弧的圆心的坐标，关键字Step表示采用当前作图位置的相对值。r指定画圆、椭圆或弧的半径。对象