第8章图形操作

1、理解理解VB中坐标系的概念；中坐标系的概念；掌握用掌握用Line控件、控件、Shape控件画直线、矩形、圆、椭控件画直线、矩形、圆、椭圆的方法；圆的方法；掌握图片框、图象框的常用属性、常用方法、图片掌握图片框、图象框的常用属性、常用方法、图片的载入及应用；的载入及应用；掌握用掌握用Pset方法、方法、Line方法、方法、Circle方法画点、矩形方法画点、矩形、圆（弧）、椭圆的方法；、圆（弧）、椭圆的方法；本章要求：本章要求：本章重点：本章重点：本章难点：本章难点：容器控件的坐标系及用户自定义坐标系容器控件的坐标系及用户自定义坐标系VB中坐标系，绘图方法的使用中坐标系，绘图方法的使用第8章 图

2、形操作8.1 VB的坐标系统1. 坐标原点坐标原点与与坐标轴方向坐标轴方向 绘图区绘图区的宽度与高度由ScaleWidth属性和ScaleHeight属性确定。绘图区不包括不包括边框（边框线有一定的宽度），窗体的绘图区还要将标题栏标题栏和菜单栏菜单栏除外除外。 VB坐标系统坐标系统默认的默认的刻度刻度为为Twip(缇缇) 。1厘米约为567缇。 用户可用用户可用ScaleMode属性属性设置设置坐标系统的坐标系统的刻度单位刻度单位。2. 坐标刻度坐标刻度 使用ScaleX和ScaleY方法可以进行不同刻度值的换算。 语法格式为： 容器对象.ScaleX(宽度，源刻度，目标刻度) 容器对象.Sc

3、aleY(高度，源刻度，目标刻度)例如，将100毫米的宽度换算为以缇为单位的宽度。 Print Form1.ScaleX(100, vbMillimeters, vbTwips) 结果为：5669.2863. ScaleX方法方法和和ScaleY方法方法 注意：如果“源刻度”或“目标刻度”为vbCharacters（字符单位），则ScaleX和ScaleY方法的返回值不同；其他刻度之间的换算，两种方法的返回值相同。 另外，在自定义的坐标系统中，X轴与Y轴的长度单位也可以不一样。4. 自定义坐标系自定义坐标系(1) 使用使用Scale属性组属性组创建创建自定义坐标系自定义坐标系 用ScaleLe

4、ft属性属性和ScaleTop属性属性设置绘图区左上角的坐标值！ 用ScaleWidth属性属性和ScaleHeight属性属性设置坐标轴方向方向和度量单位度量单位！如果用户修改了这两个属性的值，并不不能改变绘图区的大小大小，而是要创建创建一个自定义的刻度单位刻度单位，同时将ScaleMode属性的值设置为vbUser(0) 将窗体的坐标系统的原点定义在其中心，将窗体的坐标系统的原点定义在其中心，X轴的正向向右，轴的正向向右，Y轴的正向向上，窗体高与宽分别为轴的正向向上，窗体高与宽分别为200和和300单位长度。单位长度。 (-150,100)(150,-100)自定义坐标系自定义坐标系示例示

5、例1Form1.ScaleLeft = -150Form1.ScaleTop = 100Form1.ScaleWidth = 300Form1.ScaleHeight = -200 定义定义高度为200个单位，负值负值表示要改变Y轴的方向! 左上角左上角(xLeft,yTop)右下角：右下角：(xRight,yBotton)对象对象.Scale(xLeft,yTop)-(xRight,yBottom) 例如，例如，Form1.Scale (-150,100) - (150, -100)将建立和上将建立和上例例一一样的坐标系。样的坐标系。 可在程序中使用可在程序中使用Scale方法改变坐标系统。

6、方法改变坐标系统。当当Scale方法方法不不带参数带参数时，取消时，取消用户定义的坐标系用户定义的坐标系，采用，采用缺省坐标系缺省坐标系。(2) 利用利用Scale方法方法创建创建自定义自定义坐标系坐标系 绘图区绘图区(-150,100)(150,-100)(-150,100)(150,-100)VB中与图形有关的控件有：中与图形有关的控件有： 图片框图片框（PictureBox）、）、图像框图像框（Image） 形状控件形状控件（Shape）、）、直线控件直线控件（Line）。）。 窗体窗体、图形框图形框和和图像框图像框可以显示来自可以显示来自图形文件图形文件的图形的图形 1 1位图位图(b

7、itmap)(bitmap)：位图通常以：位图通常以.bmp.bmp或或 .dib为文件扩展名。为文件扩展名。2 2图标图标(icon)(icon)：以：以.ico.ico为文件扩展名。为文件扩展名。3 3元文件元文件(metafile)(metafile)：元文件的类型有两种，分别是标准型元文件的类型有两种，分别是标准型（.wmf.wmf）和增强型（）和增强型（.emf.emf）。）。4 4JPEGJPEG文件：文件：JPEGJPEG是一种支持是一种支持 8 8 位和位和 24 24 位颜色的压缩位位颜色的压缩位图格式。它是图格式。它是 Internet Internet 上一种流行的文件格

