《图形程序设计》ppt课件

1、 第第1111章章 图形程序设计图形程序设计11.2 11.2 坐标系统坐标系统11.3 11.3 绘图属性绘图属性11.4 11.4 图形方法图形方法11.1 11.1 图形根底图形根底重点：重点：1.1.坐标系统的建立坐标系统的建立 2.2.绘图属性绘图属性 3.3.图形方法图形方法 11.1.1 矢量图形矢量图形矢量图形以数学的矢量方式来记录图形内容。它的内容以线条与色块为矢量图形以数学的矢量方式来记录图形内容。它的内容以线条与色块为主。主。矢量图形文件最常用的类型有两种：矢量图形文件最常用的类型有两种：分别是规范型分别是规范型.wmf和加强型和加强型.emf。11.1.2 位图图形位图

2、图形位图式图象是由许多点组成的，这些点称为像素，当许许多多不同颜色的位图式图象是由许多点组成的，这些点称为像素，当许许多多不同颜色的点组合在一同便构成了一幅完好的图象。位图图形文件最常用的类型有点组合在一同便构成了一幅完好的图象。位图图形文件最常用的类型有位图文件位图文件(bitmap)：位图通常以：位图通常以.bmp或或 .dib为文件扩展名。为文件扩展名。图标文件图标文件(icon)：以：以.ico为文件扩展名。为文件扩展名。JPEG文件：文件：JPEG是一种支持是一种支持 8 位和位和 24 位颜色的紧缩位图格式。它是位颜色的紧缩位图格式。它是 Internet 上一种流行的文件格式。以

3、上一种流行的文件格式。以.jpg为文件扩展名。为文件扩展名。GIF文件：文件：GIF是一种紧缩位图格式。它可支持多达是一种紧缩位图格式。它可支持多达 256 种的颜色，是种的颜色，是 Internet 上一种流行的文件格式。以上一种流行的文件格式。以.gif为文件扩展名。为文件扩展名。 在在VB运用程序的设计过程中，图形处置的内容根本包括：在运用程序中插运用程序的设计过程中，图形处置的内容根本包括：在运用程序中插入图片、运用入图片、运用VB图形控件创建图形和运用图形控件创建图形和运用VB图形方法绘制图形。图形方法绘制图形。11.1 11.1 图形根底图形根底 11.2.1 VB的缺省坐标系统的

4、缺省坐标系统 在在VB中，用户界面上凡是可以作为容器的控件对象，都带有一个由中，用户界面上凡是可以作为容器的控件对象，都带有一个由系统为其设定的缺省坐标系统，例如窗体上的缺省坐标系统，定系统为其设定的缺省坐标系统，例如窗体上的缺省坐标系统，定义网格上的位置：义网格上的位置：(x, y)，x 值是沿值是沿 x 轴点的位置，最左端是缺省位置轴点的位置，最左端是缺省位置 0。Y 值是沿值是沿 y 轴点的位置，最上端是缺省位置轴点的位置，最上端是缺省位置 0。也就是说：坐标系的原点。也就是说：坐标系的原点是在窗体的作上角其实，任何容器的缺省坐标系统，都是这样的类型。是在窗体的作上角其实，任何容器的缺省

5、坐标系统，都是这样的类型。该坐标系统的图示在图该坐标系统的图示在图 11-1中。中。O(0,0)X轴Y轴坐标原点11.2 11.2 坐标系统坐标系统 11.2.2 建立本人的坐标系统建立本人的坐标系统一改动坐标轴刻度一改动坐标轴刻度 1.经过改动控件对象的经过改动控件对象的ScaleMode属性值属性值 。 对象的对象的ScaleMode属性的取值及描画如下表所示：属性的取值及描画如下表所示： 0用户定义。用户定义。 1缇。这是缺省刻度。缇。这是缺省刻度。1，440 缇等于一英寸缇等于一英寸 2磅。磅。72 磅等于一英寸磅等于一英寸 3像素。像素是监视器或打印机分辨率的最小单位。每英寸像素。像

