第9章 VB图形操作

掌握建立图形坐标系统的方法;

掌握VisualBasic的图形控件和图形方法及其应用;

掌握使用绘图方法绘制简单的二维几何图形。本章要求：第9章图形操作本章重点：本章难点：容器控件的坐标，及用户自定义坐标系VB中坐标系，绘图方法的使用9.1.2坐标系统1.VB坐标系统每个容器都有一个坐标系，构成一个坐标系，需要三个要素：坐标原点、坐标度量单位、坐标轴的长度与方向。坐标度量单位由容器对象的ScaleMode属性决定。缺省时为Twip。每英寸1440个Twip，20个Twip为一磅。(xLeft,yTop)(xRight,yBotton)

[对象.]Scale[(xLeft,yTop)-(xRight,yBottom)]对象的左上角坐标值对象的右下角坐标值

例如，Form1.Scale(-150,100)-(150,-100)将建立和例8.2一样的坐标系。

可在程序中使用Scale方法改变坐标系统。当Scale方法不带参数时，取消用户定义的坐标系，采用缺省坐标系。9.1.2坐标系统可利用Scale方法设置用户坐标系，语法如下：2.自定义坐标系统ScaleMode属性设置坐标系统的刻度单位。例9.2

在Form_Paint

事件中定义窗体的坐标系。9.1.2坐标系统9.2绘图属性9.2.1CurrentX、CurrentY（当前坐标）属性

CurrentX，CurrentY属性给出窗体或图形框或打印机在绘图时的当前坐标。这两个属性在设计阶段不能使用。使用格式：object.CurrentX[=x]object.CurrentY[=y]

注意：当使用某些图形方法后，对象的CurrentX和CurrentY的设置值将发生变化，其具体的改变见下表9.2绘图属性例9.3利用CurrentX，CurrentY属性在窗体上随机打印100个“★”。9.2.2线宽与线型

1．设置线宽——DrawWidth属性

窗体、图形框或打印机的DrawWidth属性给出这些对象上所画线的宽度或点的大小。使用格式：[Object.]DrawWidth[=Size]其中：Object为对象表达式，可以是窗体、图片框和打印机对象。Size为数值表达式，其范围从

1到

32767。该值以像素为单位表示线宽。缺省值为

1，即一个像素宽。9.2绘图属性

窗体或图形框或打印机的DrawStyle属性给出这些对象上所画线的形状。其设置值及含意见Pg.212图9.5。2.设置线型——DrawStyle属性9.2绘图属性

例9.4用DrawStyle属性在窗体上画出不同的线型。9.2绘图属性9.2.3图形的填充和色彩

（1）填充方式——FillStyle属性

下图是形状控件的FillStyle属性设置为0~7时的填充效果

说明：（1）FillStyle为0是实填充，1为透明方式。填充图案的颜色由FillColor属性来决定。（2）对于窗体和图片框对象，FillStyle属性设置后，并不能看到其填充效果，而只能在使用Circle和

Line图形方法生成的圆和方框时，在圆和方框中显示其填充效果。1．填充（2）FillColor属性用于设置填充形状的颜色，缺省情况下，FillColor设置为

0（黑色）。

2、RGB函数

RGB函数可返回一个Long整数，用来表示一个RGB颜色值。其使用格式如下：

RGB(red,green,blue)

说明：red,green,blue(红、绿、蓝)3种颜色，从0～255之间的一个亮度值(0表示亮度最低，而255表示亮度最高)。例如：Form1.BackColor=RGB(255,0,0)'设定背景为红色9.2.3图形的填充和色彩

9.2.3图形的填充和色彩

3、QBColor函数

QBColor函数可返回一个Long值，用来表示所对应颜色值的RGB颜色码。其使用格式如下：

QBColor(color)

说明：color参数是一个界于0～15的整型数，分别代表16种颜色，如P213表9.1所示。4、系统定义的颜色常数在VB系统中已经预先定义了常用颜色的颜色常数，如常数vbRed就代表红色，vbGreen代表绿色等等。例如，要将窗体的背景色设为红色。则可使用如下语句：Form1.BackColor=vbRed例9.5颜色的渐变过程。画直线或矩形：

[对象.]Line[[Step](x1,y1)]－[Step](x2,y2)[,颜色][,B[F]]其中：对象可以是窗体或图形框。

