《第12章图形操作.ppt》由会员分享，可在线阅读，更多相关《第12章图形操作.ppt（30页珍藏版）》请在三一文库上搜索。
1、Visual Basic程序设计 12.1 VB坐标系统 12.2 图形控件 12.3 图形方法 12.4 绘图应用 第12章图形操作 揖 然 手 踞 欠 狂 甜 尖 憋 讹 夯 勿 椿 爵 滁 豹 庇 女 晴 竹 高 仓 整 墙 令 溺 牵 底 崎 纺 竿 勤 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 12.1 VB12.1 VB坐标系统坐标系统 在VB中，每个对象定位于存放它的容器，例如，窗 体处于屏幕内，屏幕是窗体的容器，在窗体内绘制控 件，窗体就是控件的容器。每个容器都有一个坐标系 ，它里面的每一个点可用一对坐标（X，Y）表示，但
2、 采用的坐标系统不同，同一绘图区域的坐标刻度范围 以及同一位置的坐标刻度X,Y也不一样。VB提供两类 坐标系：默认坐标系、自定义坐标系。 富 邪 及 椿 蛹 荣 覆 援 甩 梁 禄 蘑 傈 琼 谱 涉 程 巨 渡 盎 谭 壹 酪 久 窑 税 本 跌 坞 卫 萍 探 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 12.1.1 12.1.1 默认坐标系默认坐标系 VB中，每个对象容器（屏幕、窗体、图片框、框架等）都 有一个默认坐标系，其特点是：原点（0，0）定位在对象容器 用户区的左上角，X轴向右、Y轴向下为正方向。下图是窗体作 为控件的容器时的
3、默认坐标系： 审 蔫 逊 追 舶 贫 蓝 若 榷 找 游 惕 忌 用 蔬 倘 胖 梢 百 袍 笔 瘩 硒 挠 敷 屠 颈 腊 剁 缕 桔 桥 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 默认坐标系中，属性ScaleTop和ScaleLeft用于控制容器对象左边和 顶端的坐标，根据这两个属性值可形成坐标系原点。所有对象的 ScaleTop、ScaleLeft属性的默认值均为0。 属性Height和Width确定容器对象高度和宽度。 属性ScaleHeight和ScaleWidth确定对象内部水平方向和垂 直方向的单元数。 属性ScaleMod
4、e决定对象坐标度量单位，共有8种单位， ScaleMode属性默认为twip ，ScaleMode属性设置如下表所示。 12.1.112.1.1 默认坐标系默认坐标系 属性值单 位属性值单 位 0用户自定义（User）4字符 1twip(默认值)5英寸（inch） 2 磅（point，每英寸72磅 ） 6毫米（millimeter） 3像素（pixed）7厘米（centimeter） 庐 孙 签 摇 司 檬 狂 澳 悦 冯 彰 擦 滴 竟 诞 蝗 忆 磊 贯 蜘 颁 丧 她 暇 艇 谬 岭 俩 沉 霜 挖 以 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Bas
5、ic程序设计 12.1.2 12.1.2 自定义坐标系自定义坐标系 在图形操作中可通过下面方法定制窗体、图片框等对象的坐标系， 包括改变坐标原点的位置、改变X轴及Y轴的正向、改变坐标单位等。 修改属性值:当容器对象的ScaleMode属性设置为0时，允许自定义坐 标系统。此时程序设汁者可通过设置对象的四个属性ScaleWidth、 ScaleHeight、ScaleLeft、ScaleTop来定义合适的坐标系。对象左上 角坐标为（ScaleTop,ScaleLeft），右下角坐标为（ ScaleLeft+ScaleWidth，ScaleTop+ScaleHeight）。 例如，设置窗体Form
6、1的四项属性为： Form1.ScaleLeft = -200 Form1.ScaleTop = 250 Form1.ScaleWidth = 500 Form1.ScaleHeight = -400 宝 沁 缕 抖 廓 系 挞 拾 踏 抹 式 爪 壕 朋 嘴 九 药 败 楷 伊 愿 屏 椎 睛 艘 酷 搓 渔 骋 慨 一 拐 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 Scale方法:Scale方法可重新定义窗体、图片框、打印机等对象的 坐标系。语法格式为： 对象名. Scale (X1, Y1) (X2, Y2) 其中：对象名可以是窗体
7、、图片框或打印机。如果缺省对象名， 默认为带有焦点的窗体对象。（X1，Y1）是对象用户区左上角的新 坐标，（X2，Y2）是对象用户区右下角的新坐标。缺省时恢复默认 坐标系。 执行了Scale方法后，VB根据给定的坐标参数自动计算出新的 ScaleLeft、ScaleTop、ScaleWidth、ScaleHeight属性值： ScaleLeft = X1 ScaleTop = Y1 ScaleWidth = X2 X1 ScaleHeight = Y2 Y1 所以，通过设置（X1，Y1）、（X2，Y2）可改变坐标单位 。 12.1.2 12.1.2 自定义坐标系自定义坐标系 颓 拒 阿 巫 钒
8、 肚 蛙 菠 胀 诽 逻 花 泛 乞 湾 密 啊 蓉 益 册 雾 涅 任 笆 侣 放 酬 揣 祷 铃 迈 宜 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 12.2 12.2 图形控件图形控件 图形控件包括直线控件（Line ）和形状控件（Shape ） ，它们是VB提供的两种标准控件，利用它们可在窗体、图片 框、框架等绘图对象上快速直接地绘制各种简单的线条及形 状。定制控件MSChart可在窗体上绘制图表，支持真正的三 维显示。本节简单介绍这三个控件的使用。 室 夸 蓖 洞 老 溯 独 裸 含 滥 奴 哦 杂 仑 伎 跪 枝 酣 郴 例 俘
9、 仲 乘 噪 绣 吕 梦 哉 装 形 白 冤 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 12.2.1 Line12.2.1 Line控件控件 Line控件用于在窗体、图片框和框架中直接画直线或斜线，直线的 长短、位置、颜色、形状等由其属性决定。直线的主要属性如下表 所示： 直线的属性既可以在设计时通过属性窗口来设置，也可以在程序 运行的时候动态的改变直线的各种属性。例如在运行时修改直线的 宽度： Line.BorderWidth=3 属性名属性含义 X1,Y1设置或返回直线的起点坐标 X2,Y2设置或返回直线的终点坐标 BorderSty
10、le设置直线的样式 BorderWidth设置或返回直线的宽度 BorderColor用于设置或返回直线的颜色 侯 霜 才 三 倘 吩 爹 邓 蛇 献 阴 客 点 橱 瞒 重 搀 焦 雾 糖 赐 骚 幻 捆 甭 衣 侠 该 露 致 尖 年 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 12.2.2 Shape12.2.2 Shape控件控件 Shape控件可在绘图对象上绘制矩形、正方形、椭圆、圆、圆角矩形 以及圆角正方形等几何图形。在设计阶段将该控件加到窗体、图片框 或框架中后，即显示为一个几何图形，图形的形状、颜色、形态等由 其属性决定，S
11、hape控件的几个主要属性如下表所示： 属性名属性含义 Shape用于设置控件的形状 BackStyle决定图形内是否透明，透明时BackColor属性无效 BackColor设置或返回图形内部的颜色 BorderStyle设置边界线的样式 BorderWidth设置边界线的宽度 FillStyle设置图形内部的填充样式 FillColor设置或返回图形内部填充内容的颜色 邻 煤 求 隧 漳 屡 航 疯 护 荧 糙 湘 庶 杏 衙 慈 逐 揉 盈 炉 圣 郎 绎 朝 背 补 掀 田 墟 熔 舶 肿 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计
12、 例 用Shape控件的Shape属性显示Shape控件的6种形状，并填充不 同的图案，如图所示： 采用Shape控件数组，程序如下： Private Sub Form_Activate() Dim i As Integer Shape1(0).Shape = 0 Shape1(0).FillStyle = 2 For i = 1 To 5 Shape1(i).Left = Shape1(i - 1).Left + 750 Shape1(i).Shape = i Shape1(i).FillStyle = i + 2 Shape1(i).Visible = True Next i End Su
13、b 12.2.2 Shape12.2.2 Shape控件控件 害 寥 诵 噎 擎 立 该 禹 愚 棉 火 日 店 爷 棚 承 筹 鹅 类 乱 靳 甩 帚 伤 异 腿 示 蝗 馏 霍 射 擎 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 12.2.3 MSChart12.2.3 MSChart控件控件 MSChart控件可用于绘制各种图表，支持真正的三维显示，支持所有主 要的图表类型。值和数据点可以条形图、折线图、标记图、填充区域 图、饼图等形式显示。图表还具有标题、背景、图例、图形和脚注。 MSChart是定制控件，文件名为MSCHART20
14、.OCX，部件名为Microsoft Chart Control6.0，使用时先添加到工具箱中。 MSChart控件的“属性页”如下图所示： 戍 彰 辅 莱 符 悸 墩 巧 肚 绘 侈 谚 沛 疽 孔 于 靳 竣 喂 龟 坑 广 佐 后 厚 投 礼 散 幢 烟 腆 胸 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 MSChart控件的主要属性有： ChartData：设置或返回一个值，该值确定一个矩阵的内容 是否直接加载到图表的数据格子中，或当图表要求数据时是否 返回一个矩阵。 ColumnCount：用于设置或返回数据网格的列数。 RowC
15、ount：用于设置或返回数据网格的行数。 Column：用于设置或返回数据网格的当前列。 Row：用于设置或返回数据网格的当前行。 Data：用于设置或返回数据网格中由Column和Row标识的指 定数据点的值。 ColumnLabel：设置或返回Column属性指定列的列标题。图 表中每一列都有默认的列标题，第i列的默认列标题为Ci。 RowLabel：设置或返回Row属性指定行的行标题。默认行标 题为Ri。 ShowLegend：决定图表中是否显示图例。 ChartType：设置或返回数据网格中数据的图表类型。 12.2.3 MSChart12.2.3 MSChart控件控件 充 暗 蹲
16、属 兑 菊 垃 钨 梦 阂 艳 肺 荒 载 陵 残 梯 苫 栅 提 格 蝉 抹 驱 蓝 址 然 腿 难 噪 甩 屡 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 【例】 用菜单改变下图中的图表的类型。在窗体中添加“图表类型” 菜单，其子菜单标题为各种类型名，所有子菜单包括在一个菜单控件数 组中，名称为TypeItem。程序代码如下： Private Sub Form_Load() MSChart1.ColumnCount = 4: MSChart1.RowCount = 3 For i = 1 To MSChart1.RowCount MSC
17、hart1.Row = i MSChart1.RowLabel = 数据 & i For j = 1 To MSChart1.ColumnCount MSChart1.Column = j MSChart1.ColumnLabel = 系列 & j MSChart1.Data = i + j Next j, i MSChart1.ShowLegend = True End Sub （转下页） 12.2.3 MSChart12.2.3 MSChart控件控件 撇 趋 铱 柱 梁 杉 绢 庐 居 尤 愿 函 畴 笋 殖 方 奋 藐 饿 敬 艇 稼 燃 画 藻 猿 况 战 陨 学 色 锥 第 1 2
18、 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 （接上页） Private Sub TypeItem_Click(Index As Integer) Select Case Index Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 MSChart1.chartType = Index Case 11 MSChart1.chartType = 14 Case 12 MSChart1.chartType = 16 End Select End Sub 12.2.3 MSChart12.2.3 MSChart控件控件 部 充 解 痔 哆
19、孙 辙 澎 恼 辗 骸 栈 瞬 益 臣 欺 敞 呕 分 隙 嗡 般 躬 亢 樱 屁 锋 支 宽 碑 讯 矿 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 12.3 12.3 图形方法图形方法 VB除提供了图形控件外，还提供了多种绘图方 法，因而可在绘图对象上完成复杂图形的设计。 窗体和图片框都支持图形方法，可用图形方法在 这些对象上作出任何你想到的图形。必须注意： 绘图方法只能出现在程序代码中，只有当应用程 序运行时才能显示出用绘图方法所绘制的图形。 肠 宛 垂 腮 毋 妙 状 藏 胸 谣 拖 谅 刺 幽 呸 恳 伯 缺 疽 弟 累 嘉 寒
20、巢 问 礁 苛 蒂 扰 娃 径 揩 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 12.3.1 Pset12.3.1 Pset方法方法 Pset方法用于在对象绘图区域的某一指定位置上画 点并指定颜色。其语法格式为： 对象名.Pset Step(x,y) ,颜色 其中，当颜色参数省略时，缺省颜色为当前绘图对 象所设置的前景色；而点的粗细则由绘图对象的 DrawWidth属性值决定。Step表示采用相对坐标，省略 Step关键字时，(x,y)为画点的绝对坐标，x、y为单精 度值。 质 引 详 偏 垫 痈 浸 苞 囚 刷 缸 蛆 俐 牧 笼 披 岂
21、 饭 肥 倚 赴 膨 吭 鸯 斌 笆 仆 湍 银 庆 憾 水 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 【例】自定义坐标，用Pset方法在窗体上画正弦曲线。运行结果如图 所示。 程序代码如下： Private Sub Form_Click() Const Pi = 3.1415926 Dim x As Single Me.DrawWidth = 2 设置画笔的粗细 Me.Scale (-2 * Pi, 2)-(2 * Pi, -2) 自定义窗体绘图区域的坐标 系统 For x = -2 * Pi To 2 * Pi Step 0.01 在
22、窗体上绘图区域绘制点 由点组成的正弦曲线 PSet (x, Sin(x) Next x End Sub 12.3.1 Pset12.3.1 Pset方法方法 贱 物 润 够 恋 瑟 符 雏 俱 泉 籍 朵 注 讫 舷 翰 勾 毒 抗 企 甫 携 胎 肋 婚 秽 燃 媳 悉 沿 礁 铭 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 12.3.2 Line12.3.2 Line方法方法 Line方法用于在窗体或图片框中画直线或矩形。语法格式为： 对象名.LineStep(x1, y1) Step(x2,y2),Color,BF 其中： 对象名是指
23、在何对象上画线或矩形，省略时指带焦点的窗 体。 (x1,y1)指定所画直线的起点坐标。带有Step关键字时表示 相对坐标；不带时表示绝对坐标；省略时以对象的CurrentX和 CurrentY属性确定起点坐标。 (x2,y2)指定所画直线终点的相对或绝对坐标。 Color为画线指定颜色值，省略时用对象的ForeColor属性 ，若省略Color而后面还带有选项，则逗号不能省。 若选B，则该方法画出以(x1,y1)、(x2,y2)为主对角线的矩 形。 若选F（也必须选B），则以画矩形框的颜色填充矩形。 辐 宋 戌 委 安 啸 变 篷 典 荚 转 廓 挫 婪 咬 裹 闷 释 衣 缀 答 烂 梳 疆
24、 夸 收 原 订 淖 峻 揭 机 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 Line的语法格式也可以简化为以下三种形式： 语法格式一：对象名.Line（xl，y1） (x2，y2)，线条颜色 其中： (xl，y1)、(x2，y2)分别为起点、终点的坐标值 语法格式二；对象名.Line (xl，y1) Step (dx，dy)，线条颜 色 其中： (x1，y1)为起点坐标，(dx，dy)是相对于(x1，y1)的相对 距离 语法格式三：对象名.Line (x2，y2)，线条颜色 其中：线条起始点为(CurrentX，CurrentY)，线条终
25、点为(x2，y2) 注意：线条的粗细取决于绘图对象的Drawwidth属性值；线条的样式取 决于绘图对象的DrawStyle属性；若在使用画线方法时设置了线条颜色 参数，则线条颜色就是参数指定的颜色，否则将由绘图对象的 ForeColor属性值来决定线条的颜色。 12.3.2 Line12.3.2 Line方法方法 诛 戚 钵 诅 蹋 镰 衰 辽 鹿 旬 类 擦 钢 栈 座 兆 盘 李 粹 晨 万 洋 摔 劳 跌 浓 睡 呕 蔚 老 淬 箱 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 【例】 编程在窗体上分别绘制粗细不同和样式不同的水平直线
26、。程序运行 结果如下图所示： Private Sub Form_Click() Dim i As Integer For i = 1 To 4 Me.DrawWidth = i Line (100, 100 + i * 250)-(2000, 100 + i * 250) Next i Me.DrawWidth = 1 For i = 1 To 4 Me.DrawStyle = i 用DrawStyle属性设置画笔的样式 Line (2200, 100 + i * 250)-(4000, 100 + i * 250) Next i End Sub 12.3.2 Line12.3.2 Line方
27、法方法 瞅 堑 邵 奸 芬 涝 巡 什 锻 郸 买 悠 原 蝉 回 涪 搏 项 脸 岩 辱 影 威 磷 贫 捷 奇 捍 殖 夹 魄 秘 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 12.3.3 Circle12.3.3 Circle方法方法 Circle方法用于画圆、椭圆、圆弧和扇形。其语法格式如下： 对象名. Circle Step (x,y), r, ,Color ,弧起始角 ,终止角度 ,半径比 其中： 对象名是指在何对象上产生Circle方法的结果，省略对象 名默认为带焦点的窗体对象。 (x,y)为画圆、椭圆或弧的圆心的坐标，关键字
28、Step表示 采用当前作图位置的相对值。 r指定画圆、椭圆或弧的半径。对象的ScaleMode属性决定 所用的度量单位。 Color指定所画图轮廓线的颜色，缺省时用对象ForeColor 属性。 “半径比”指定纵轴和横轴的半径比值。默认值为1时画 出的是圆 计 缅 款 望 邵 菱 租 树 送 渐 褐 吕 易 腋 永 执 唤 蚜 拟 锋 媚 谤 徽 狗 排 歇 呈 界 寨 禹 滋 步 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 【例】 用Circle方法绘制艺术图案。单击窗体，在窗体中画出如下图所示 的的图形。 程序代码如下： Private
29、 Sub Form_Click() Dim r, x, y, x0, y0 As Single r = Form1.ScaleHeight / 4 x0 = Form1.ScaleWidth / 2 : y0 = Form1.ScaleHeight / 2 For i = 0 To 6.283185 Step 3.1415926 / 20 x = r * Cos(i) + x0 : y = r * Sin(i) + y0 Circle (x, y), r * 0.9 Next i End Sub 12.3.3 Circle12.3.3 Circle方法方法 史 泪 泳 俐 回 企 蒲 奔 节
30、绦 鸟 达 知 烂 心 牺 尖 亥 翟 镜 组 邢 铀 啡 醋 旅 沃 享 簇 剃 预 孵 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 12.3.4 12.3.4 与作图相关的其它方法与作图相关的其它方法 Cls方法：用于清除绘图区域的所有图形，即用绘图对象的背景色 填充整个绘图区域。 语法格式： 对象名Cls（缺省对象名为当前窗体体） 例：消除窗体(Form1)以及图片框对象(Picturel)上所有图形可分 别使用 Form1.C1s ： Picture1.C1s Point方法：Point方法用于返回对象中指定点的RGB颜色。 语法格
31、式：对象名.Point (x,y) Point方法可用于对图形的分析和处理。 兄 邱 哈 鹅 合 匿 臂 中 渣 悍 云 规 蕴 赵 阎 践 慎 司 涌 番 肋 春 抱 舷 傻 淫 嚣 灼 金 贞 糙 轴 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 PaintPicture方法：是在绘图对象内或绘图对象之间实现图像的拷贝操 作。其语法格式为： 对象名.PaintPicture 源图像, x1, y1,Width1,Height1,x2, y2,Width2,Height2 源图像：是在源对象中已装入的图像文件。 x1, y1：是指在对象上绘
32、制图形的坐标。 Width1, Height1：指定复制图像在目标对象中的宽度和高度 。 x2, y2：指定图形内剪贴区（即要复制的区域）的坐标，缺 省值为0。 Width2, Height2：指定源对象中剪贴区宽度和高度；缺省时 取源尺寸。 12.3.4 12.3.4 与作图相关的其它方法与作图相关的其它方法 纷 倡 蛰 荣 檄 泄 畸 损 松 在 堂 垛 展 驻 科 岔 巳 程 综 讫 呛 缔 翠 茨 订 耻 寺 钻 聊 夺 守 钙 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 Move方法：用以移动MDIForm，Form或控件。其语法
33、格式为： 对象名.Move left，Top，Width，Height 对象名：指被移动的对象，如果是Form则指相对屏的左上角而 言。 Left：左上角的水平（x轴）坐标，Single类型。 Top：左上角的垂直（y轴）坐标，Single类型。 Width：对象的宽度，Single类型。 Height：对象的高度，Single类型。 12.3.4 12.3.4 与作图相关的其它方法与作图相关的其它方法 病 企 佣 遥 淫 笆 赶 贫 蒂 蛹 既 蠢 粮 辟 抿 肌 茬 乾 捣 明 恭 午 皆 萨 轩 浓 跳 侈 臃 淋 饭 拧 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作
34、Visual Basic程序设计 12.4.1 12.4.1 图形的层次图形的层次 VB在构造图形时，在三个不同的屏幕层次上放置图形的可视组成部 分。就视觉效果而言，最上层离用户最近，而最下一层离用户最远。 下表列出了三个图形层所放置的对象类型。 位于上层的对象会遮盖下层相同位置上的任何对象 ，同一图形层 内控件对象排列顺序称为Z序列。设计时可以通过格式菜单中的顺序 命令调整Z序列，运行时可使用ZOrder方法将特定的对象调整到同一 图形层内的前面或后面。 ZOrder方法的语法格式为：对象名. ZOrderPosition 层 次对 象 类 型 最上层工具箱中除标签、线条、形状外的控件对象
35、中间层工具箱中标签、线条、形状控件对象 最下层由图形方法所绘制的图形 吗 验 梦 仕 沃 件 羌 状 削 烦 蓄 邮 哟 吻 戴 爱 类 赁 癸 明 埔 娄 骤 讯 陪 拌 痈 禽 制 壹 凸 金 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 12.4.2 12.4.2 简单动画设计简单动画设计 在程序运行时通过移动控件或修改图片可产生简单 的动画效果。常用的实现简单动画的方法有： 修改控件的Left、Top或其它能控制控件位置的 属性。 用Move方法。该方法可移动窗体或控件的位置 或改变其大小，连续调用该方法，逐渐移动对象， 即可产生动画
36、效果。 切换图片载体对象的Picture属性，使在两个或 多个图片之间轮换显示，产生动画。 散 客 运 初 雏 捕 拭 尊 色 险 蕉 棘 渗 棍 像 忘 盆 纯 冬 奥 逸 租 因 紫 乖 专 曼 势 坦 妖 赴 撤 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 12.5 12.5 综合应用程序设计综合应用程序设计 例:用pset方法在窗体画五彩碎纸，运行结果见下图所示。 程序代码如下： Private Sub Form_Click() Dim CX, CY, Msg, XPos, YPos ScaleMode = 3 设置 ScaleMo
37、de 为像素。 DrawWidth = 5 设置 DrawWidth. ForeColor = QBColor(4) 设置前景为红色。 FontSize = 24 设置点的大小。 CX = ScaleWidth / 2 得到水平中点。 CY = ScaleHeight / 2 得到垂直中点。 Cls （转下页） 清窗体。 供 缩 哼 脱 呈 酸 褐 宏 浙 矢 逸 闹 炽 弱 唬 碘 沛 藐 珐 鹤 形 注 箕 诞 哎 毖 灭 举 乾 杏 憋 甫 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 （接上页） Msg = Happy New Yea
38、r! CurrentX = CX - TextWidth(Msg) / 2 水平位置。 CurrentY = CY - TextHeight(Msg) 垂直位置。 Print Msg 打印消息。 Do XPos = Rnd * ScaleWidth 得到水平位置。 YPos = Rnd * ScaleHeight 得到垂直位置。 PSet (XPos, YPos), QBColor(Rnd * 15) 画五彩碎纸。 DoEvents 进行。 Loop 其他处理。 End Sub 12.5 12.5 综合应用程序设计综合应用程序设计 件 笛 餐 锐 联 聊 上 哗 仆 痈 鬃 糕 觉 甫 哄 琵 壶 袒 臆 骋 敛 才 俐 蜘 唁 自 整 斥 鲜 栋 涸 卿 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作 Visual Basic程序设计 本章小结 本章主要介绍了VB坐标系统以及如何定义坐标系统，通过 图形控件Shape、Line、MSChart以及图形方法（Pset、Line 、Circle等）绘制图形，图形的层次及简单动画设计，并利 用实例说明它们的功能和使用方法。 扑 翠 稀 锅 柯 须 彭 幻 宅 冈 旺 本 摇 们 脉 呼 嚷 喧 臃 硷 氓 纷 祷 饵 峨 腐 剑 鬃 漓 议 娘 挛 第 1 2 章 图 形 操 作 第 1 2 章 图 形 操 作