6、素是监视器或打印机分辨率的最小单位。每英寸里像素的数目由设备的分辨率决议里像素的数目由设备的分辨率决议 4字符。打印时，一个字符有字符。打印时，一个字符有 1/6 英寸高、英寸高、1/12 英寸宽英寸宽 5英寸英寸 6毫米毫米 7厘米厘米2.运用ScaleTop、ScaleLeft 、ScaleWidth以及ScaleHeight属性 (x1,y1)(x2,y2)例如： Form1.Scale(-16，16)-(16，-16)可建立和前页一样的坐标系。二重新定义新的坐标系统二重新定义新的坐标系统 一个更有效的改动坐标系统的途径，是运用一个更有效的改动坐标系统的途径，是运用 Scale Scal

7、e 方法。方法。Scale Scale 方法的语法格式如下：方法的语法格式如下： 对象名对象名. Scale (x1. Scale (x1，y1)y1)x2x2，y2y2 1.CurrentX、CurrentY当前坐标属性当前坐标属性 窗体或图形框的窗体或图形框的CurrentX、CurrentY属性属性给出在绘图时的当前坐标，给出在绘图时的当前坐标，CurrentX，CurrentY确定了下一次打印或绘图的程度确定了下一次打印或绘图的程度及垂直坐标。及垂直坐标。 11.3 11.3 绘图属性绘图属性 2.FillStyle 2.FillStyle 属性属性 FillStyle FillSty

8、le 属性的提供了假设干涉定义的填充款式图案，其中属性的提供了假设干涉定义的填充款式图案，其中包括：实线、透明、程度线、垂直线、左上右下对角线、左下右上对包括：实线、透明、程度线、垂直线、左上右下对角线、左下右上对角线、十字线和对角十字线。下表给出了角线、十字线和对角十字线。下表给出了FillStyle FillStyle 属性的取值、意属性的取值、意义描画以及详细的填充样例：义描画以及详细的填充样例： FillStyle FillStyle 属性值属性值 描画描画 填充款式填充款式 3.FillColor 3.FillColor 属性属性 FillColor FillColor 属性用于设置

9、封锁图形内部的填充颜色。属性用于设置封锁图形内部的填充颜色。设计时，可以经过以下颜色函数指定颜色。设计时，可以经过以下颜色函数指定颜色。RGB(RGB(红红, ,绿绿, ,蓝蓝) )函数函数, ,红、绿、蓝三基色运用红、绿、蓝三基色运用0 0255255之间的之间的整数。整数。例如：例如：RGB(0,0,0)RGB(0,0,0)为黑色为黑色 RGB(255, 255, 255)RGB(255, 255, 255)为白色为白色随机颜色：随机颜色：r=int(rndr=int(rnd* *256)256) g=int(rnd g=int(rnd* *256)256) b=int(rnd b=int

10、(rnd* *256)256) RGB(r RGB(r，g, b)g, b)2. QBColor(2. QBColor(颜色码颜色码),),颜色码运用颜色码运用0 01515之间的整数。之间的整数。随机颜色：随机颜色：QBColorQBColorInt(RndInt(Rnd* *16)16) 4.DrawStyle 属性属性窗体或图形框的窗体或图形框的DrawStyle 属性用于设置在其上面画线的款式，该属性属性用于设置在其上面画线的款式，该属性提供提供7种直线款式如下表所示：种直线款式如下表所示：DrawStyle 属性值属性值 描画描画 线段款式线段款式 5.DrawWidth 属性属性窗

11、体或图形框的窗体或图形框的DrawWidth 属性用于设置在其上面画线的宽度或画点属性用于设置在其上面画线的宽度或画点的大小，的大小，DrawWidth 属性所设置的线宽宽度以象素为单位，最小值为属性所设置的线宽宽度以象素为单位，最小值为1。 11.4.1 Line方法方法 Line方法用于在窗体或图形框上绘制直线或矩形，其语法格方法用于在窗体或图形框上绘制直线或矩形，其语法格式为：式为：对象名对象名. Line Step (x1,y1)(x2,y2),颜色颜色,BF其中：对象即为窗体或图形框。其中：对象即为窗体或图形框。 (x1,y1) ，(x2,y2)为线段的起终点坐标或矩形的左上角右下坐