(x1,y1)，(x2,y2)为线段的起终点坐标或矩形的左上角右下坐标。颜色为可选参数，指定画线的颜色，缺省取对象的前景颜色，即ForeColorB表示画矩形，F表示用画矩形的颜色来填充矩形。关键字Step表示采用当前作图位置的相对值，即从当前坐标移动相应的步长后所得的点为画线起点。9.3.1Line方法9.3图形方法

例如：画一条从(250,300)到(400,500)点的直线Line(250,300)-(400,500)从当前位置（由CurrentX，CurrentY决定）画到(400,500)Line-(400,500)

出发点是(150,250)，终点是向X轴正向走150，向Y轴正向走50的点Line(150,250)-Step(150,50)等同于：Line(150,250)-(300,300)画一个左上角在(20,40)，右下角在(150,200)的矩形，注意在color参数省略时，逗号并不省略。Line(20,40)-(150,200),,B用红色从(20,40)到(70,110)画一个实心的矩形。

Line(20,40)-Step(50,70),RGB(255,0,0),BF9.3.1Line方法例9.6用Line方法绘制函数f(x)=x2在区间[0.3,1]之间积分面积图。9.3.1Line方法9.3.2Circle方法

Circle方法用于在指定对象上画圆、椭圆、圆弧和扇形。其语法格式：

[对象.]Circle[[Step](x,y),半径[,颜色][,起始角][,终止角][,长短轴比率]]]

其中：(x,y)为圆心坐标，关键字Step表示采用当前作图位置的相对值；圆弧和扇形通过参数起始角，终止角控制。当起始角、终止角取值在0—2时为圆弧，当在起始角、终止角取值前加一负号时，画出扇形，负号表示画圆心到圆弧的径向线；椭圆通过长短轴比率控制，默认值为1，画圆。Circle方法的使用9.3.2Circle方法

例9.7用Circle方法在窗体上绘制由圆环构成的艺术图案。算法：等分半径为r的圆周为n份，以等分点为圆心，半径r1绘制n个圆。9.3.2Circle方法

9.3.3Pset方法Pset方法用于画点，其语法格式如下：

[对象.]Pset[Step](X，Y)[，颜色]

说明：参数(X，Y)为所画点的坐标，关键字Step表示采用当前作图位置的相对值。省略{颜色}是采用前景色绘点，如果使用背景颜色可清除某个位置上的点。利用Pset方法可画任意曲线。9.3图形方法例9.8例用Pset方法绘制方程组9.3图形方法的曲线，并求解方程，结果如图所示。9.3.4Point方法

格式：[Object.]Point(x,y)

功能：Point方法用于获取对象上指定位置的点的RGB颜色值，即读一个像素。说明：式中Object为对象表达式，可以是窗体、图片框和打印机对象，如果缺省的话，则当前窗体成为作用对象。9.3图形方法例9.9用Point方法获取一个区域的信息并使用Pset方法进行仿真。9.4综合应用

分析：行星运动的椭圆方程为：

x=x0+rx*cos(alfa)y=y0+ry*sin(alfa)其中，

x0、y0为椭圆圆心坐标，rx为水平半径，ry为垂直半径，alfa为圆心角。例9.11

设置一个模拟行星绕太阳运动的程序。简单动画设计

在程序设计中，动画就是有规律地改变对象的形状、尺寸或位置，形成的动态效果。动画的速度通常使用时钟控件来控制。

1．VisualBasic缺省的坐标系统的原点（0，0）始终位于各个容器对象的左上角，X轴的正方向水平向右，Y轴的正方向垂直向下。坐标系统的量度单位由ScaleMode属性决定。VisualBasic允许用户自定义坐标系：（1）使用Scale方法Scale方法是建立用户坐标系最简便的方法。格式：[Object.]Scale[(左上角坐标x1,y1)-(右下角坐标x2,y2)]本章小结本章小结2.VisualBasic提供的四个图形控件见下表所示图形控件图形控件属性要点Image（图像控件）图像控件的Stretch属性值为True时，加载到控件中的图像可以自动调整尺寸以适应图像控件的大小。PictureBox（图片框）图片框的AutoSize属性值为True时，能使图片框按装载的图片大小重新调整尺寸，即图片框的大小与图片匹配。可作为容器使用。Shape（形状控件）形状控件的Shape属性确定六种形状用来绘制几何图形。Line（直线控件）主要属性X1、Y1、X2、Y2的值确定了直线显示的起止位置本章小结3．绘图方法（又称图形方法）见下表所示绘图方法方法使用格式功能Pset[Object.]P