第9章 VB图形设计

第九章VisualBasic图形设计9.1图形设计基础9.2图形控件9.3绘图方法9.4与绘图有关的常用属性和事件第九章VB图形设计9.1图形设计基础9.1.1坐标系统9.1.2颜色第九章VB图形设计9.1.1坐标系统一个完整的坐标系有三个要素：坐标原点、坐标度量单位、坐标值。1.坐标原点：任何容器的缺省坐标系统，都是从容器的左上角（0，0）坐标开始，即坐标原点在窗体的左上角。2.坐标度量单位：根据缺省规定，所有VB的移动、调整大小和图形绘制语句，都使用缇为单位。1440缇等于1英寸，567缇等于1厘米。可以使用ScaleMode返回或设置对象坐标的度量单位。3.坐标值：使用窗体中的坐标，可定义网格上点的位置：（X，Y）。X值是沿X轴点的位置，最左端是缺省值0。Y值是沿Y轴点的位置，最上端是缺省位置0。第九章VB图形设计在VB6中坐标系有默认坐标系和自定义坐标系两种。1.VB的默认坐标系VB默认坐标系的设置是：容器的左上角为坐标原点（0，0），横向向右为X轴的正向，纵向向下为Y轴的正向。度量单位默认为Twip（缇）。2.自定义坐标系可以使用有关属性定义坐标系或通过Scale方法定义坐标系方法一：使用以下四个属性重定义坐标系：ScaleLeft，ScaleTop，ScaleWidth，ScaleHeight9.1.1坐标系统第九章VB图形设计方法二：使用Scale方法定义坐标系语法：object.Scale(x1,y1)-(x2,y2)说明：其中(x1,y1)用于指定新坐标系左上角的坐标。(x2,y2)用于指定新坐标系右下角的坐标。这两组参数要选必须全选，定义新的坐标系后，系统将进行这样的赋值：ScaleLeft=x1，ScaleTop=y1，ScaleWidth=x2-x1，ScaleHeight=y2-y1。如果两组参数全不选，则恢复为缺省坐标系。9.1.1坐标系统第九章VB图形设计9.1.2颜色1、RGB函数RGB函数通过红、绿、蓝三基色进行混合产生某种颜色。语法格式：RGB（红，绿，蓝）其中颜色值为一整数值，取值从0到255。例：RGB（0，0，0）返回黑色，RGB（255，255，255）返回白色，RGB（255，0，0）返回红色，RGB（255，255，0）返回黄色。2、QBColor函数QBColor函数采用QBasic所使用的16种颜色。语法格式为：QBColor（颜色码）颜色码如右表所示。值颜色值颜色0黑色8灰色1兰色9亮兰色2绿色10亮绿色3青色11亮青色4红色12亮红色5洋红色13亮洋红色6黄色14亮黄色7白色15亮白色第九章VB图形设计9.2图形控件9.2.1Shape控件Shape控件可以用来显示矩形、正方形、圆形或椭圆形。通过修改该控件的Shape属性可决定得到的形状类型。Shape属性值效果Shape属性值效果0矩形1正方形2椭圆3圆4圆角矩形5圆角正方形以下几个属性将决定Shape控件的外观：BackStyle：决定形状的背景是否为透明BackColor：决定Shape控件的背景颜色。FillColor：决定在FillStyle属性所设置的方式下添填图形的颜色。FillStyle：决定了填充图形的样式BorderWidth：边线宽度。BorderStyle：边线类型。第九章VB图形设计9.2图形控件9.2.2Line控件Line控件的功能是在对象上画一条直线。Line控件常用的属性有：BorderWidth属性：调节窗体中直线的粗细。BorderStyle属性：设置直线类型，如实线、虚线或点划线等。该属性只有在BorderWidth值为1时有效。BorderColor属性：设置直线颜色。Visible属性：能根据程序的需要显示或隐藏直线。第九章VB图形设计9.3绘图方法9.3.1画点方法9.3.2画直线、矩形方法(Line)9.3.3画圆方法(Circle)9.3.4PaintPicture方法第九章VB图形设计9.3.1画点方法在VB中使用PSet画点。其语法格式如下：[对象.]Pset[Step](x,y)[,颜色]其中，参数(x,y)为所画点的坐标，关键字[Step]表示采用当前作图位置的相对值，采用背景颜色可清除某个位置上的点。第九章VB图形设计9.3.2画直线、矩形方法(Line)Line方法用于画直线或矩形，其语法格式如下：[对象.]Line[[Step](x1,y1)]-(x2,y2)[,颜色][,B[F]]其中：对象指示Line在何处产生结果，可以是窗体或图形框，缺省时为当前窗体。(x1,y1)为线段的起点坐标或矩形的左上角坐标，(x2,y2)为线段的终点坐标或矩形的右下角坐标。关键字Step表示采用当前作图位置的相对值。关键字B表示画矩形，关键字F表示用画矩形的颜色来填充矩形。如果F缺省，则矩形的填充由FillColor和FillStyle属性决定。第九章VB图形设计9.3.3画圆方法(Circle)Circle方法用于画圆、椭圆、圆弧或扇形，其语法格式如下：[对象.]Circle[[Step](x,y),半径[,颜色][,起始角][,终止角][,长短轴比率]]其中：(x,y)为圆心坐标，关键字Step表示采用当前作图位置的相对值。起始角和终止角用于控制画圆弧或扇形。当起始角和终止角的值在0~2π之间时画出的是圆弧，当起始角和终止角取值前加一负号时画出扇形，负号表示画圆心到圆弧的径向线。长短轴比率用于控制画出的圆还是椭圆，值为1时画出正圆第九章VB图形设计9.3.4PaintPicture方法PaintPicture方法用以在窗体（Form），图片框（PictureBox）或打印机（Printer）上绘制图形文件（.bmp、.wmf、.emf、.cur、.ico或.dib）的内容。语法格式：Object.PaintPicturepic,x1,y1,width1,height1,x2,y2,width2,height2说明：Pic：为图片对象，如图形框Picture等；x1，y1：目标图像位置；Width1，Height1：目标图像尺寸；X2，Y2：原图像的裁剪坐标；Width2，Height2：原图像的裁剪尺寸；第九章VB图形设计9.4与绘图有关的常用属性和事件9.4.1清除图形方法9.4.2线宽属性和线型属性9.4.3填充颜色属性和填充样式属性9.4.4自动重画属性9.4.5Paint事件第九章VB图形设计9.4.1清除图形方法对象中用Print和图形方法创建出的所有文本和图形，都可以用Cls方法来删除。同时，Cls方法还把绘图坐标恢复到原点（0，0）。语法格式：[object.]Cls功能：清除所给对象上用Print和Line、Circle、Pset等图形方法创建出的所有文本和图形。若没有指定object，则Cls方法默认清除当前窗体。第九章VB图形设计9.4.2线宽属性和线型属性使用Line或Circle方法画图时，所画图形的边框可通过指定窗体（form）或图片框（Picture）的DrawWidth属性和DrawStyle属性设置。1．DrawWidth属性：设置使用Line或Circle方法画图时的线宽。2．DrawStyle属性：设置使用Line或Circle方法画图时的线的形状，有0～6共7个可选值。参数值设置见下表。DrawStyle属性值效果DrawStyle属性值效果0Solid实线(缺省)4Dash-dot-dot(点点划线)1Dash(短划线)5Transparent（透明）2Dot（点线）6InsideSolid(内实线)3Dash-dot(点划线)第九章VB图形设计9.4.3填充颜色属性和填充样式属性通过指定窗体（form）或图片框（Picture）的FillColor属性及FillStyle属性可设置所画图形的填充颜色和效果。其中：1．填充颜色属性FillColor：决定在FillStyle属性所设置的方式下添填图形的颜色。2．填充样式属性FillStyle：决定了填充图形的样式。有八种可能的设置。其值及效果与控件的FillStyle完全相同。第九章VB图形设计9.4.4自动重画属性窗体的自动重画属性为AutoRedraw，可以保持图形的持久输出。若AutoRedraw设为false,不会自动重绘,当其它窗体覆盖本窗体后或者当把该窗体最小化后，窗体上绘制的内容在窗体重新显示时将消失，如果把它设为true，它会自动重绘,从而保持图形的存在。语法：object.AutoRedraw[=Boolean]说明：Object指窗体或图片框，省略时指当前窗体。值为True使Form对象或PictureBox控件的自动重绘有效。False（缺省值）使对象的自动重绘无效。使用下列图形方法，如：Circle、Cls、Line、Point、Print和Pset绘图时，该属性极为重要。利用这些方法，在改变对象大小或隐藏在另一个对象后又重新显示的情况下，设置AutoRedraw为True，将在Form或PictureBox控件中自动重绘输出。第九章VB图形设计9.4.5Paint事件Paint事件在窗体刚加载时就执行一次，当移动窗体、改变窗体大小，最大化，最小化，窗体被其他窗体遮住后再次执行。把图形方法局限在Paint事件内，能使这些方法按可预期的顺序来绘图。第九章VB图形设计