8、式。上一种流行的文件格式。5GIF文件：文件：GIF是一种压缩位图格式。它可支持多达是一种压缩位图格式。它可支持多达 256 种的颜色，是种的颜色，是 Internet 上一种流行的文件格式。上一种流行的文件格式。 8.2 图形控件图形控件(1) Picture属性属性 在设计窗口，可以通过在设计窗口，可以通过属性窗口属性窗口为为Picture属性属性直接直接选定选定某某个个图形文件图形文件，也可以使用，也可以使用“剪贴板剪贴板”向图像框控件向图像框控件添加添加图形图形。 在在程序运行程序运行时时,用用LoadPicture()函数来函数来装入装入图形文件图形文件 Image1.Picture

9、=LoadPicture(D:Photodog.jpg) Image2.Picture=LoadPicture() 删除Image2中的图片 用用其它对象的其它对象的Picture属性属性 赋值赋值 Image2.Picture = Image1.Picture SavePicture Image1.Picture , D:Photodog3.bmp 用过程的方式调用SavePicture函数 8.2.1 图像框控件图像框控件 图像框图像框(Image)控件的控件的功能功能是是显示图片显示图片，可以是来自某个，可以是来自某个图形图形文件文件的图片，也可以是窗体中某个的图片，也可以是窗体中某个其

10、他控件其他控件中显示中显示的的图片图片。 1. 图像框的主要属性图像框的主要属性 当当Stretch属性设置为属性设置为True时，时， 图形可自动调整尺图形可自动调整尺寸以适应图像框的大小。设置为寸以适应图像框的大小。设置为False时，图像框可时，图像框可自动改变大小以适应其中的图形。自动改变大小以适应其中的图形。默认值默认值为为False 。(2) Stretch属性属性2. 图像框的常用事件图像框的常用事件 图像框控件能够响应Click事件和DblClick事件，可以做一些编程处理。 Image控件能够响应的事件比较少，也不能作为容器控件，所以占用资源较少，显示速度快。但其功能也比较简

11、单，如: 不能在其中绘制图形，也不不能能输出文字，如果要实现这些功能，就必须使用图片框(PictureBox)控件。例例8.3 图像框的图形操作示例。图像框的图形操作示例。Private Sub Command1_Click( ) Image2.Picture = Image1.PictureEnd SubPrivate Sub Command2_Click( ) Image2.Picture = LoadPicture(dogp2.jpg)End SubPrivate Sub Command3_Click( ) Image2.Picture = LoadPicture( )End Sub8.

12、2.2 图片框控件图片框控件 图片框图片框(PictureBox)控件主要用来显示图形，但还可以作为控件主要用来显示图形，但还可以作为其它控件的容器。在图片框中不仅能够显示用图形方法输出的其它控件的容器。在图片框中不仅能够显示用图形方法输出的图形，还能够显示用图形，还能够显示用Print方法输出的文本。方法输出的文本。1. 图片框的主要属性图片框的主要属性 Picture属性属性 使用方法与图像框的Picture属性相同。 (2) AutoSize属性属性 当AutoSize属性值设为True时，图片框能够自动调节大小以匹配图形的大小；若为False时，图片框大小保持不变，当图片太大时，超过图

13、片框范围的部分图形不予显示。 2. 图片框的常用事件图片框的常用事件 图片框控件图片框控件除了除了能够响应能够响应的的Click事件和事件和DblClick事件之外，事件之外，它还可以响应它还可以响应键盘键盘,拖动拖动,焦点焦点,ReSize,Paint,Change,Validate等等事件事件，使得它可以处理更多的情况，拥有更强大的功能。，使得它可以处理更多的情况，拥有更强大的功能。 3. 图片框的常用方法图片框的常用方法 Print方法方法(2) Cls方法方法(3) Circle、Line、Pset 、 Point方法方法 可以在PictureBox中画圆、线、点、获取某点颜色获取某点