12、标。为线段的起终点坐标或矩形的左上角右下坐标。颜色为可选参数，指定画线的颜色，缺省取对象的前景颜色，颜色为可选参数，指定画线的颜色，缺省取对象的前景颜色，即即ForeColor属性值。属性值。 B表示画矩形，表示画矩形，F表示用画矩形的颜色来填充矩形。表示用画矩形的颜色来填充矩形。 关键字关键字Step表示采用当前作图位置的相对位移量，即从当前表示采用当前作图位置的相对位移量，即从当前坐标挪动相应的步长后所得的点为画线起点。坐标挪动相应的步长后所得的点为画线起点。11.4 11.4 图形方法图形方法 例11-5运用Line方法绘制矩形。 在本例题中，首先在用户界面设计窗口设置窗体的高度Heig

13、ht属性为3400，宽度Width属性为2750，背景颜色BackColor属性为白色。编写如下的窗体单击事件程序代码：Private Sub Form_Click()Line (20, 40)-(1500, 2000), , BLine (200, 400)-Step(2000, 2000),vbRed, BF End Sub本程序运转结果如以下图。 11.4.2 Circle方法方法 Circle方法用于在窗体或图形框上画圆、椭圆、圆弧和扇方法用于在窗体或图形框上画圆、椭圆、圆弧和扇形。其语法格式为：形。其语法格式为：对象名对象名. Circle Step (x,y),半径半径,颜色颜色,

14、起始角起始角,终止角终止角,长短轴比率长短轴比率其中：其中：(x,y)为圆心坐标，为圆心坐标，Step表示采用当前作图位置的相对值；表示采用当前作图位置的相对值；参数起始角、终止角用于设置绘制圆弧；当在起始角、终止参数起始角、终止角用于设置绘制圆弧；当在起始角、终止角取值前加一负号时，表示画圆心到圆弧的径向线，即绘制扇角取值前加一负号时，表示画圆心到圆弧的径向线，即绘制扇形；参数长短轴比率控制绘制椭圆时横轴与纵轴的比例关系，形；参数长短轴比率控制绘制椭圆时横轴与纵轴的比例关系，其默许值为其默许值为1，即为画圆。，即为画圆。 例11-6 运用Circle方法的程序。直接编写窗体单击事件程序代码如

15、下： Private Sub Form_Click()Const PI = 3.1415926Form1.Scale (0, 0)-(60, 40)Form1.Circle (10, 10), 8 绘制圆Form1.Circle (35, 15), 10, , PI / 2, PI 绘制圆弧Form1.FillStyle = 0 设置填充款式为实填充Form1.FillColor = vbRed 设置填充颜色为红色Form1.Circle (50, 15), 10, , -PI / 6, -PI * 5 / 6 绘制具有填充效果的扇形Form1.FillStyle = 1 设置填充款式为虚填充

16、Form1.Circle (15, 30), 12, , , , 0.3 绘制X-长轴椭圆Form1.Circle (45, 30), 8, , , , 3 绘制X-短轴椭圆End Sub 该程序运转结果如以下图： 11.4.3 Pset方法方法Pset方法用于在窗体或图形框上画点，其语法格式如下：方法用于在窗体或图形框上画点，其语法格式如下： 对象名对象名.Pset Step (X，Y) ，颜色，颜色例例11-8 运用运用Pset方法在窗体上的恣意位置画恣意颜色的、大小为方法在窗体上的恣意位置画恣意颜色的、大小为110之间恣意之间恣意值的点。值的点。直接编写窗体单击事件如下：直接编写窗体单击

17、事件如下：Private Sub Form_Click()Dim i As Integer, x As Double, y As DoubleRandomizeFor i = 1 To 100 Form1.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255) x = Rnd * Form1.ScaleWidth y = Rnd * Form1.ScaleHeight Form1.DrawWidth = Int(1 + Rnd * 30) PSet (x, y)Next i End Sub 例：重新定义窗体的坐标系为(-7, 7)-(7, -7)。在窗体上绘制如图2所示图形，其中直线的颜色是随机的，直线的一端为坐标(0,0)，另一端坐标用阿基米德方程计算：x=i*cos(i) , y=i*sin(i)i=02，步长为0.1。 Private Sub Command3_Click()Scale (-7, 7)-(7, -7) For i = 0 To 2 * 3.14 Step 0.1 r = Int(Rnd * 256) g =