《Visual Basic程序设计实用教程 教学课件 ppt 作者 匡松 缪春池 VB第13章》由会员分享，可在线阅读，更多相关《Visual Basic程序设计实用教程 教学课件 ppt 作者 匡松 缪春池 VB第13章（38页珍藏版）》请在金锄头文库上搜索。
1、1,第十三章图形的设计与操作,【学习内容】 本章主要介绍在Visual Basic程序设计中图形和图像的基本操作，包括图形操作的基础、图形控件、常用的绘图方法以及使用图形控件来制作简单的动画，并通过多个例子来说明Visual Basic图形功能的实际应用。,2,13.1 图形操作基础,Windows是一个具有图形界面的操作系统，运行在Windows环境下的Visual Basic也提供了丰富的图形功能。在程序设计中，经常需要进行图形方面的处理。用户不仅可以通过图形控件进行绘图操作，还可以通过图形方法在窗体、图片框或打印机对象上输出文字和图形。图形操作的基础是计算机图形学，有关这方面的知识可参考
2、相应资料。,3,13.1 图形操作基础,13.1.1 坐标系统 在Visual Basic程序设计中，每个对象都位于存放它的容器内。每一个图形操作（包括调整大小、移动和绘图），都要使用绘图区或容器的坐标系统。例如，在窗体内绘制控件，窗体就是容器；如果在框架或图片框里绘制控件时，框架或图片框就是容器。当移动容器时，容器内的对象也随着一起移动，而且与容器的相对位置保持不变。每一个容器都有一个坐标系统。坐标系统是一个二维网格，可定义在屏幕上、窗体中或其他容器中（如图片框或Printer对象）。使用窗体中的坐标，可定义网格上的位置，,4,13.1 图形操作基础,坐标系统包括坐标轴的方向、起点和坐标系统
3、度量单位，这些都是可以改变的。Visual Basic中有两种方法定义坐标系。一种方法是通过设置对象的ScaleTop、ScaleLeft、ScaleWidth和ScaleHeigh 4项属性来实现。这些属性不仅可以用来设置坐标系统，还可以用于获取当前坐标系统的信息。 每个窗体和图片框都有几个刻度属性（ScaleLeft、ScaleTop、ScaleWidth、ScaleHeight和ScaleMode）。其中，ScaleLeft和ScaleTop属性用来控制容器左边和顶端的坐标，根据这两个属性值可形成坐标原点，所有对象的ScaleLeft和ScaleTop属性值默认为0。 例如：Form1.
4、ScaleLeft = 200 Form1.ScaleTop = 1000,5,13.1 图形操作基础,例如，设置Form1的ScaleLeft和ScaleTop属性后，用以下语句使命令按钮Command1置于窗体Form1的最左端。 Command1.Left = 200 ScaleWidth和ScaleHeight属性用来确定对象内部水平方向和垂直方向上的单元数。 例如：Form1.ScaleWidth = 500 Form1.ScaleHeight = 1000 这些语句将设置Form1窗体内部宽度的1/500为水平单位；设置Form1窗体内部高度的1/1000为垂直单位。当改变窗体Fo
5、rm1的大小后，这些单位保持原状。,6,13.1 图形操作基础,【例13-1】 编写程序，使用窗体的Activate事件和Click事件说明用Scale方法改变坐标系统后产生的影响。 Activate事件的代码如下： Private Sub Form_Activate() Cls Form1.Caption = “默认坐标系“ Form1.Scale 采用缺省坐标系 Line (0, 0)-(Form1.Width, Form1.Height/2) 画直线 End Sub 在窗体的Click事件过程中，采用用户自定义坐标系在窗体上画同样一条直线，运行后如图13-3所示。,7,13.1 图形操作
6、基础,Click事件的代码如下： Private Sub Form_Click() Cls Form1.Caption = “用户定义坐标系“ Form1.Scale (0, Form1.Height)-(Form1.Width, 0) 定义用户坐标系 Line (0, 0)-(Form1.Width, Form1.Height / 2) 画直线 End Sub,8,13.1 图形操作基础,1使用颜色常数或16进制颜色数 表13-3列出了Visual Basic中常用的颜色常数。在设计状态和运行时都可直接使用这些常数定义颜色，而无需声明。,9,13.1 图形操作基础,2使用RGB函数 RGB函
7、数通过红、绿、蓝3原色混合产生某种颜色，其语法格式为： 【格式】RGB（红，绿，蓝） 【说明】括号中的红、绿、蓝3原色可赋予从0255中的数值，0表示亮度最低，而255表示亮度最高。例如，RGB（0, 0, 0）返回黑色，而RGB（255, 255, 255）返回白色。 每一种可视的颜色，都可由这3种主要颜色组合产生。例如： 设定背景为绿色。 Form1.BackColor = RGB(0, 128, 0) 设定背景为黄色。 Form2.BackColor = RGB(255, 255, 0) 在画布上描绘深蓝色的点。 PSet (100, 100), RGB(0, 0, 64),10,13.
8、1 图形操作基础,3使用QBColor函数 QBColor函数采用Quick Basic所使用的16种颜色，其语法格式为： 【格式】QBColor（颜色码） 【说明】 颜色码使用015之间的整数，每个颜色码代表一种颜色，,11,13.1 图形操作基础,Click事件的代码如下： Private Sub Form_Click() Cls Form1.Caption = “用户定义坐标系“ Form1.Scale (0, Form1.Height)-(Form1.Width, 0) 定义用户坐标系 Line (0, 0)-(Form1.Width, Form1.Height / 2) 画直线 En
9、d Sub,12,13.2 图形控件的使用,【Windows是图形用户界面，在应用程序的界面上显示图形图像的方法十分重要。Visual Basic提供4个控件来实现与图形有关的操作，它们是图片框PictureBox控件、图像框Image控件、形状Shape控件和直线Line控件。 使用Image、Shape、Line等图形控件创建图形所用的代码比图形方法用的要少。例如，在窗体上放置一个圆，既可用Circle方法，也可用形状控件。Circle方法要求在运行时用代码创建圆，而用形状控件创建圆只需在设计时简单地把它拖到窗体上，并设置特定的属性 即可。,13,13.2.1 直线控件,支线控件是一种图形
10、控件，又被称为Line控件。它能够在窗体上画出简单的线条如水平线、垂直线或者对角线等，并且通过修改Line控件的属性，可以改变线条的粗细、线型和颜色等。Line控件重要的属性有BorderStyle属性和BorderWidth属性。其中，BorderStyle属性用来确定设置直线边框类型，也可用来设置形状控件的边框类型。BorderWidth属性用来确定直线的边框宽度，也可用来设置形状控件的边框宽度，缺省值为1。,14,13.2.2 形状控件,Shape控件是一种图形控件，又被称为形状控件。它能够在窗体上绘制出矩形、正方形、椭圆、圆形、圆角矩形、圆角正方形及实心图形等图形，并且通过修改设置形状
11、控件的属性，还可以改变形状的色彩与填充图案等。 Shape控件的属性有Shape属性、BorderStyle属性、BorderWidth属性、FillStyle属性和FillColor属性。其中，Shape属性用来确定需要绘制的几何形状。,15,13.2.2 形状控件,【例13-2】 通过改变Shape控件的Shape和FillStyle属性来指定Shape控件的6种形状和不同的填充图案。程序运行结果如图13-5所示。 代码如下： Private Sub Form_Activate() Dim i As Integer Shape1(0).Shape = 0 设置控件数组首元素的形状 Shap
12、e1(0).FillStyle = 2 设置控件数组首元素的填充图案 依次装入Shape控件数组中其他元素，并设置其形状和图案 For i = 1 To 5 Load Shape1(i) Shape1(i).Left = Shape1(i - 1).Left + 750 Shape1(i).Shape = i Shape1(i).FillStyle = i + 2 Shape1(i).Visible = True Next i End Sub,16,13.3 常用绘图方法,13.3.1 Line方法 【格式】对象. Line (X1,Y1)(X2,Y2),Color ,B F 【功能】用于绘制
13、直线或矩形。,17,12.3 随机文件的访问,在应用程序中创作图形效果，不仅可在设计时使用前述的几种图形控件，而且还可在运行时通过图形方法创建。 图形方法提供了一些图形控件无法做到的可视效果。例如，使用图形方法能创建圆弧或画单个像素。用这些图形方法创建出的图形显示在窗体上，位于所有其他控件之下。因此若要创建出现在应用程序中其他事物之下的图形时，这种方法就很方便。 用图形方法创建图形是在代码中进行的，必须运行应用程序才能看到图形方法的结果。对于创建简单界面来说，图形方法不能代替图形控件的作用。 Visual Basic中运行时常用的绘图方法有Line方法、Circle方法、Pset方法和Poin
14、t方法。,18,13.3.1 Line方法,【格式】Open 文件名 For Random Access 存取类型 As #文件号 Len=记录长度 【说明】For Random表示以随机方式打开文件（可省略）。存取类型可以是Read（只读）、Write（只写）或Read Write（读写）。文件以随机访问模式打开后，可以同时进行读出和写入操作。在Open语句中要指明记录的长度，记录长度的默认值是128个字节。,19,13.3.1 Line方法,【例13-3】 使用Line方法在窗体上绘制矩形，将窗体一分为三。程序运行后，单击窗体，结果如图13-6所示。 代码如下： Private Sub F
15、orm_Click() Dim LeftColor, MidColor, Msg, RightColor 声明变量。 AutoRedraw = -1 打开AutoRedraw。 Height = 2 * 1440 将高度设置为 2 英寸。 Width = 3 * 1440 将宽度设置为 3 英寸。 BackColor = vbBlue 将背景设置为蓝色。 ForeColor = vbRed 将前景设置为红色。 Line (0, 0)-(Width/3, Height), , BF 红框。 ForeColor = vbWhite 将前景设置为白色。 Line (Width/3, 0)-(Widt
16、h/3) * 2, Height), , BF End Sub,20,13.3.2 Circle方法,【格式】对象. Circle(X, Y), Radius, Color, Start, End, Aspect 【功能】用于画出圆形、椭圆形、弧线、扇形等各种形状。使用变化的Circle方法，可画出多种曲线。 【说明】“对象”指要绘制圆形或弧线等的窗体或图片框，默认为当前窗体；（X，Y）是圆、椭圆或弧的圆心坐标，Radius是半径，必须输入这两个参数；Color是圆的轮廓颜色；Start与End是弧的起点与终点位置，范围是 22；Aspect是圆的纵横尺寸比，默认值是1，即圆。,21,13.3.3 Pset方法,【格式】对象. Pset(X, Y), Color 【功能】用于在窗体、图片框或打印机的指定位置上绘 制点。 【说明】（X, Y）是点的坐标，Color
