新Visual Basic程序设计实用教程 教学课件 匡松 缪春池 VB第13章.pptVIP

VB程序设计与数据库应用 第十三章图形的设计与操作 【学习内容】 本章主要介绍在Visual Basic程序设计中图形和图像的基本操作，包括图形操作的基础、图形控件、常用的绘图方法以及使用图形控件来制作简单的动画，并通过多个例子来说明Visual Basic图形功能的实际应用。 13.1 图形操作基础 Windows是一个具有图形界面的操作系统，运行在Windows环境下的Visual Basic也提供了丰富的图形功能。在程序设计中，经常需要进行图形方面的处理。用户不仅可以通过图形控件进行绘图操作，还可以通过图形方法在窗体、图片框或打印机对象上输出文字和图形。图形操作的基础是计算机图形学，有关这方面的知识可参考相应资料。 13.1 图形操作基础 13.1.1 坐标系统 在Visual Basic程序设计中，每个对象都位于存放它的容器内。每一个图形操作（包括调整大小、移动和绘图），都要使用绘图区或容器的坐标系统。例如，在窗体内绘制控件，窗体就是容器；如果在框架或图片框里绘制控件时，框架或图片框就是容器。当移动容器时，容器内的对象也随着一起移动，而且与容器的相对位置保持不变。每一个容器都有一个坐标系统。坐标系统是一个二维网格，可定义在屏幕上、窗体中或其他容器中（如图片框或Printer对象）。使用窗体中的坐标，可定义网格上的位置， 13.1 图形操作基础 坐标系统包括坐标轴的方向、起点和坐标系统度量单位，这些都是可以改变的。Visual Basic中有两种方法定义坐标系。一种方法是通过设置对象的ScaleTop、ScaleLeft、ScaleWidth和ScaleHeigh 4项属性来实现。这些属性不仅可以用来设置坐标系统，还可以用于获取当前坐标系统的信息。 每个窗体和图片框都有几个刻度属性（ScaleLeft、ScaleTop、ScaleWidth、ScaleHeight和ScaleMode）。其中，ScaleLeft和ScaleTop属性用来控制容器左边和顶端的坐标，根据这两个属性值可形成坐标原点，所有对象的ScaleLeft和ScaleTop属性值默认为0。 例如：Form1.ScaleLeft = 200 ?Form1.ScaleTop = 1000 13.1 图形操作基础 例如，设置Form1的ScaleLeft和ScaleTop属性后，用以下语句使命令按钮Command1置于窗体Form1的最左端。 Command1.Left = 200 ScaleWidth和ScaleHeight属性用来确定对象内部水平方向和垂直方向上的单元数。 例如：Form1.ScaleWidth = 500 ?Form1.ScaleHeight = 1000 这些语句将设置Form1窗体内部宽度的1/500为水平单位；设置Form1窗体内部高度的1/1000为垂直单位。当改变窗体Form1的大小后，这些单位保持原状。 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所示。 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) 画直线 End Sub 13.1 图形操作基础 1．使用颜色常数或16进制颜色数 表13-3列出了Visual Basic中常用的颜色常数。在设计状态和运行时都可直接使用这些常数定义颜色，而无需声明。 13.1 图形操作基础 2．使用RGB函数 RGB函数通过红、绿、蓝3原色混合产生某种颜色，其语法格式为： 【格式】RGB（红，绿，蓝） 【说明】括号中的红、绿、蓝3原色可赋予从0～255中的数值，0表示亮度最低，而255表示亮度最高。例如，RGB（0, 0, 0）返回黑色，而RGB（255,