第11章图形处理

第11章 图形处理
—《Visual Basic 程序设计教程》
2014年4月15日
教学目标
• 理解坐标系及其相关概念，掌握自定义坐标系的方法。
• 学会使用相关属性与方法绘制简单图形。
• 掌握通过代码编程实现图像的选取、旋转、缩放等简单 处理。
• 综合运用图形处理的控件和代码，进行简单的综合实例 编程。
11.1 图形处理基础
1.系统坐标系 用户若不直接定义位置的测量单位（即刻度）， 则可使用标准刻度，标准刻度可通过容器对象的 ScaleMode属性决定。
11.1 图形处理基础
1.系统坐标系 在Visual Basic的坐标系统中，使用如下的默认规 则： ① 当移动控件或调整控件大小时，使用控件容器的坐 标系统。譬如，直接在窗体上创建的控件，窗体是容 器；在框架或图片框中创建的控件，框架或图片框是 容器。 ② 所有图形和Print方法，都使用容器的坐标系统。 ③ 调整窗体大小或移动窗体的语句，用缇(twip)为度 量单位来表示窗体的位置和尺寸（1440twips为1 inch）。在代码中改变窗体大小和位置时，应检查 Height和Width属性值，确保其在屏幕上大小合适。
11.3 绘图方法
1.常用绘图方法
⑥ Scale方法：采用容器对象的Scale方法，可以非常方便地重新定义 该容器的坐标系。 形式：[Object.] Scale [左上角坐标-右上角坐标] 功能：设置新的坐标系的左上角和右下角，而坐标系的原点则为由这 两个对角坐标决定的区域的中心。如果Scale后面缺省参数，表示取消
11.2 绘图属性
2. Shape控件的Shape属性 【例11-2】在一个新建窗体中加入6个Shape控件，并 分别设置其Shape属性值为上表中的预定义值0-5或 Visual Basic常数。
图11-1 Shape控件的Shape属性
11.2 绘图属性
2. Shape控件的FillStyle属性 在 【例11-2】 中，增加2个Shape控件，依次设置每 个Shape控件的FillStyle为表11-4中的不同值，填充效 果如图11-2所示。
11.2 绘图属性
1. Shape控件的Shape属性 Shape控件是Visual Basic的标准绘图控件，可在 窗体、框架、图片框等容器中创建以下预定义形状： 矩形、正方形； 圆形、椭圆形； 圆角矩形、圆角正方形。 每一种预定形状都可以设置形状样式、填充颜色、 填充样式、边框颜色、边框样式等属性，以获得不同 的外观。
11.1 图形处理基础
2.自定义坐标系 有时，用户需要将坐标的原点设置在其它位置 （如容器中央），或改变坐标轴的正负方向，此时便 需进行自定义坐标系。有关的属性有：ScaleWidth、 ScaleHeight、ScaleTop、ScaleLeft等。
11.1 图形处理基础
2.自定义坐标系 坐标系建立后，容器内的对象的定位由Left、Top、 Width和Height这四项属性决定。其中，Left和Top决 定该对象左上角在容器中的坐标位置，Width和Height 则决定该对象的大小，它们的度量单位总是与容器的 度量单位相同。 【例11-1】用户自定义坐标系。下面的代码可实现将 窗体大小设置为屏幕的70%，坐标原点设置在窗体 Form1的中央，且X轴的向右及Y轴的向下为正向。
图11-2 Shape控件的FillStyle属性
11.2 绘图属性
3. Shape控件的BorderStyle属性 【例11-3】在界面上放6个Shape控件，在【例11-2】 的基础上，依次设置BorderStyle为值1-6，效果如图 11-3所示。
图11-3 Shape控件的BorderStyle属性
11.4 综合应用
程序功能解析 ② 旋转功能的实现 VB中是通过画点的方式， 将一个图片框中的位图像素点 旋转一个角度后再画出的方法来实现图像的旋转 功能的，当源图中所有的像素均处理完毕后，也 就完成了整个图像的旋转。程序中除了应用Pset 画点方法和Point方法获取像素点颜色外，还需 运用数学知识计算旋转后新坐标的计算。 设原坐标为(x, y)，旋转某一角度θ后的新坐标为 (nx, ny)，则新坐标的计算公式如下： nx=x*cos(θ) – y * sin(θ) ny=y*cos(θ) + x * sin(θ的缩放、 旋转和区域保存，输出效果 如图11-6至11-9所示。
11.4 综合应用
程序功能解析 ① 缩放功能的实现 图像的缩放有多种方法， 对于窗体或图片框控件而言， 最简单的便是用PaintPicture方法。利用该方法 可实现将源图的某一区域图像按某种方式显示到 另一目标区域。因此，对图像进行缩放时，只需 将目标区域上显示的图像宽度和高度变大或小即 可。主要的代码是： dWidth = Picture1.Width * r 'r为缩放因子 dHeight = Picture1.Height * r Picture2.PaintPicture Picture1.Picture, 0, 0, dWidth, dHeight
⑦ PaintPicture方法：利用该方法可实现将源图的某一区域图像按某种 方式显示到另一目标区域。 形式：[Object.].PaintPicture 源对象.Picture, x1, y1, w1, h1, x2, y2, w2, h2 [显示方式] 其中：x1，y1：显示的目标区域的左上角坐标；w1，h1：在目标区域 上显示的图像的宽度和高度；x2，y2：图的源区的左上角坐标；w2， h2：源图的剪裁区域的宽度和高度。 【例11-5】利用Line画线方法绘制30个逐渐旋转缩小的矩形，变化量 为0.1。
11.1 图形处理基础
1.系统坐标系
坐标系统实际上是一个一定区域的二维网格，用 于定义屏幕上、窗体中或其他容器中（如图片框控件） 的位置。在VB中，每个对象都存在于某种容器中，比 如：窗体处于屏幕（Screen）内，屏幕为窗体的容器； 对窗体内的各控件对象，窗体便是它们的容器；在图 形框中画图，图形框就是这些图形的容器。 一个坐标系统需要三个要素：坐标原点、坐标度 量单位和坐标轴的方向。在系统坐标系下，容器对象 的左上角坐标为（0，0），水平坐标（即X坐标）从 左向右增大，纵坐标（即Y坐标）自上向下增大。
11.4 综合应用
程序功能解析 ③ 图像区域保存的实现 为实现由用户自由地选择需保存的 图像区域，在【保存】按钮的Click 事件中，可以调用鼠标事件以便用 户选取。因此可采用Picture1_MouseDown vbLeftButton, 0, 0, 0语句表示按下了鼠标左键， 同时激活鼠标按下事件。为让用户看清楚所选择 的区域，可在MouseMove事件中，设置合适的 画线模式、线宽和线型，将用户选择区域的画出 来。然后在MouseUp事件中，用PaintPicture方 法将指定区域的图像显示到目标区域中。
谢 谢
高等教育出版社
Higher Education P r e s s
11.2 绘图属性
4. Shape控件的BorderWidth属性 该属性返回或设置直线的宽度，默认单位为像素。 5. Shape控件的FillColor属性 FillColor属性指定填充图案的颜色，默认的颜色 与ForeColor相同。Visual Basic默认采用对象的前景 色（ForeColor属性）绘图，也可以通过以下颜色函数 指定色彩。
11.3 绘图方法
1.常用绘图方法
④ Line方法：画线、矩形。 形式：[Object.] Line [Step ](x1, y1)-[Step ](x2, y2) [,Color], [B]/[BF] 绘制从(x1, y1)到(x2, y2)的直线或矩形。其中：若（x1, y1）缺省则表 示从当前位置开始；带Step参数，表示坐标为相对坐标；参数B表示画 矩形，此时两个坐标表示矩形的对角坐标，且以某种填充类型填充矩 形（填充类型由相关属性设置）；BF表示用绘图的颜色填充该矩形框。
11.2 绘图属性
5. Shape控件的FillColor属性 【例11-4】 颜色的渐变过程。 要定义渐变，可多次调用RGB函数，每次对RGB 函数的参数稍作变化。下面的程序用线段填充矩形区， 通过改变直线的起终点坐标和RGB函数中三基色的成 份产生渐变效果，
Private Sub Form_Click() Dim j As Integer , x As Single, y As Single, sp As Single y = Form1.ScaleHeight x = Form1. ScaleWidth ' 设置直线X方向终点坐标 sp = 255 / y ' 每次改变基色的增量 For j = 0 To y Line (0, j)-(x, j), RGB(j * sp, j * sp, j * sp) ' 画线 Next j End Sub
图11-4 颜色渐变效果
11.3 绘图方法
1.常用绘图方法
① Cls方法：清除输出的内容。 形式：[Object.] Cls 譬如：Form1.cls；
Picture1.cls
② Pset方法：画点方法。 形式：[Object.] Pset (x, y) [, Color] '在(x, y)处画点以color颜色 画点。 或者，[Object.] Pset Step(x, y) [, Color] '在(CurrentX + x, CurrentY + y)处画点，有了Step关键字后的坐标就是指相对坐标。 譬如：Picture1.Pset(20, 30), RGB(255, 0, 0) 在指定位置画一红 点。（当然也可先设置前景色为红色，再画点） ③ Point方法：获得指定点的颜色, 返回指定点(x, y)的RGB颜色， 若该点位于对象之外，则返回-1。 形式：[Object.] Point(x, y) 譬如：color = Picture1.Point(x, y)。