14、颜色。例例8.4 图片框的图形操作示例图片框的图形操作示例Private Sub Command1_Click() Picture1.Picture = LoadPicture(qiet.jpg)End SubPrivate Sub Command2_Click() Picture1.CurrentX =1000:Picture1.CurrentY=100 Picture1.Print 企鹅头企鹅头End SubPrivate Sub Command3_Click() Picture1.ClsEnd SubPrivate Sub Command4_Click() SavePicture Pic

15、ture1.Picture, App.Path & 企鹅头企鹅头.jpgEnd Sub 直线控件直线控件可以用来在可以用来在窗体窗体、图片框图片框和和框架框架等等容器控件容器控件中中绘制绘制直线段直线段。Line控件控件不支持不支持任何事件任何事件，但可以，但可以改变改变线段的线段的位置位置、线型线型、宽度宽度和和颜色颜色。 8.2.3 直线控件直线控件LineLine控件的主要属性：控件的主要属性： (1) x1、y1和和x2、y2属性属性 这四个属性的值均为坐标值坐标值，用于设置或引用线段的起点起点（x1,y1）与终点终点（x2,y2）的坐标值。设置它们的值时要特别注意其容器控件的

16、坐标系和刻度单位。(2) BorderWidth属性属性 BorderWidth属性用于设置或引用线段的宽度，取值范围为18192，单位为像素像素。 BorderStyle属性用于设置或引用线段的线型线型，其取值范围为06，可提供七种直线样式，它们依次为：0：透明、1：实线(缺省值)、2：虚线、3：点线、4：点划线、5：双点划线、6：内收实线。(3) BorderStyle 属性属性 注意：只有当BorderWidth属性的值为1时，才能使直线具有具有上述BorderStyle各属性值规定的线型效果；如果 BorderWidth 属性的值大于 1，则无论BorderStyle 属性取何值，都只

17、能是只能是实线实线的线型效果（BorderStyle 属性的值不变）。(4) BorderColor属性属性 用于用于设置设置或或引用引用线段的线段的颜色颜色。 例例8.5 利用利用Line控件在窗体上画一个三角形控件在窗体上画一个三角形 Private Sub Form_Click() 移动顶点 Line1.X2 = Line2.X1 + 100 Line1.Y2 = Line2.Y1 - 100 Line1.BorderWidth = 3 Line2.X1 = Line1.X2 Line2.Y1 = Line1.Y2 Line2.BorderWidth = 5 Line3.BorderWi

18、dth = 7 Line3.BorderColor = vbRedEnd Sub(1) Shape属性属性 8.2.4 形状控件形状控件Shape (2) FillStyle属性与属性与FillColor属性属性 (3)其它属性其它属性 Shape控件控件也具有也具有BorderWidth、BorderStyle和和BorderColor属性，边线的宽度、样式和颜色。属性，边线的宽度、样式和颜色。例例8.6 利用利用Shape控件在窗体上画一个正方形。控件在窗体上画一个正方形。 单击命令按钮，可调整图形的几何形状、边线的宽度与颜单击命令按钮，可调整图形的几何形状、边线的宽度与颜色及填充图案与填

19、充颜色。色及填充图案与填充颜色。 Private Sub Command1_Click() Shape1.Shape=Int(Rnd()*6) Shape1.FillStyle=Int(Rnd()*8) Shape1.FillColor=QBColor(Int(1+Rnd*15) Shape1.BorderWidth = Shape1.Shape + 2 Shape1.BorderColor=QBColor(Int(1+Rnd*15)End Sub8.3 绘图方法8.3.1 与绘图方法有关的基本概念与绘图方法有关的基本概念 1. 坐标系与刻度单位坐标系与刻度单位2. CurrentX属性与属性

20、与CurrentY属性属性 CurrentX属性与CurrentY属性联合起来就是一个坐标点，用来保存容器对象的绘图区中的当前绘图点的位置位置。 3. 绝对坐标与相对坐标绝对坐标与相对坐标 绝对坐标的形式为(x,y) ；相对坐标相对坐标的形式为Step(x,y)，与相对坐标形式等价的绝对坐标为(CurrentX+x, CurrentY+y)。 4. DrawWidth属性与属性与DrawStyle属性属性 类似于Line控件的BorderWidth属性与BorderStyle属性。5. FillColor属性与属性与FillStyle属性属性 6. AutoRedraw属性属性 AutoRed

21、raw属性是一个逻辑值，用于设置或返回容器控件是否能自动重绘，其缺省值为False。将AutoRedraw属性设置为True时，应用程序将占用更多的内存空间。 8.3.2 Line方法方法画直线或矩形：画直线或矩形： 对象对象. Line Step(x1,y1)-Step(x2,y2),颜色颜色,BF其中：其中： 对象对象可以可以是窗体或图形框。是窗体或图形框。 (x1,y1)为线段的为线段的起点起点或或矩形的矩形的起始角起始角 (x2,y2)为线段的为线段的终点终点或或矩形的矩形的对角点对角点 Step：表示作图点的坐标采用表示作图点的坐标采用相对坐标相对坐标的形式。的形式。 颜色颜色为指定

22、画线的颜色，缺省取为指定画线的颜色，缺省取ForeColor B表示表示画矩形画矩形,BF表示表示用用画矩形的颜色画矩形的颜色来来填充填充矩形矩形。Line方法方法示例示例例例8.5Private Sub Form_Click() DrawWidth = 3 Line (100, 100)-Step(0, 1500) Line -Step(2500, 0) Line -(100, 100) Line (2800, 100)-Step(1400,1400),vbRed,BF Line (3200, 500)-Step(1100,1100),vbBlue,BFEnd SubPset方法用于画点，其

23、语法格式为：方法用于画点，其语法格式为： 对象对象. Pset Step (X,Y) ,颜色颜色8.3.3 Pset方法方法Private Sub Form_Load() Picture1.Scale (-400, 1.5)-(400, -1.5)End SubPrivate Sub cmdCos_Click() 余弦曲线 For i = -360 To 360 每隔1度打一个点 Picture1.PSet (i, Cos(i * 3.14159/180) Next iEnd SubPrivate Sub cmdSin_Click() 正弦曲线 For i = -360 To 360 Step

24、 10 隔10度打一个* Picture1.CurrentX = i Picture1.CurrentY = Sin(i *3.14159/180) Picture1.Print * NextEnd Sub Circle方法方法用于在指定对象上用于在指定对象上画圆画圆、椭圆椭圆、圆弧圆弧和和扇形扇形。语法格式：语法格式： 对象对象.Circle Step(x,y),半径半径,颜色颜色,起始角起始角,终止角终止角,纵横比纵横比 其中：其中： (x,y)为圆心坐标；为圆心坐标； 圆弧圆弧和和扇形扇形通过参数通过参数起始角起始角，终止角终止角控制控制; 当当起始角起始角、终止角终止角取值在取值在02

25、 时为时为圆弧圆弧; 当在当在起始角起始角、终止角终止角取值前取值前加加一一负号负号时，画出时，画出扇形扇形; 画弧线的画弧线的方向方向为：为：从从“起始角起始角”到到“终止角终止角”的的逆时针逆时针方方向。向。 椭圆椭圆通过通过纵横比纵横比控制，默认值为控制，默认值为1，画圆。，画圆。8.3.4 Circle方法方法Circle方法的使用例8.10用Circle方法画圆、椭圆、圆弧和扇形 Private Sub Form_Click() Const PI = 3.14159 Circle (700, 800), 500 画圆 Circle (1800, 800), 500, , , , 1.

26、5 画高椭圆 Circle (2800, 800), 500, , , , 0.5 画矮椭圆 Circle (4500, 1200), 1000, , PI/6, PI 画弧 Circle (4800, 1400), 800, , -PI / 3, -PI 画空心扇形 . FillColor = vbYellow 指定填充颜色 FillStyle = 0 Circle (6400,800),700,vbRed,-PI/5,-2*PI 画大扇形 FillColor = vbGreen Circle Step(200,-60),700,vbBlue,-2*PI,-PI/5 画小扇形End Sub可

27、否用可否用-0? PaintPicture方法方法用于在窗体、图片框或打印机上用于在窗体、图片框或打印机上绘绘制制图形图形，其语法，其语法格式格式为为：8.3.5 PaintPicturePaintPicture方法方法对象对象.PaintPicture 图形图形,x1,y1 ,目标宽度目标宽度,目标高度目标高度, x2,y2,源宽度源宽度,源高度源高度,位操作参数位操作参数 说明：说明： 图形图形：可以是：可以是其它对象的其它对象的Picture属性属性，也可以是一个由，也可以是一个由LoadPicture()函数函数装入的图形装入的图形。通过后面的参数，还可以对该。通过后面的参数，还可以对该图形图形(源源图形图形)进行进行翻转翻转、缩放缩放和和剪切剪切操作。操作。 x1,y1：指定：指定新图形新图形的位置坐标，相当于的位置坐标，相当于Left与与Top。 目标宽度目标宽度和和目标高度目标高度：指定：指定新图形新图形的的宽宽和和高高(缩放缩