第8章 VB图形设计课件
合集下载
《VB程序设计教程》PPT课件(全)(2024)
窗体的方法与事件
详细讲解窗体的常用方法，如显示窗体、隐藏窗体等，以及窗体 的事件，如加载事件、卸载事件等。
窗体的布局与风格
探讨如何合理规划窗体的布局，以及如何通过设置窗体的风格来 美化界面。
18
控件的使用与布局
常用控件介绍
介绍VB中常用的控件，如文本框、标签、按钮、列表框等，以及它们的属性和事件。
2024/1/26
Web应用程序开发
通过可以开发 Web应用程 序。
多媒体应用开发
利用VB可以开发多媒体应用程序，如音频、 视频处理等。
6
02
VB编程基础
2024/1/26
7
数据类型与变量
数值型
Integer、Long、Single、Double等
字符串型
String
2024/1/26
36
THANKS
感谢观看
2024/1/26
37
《VB程序设计教程》 PPT课件(全)
2024/1/26
1
2024/1/26
目录
• VB程序设计概述 • VB编程基础 • VB界面设计 • VB高级编程技术 • 数据库编程技术 • 网络编程技术 • VB程序调试与优化
2
01
VB程序设计概述
2024/1/26
3
VB的发展历史
1991年，微软公司推出Visual Basic 1.0，标志着 VB的诞生。
2024/1/26
套接字编程
使用Winsock控件进行套接字编程， 包括创建套接字、绑定地址和端口、 监听连接、发送和接收数据等步骤。
错误处理与调试
网络通信编程中需要考虑错误处理和 调试问题，如处理网络断开、数据丢 失等异常情况，以及使用日志记录和 调试工具进行问题排查。
详细讲解窗体的常用方法，如显示窗体、隐藏窗体等，以及窗体 的事件，如加载事件、卸载事件等。
窗体的布局与风格
探讨如何合理规划窗体的布局，以及如何通过设置窗体的风格来 美化界面。
18
控件的使用与布局
常用控件介绍
介绍VB中常用的控件，如文本框、标签、按钮、列表框等，以及它们的属性和事件。
2024/1/26
Web应用程序开发
通过可以开发 Web应用程 序。
多媒体应用开发
利用VB可以开发多媒体应用程序，如音频、 视频处理等。
6
02
VB编程基础
2024/1/26
7
数据类型与变量
数值型
Integer、Long、Single、Double等
字符串型
String
2024/1/26
36
THANKS
感谢观看
2024/1/26
37
《VB程序设计教程》 PPT课件(全)
2024/1/26
1
2024/1/26
目录
• VB程序设计概述 • VB编程基础 • VB界面设计 • VB高级编程技术 • 数据库编程技术 • 网络编程技术 • VB程序调试与优化
2
01
VB程序设计概述
2024/1/26
3
VB的发展历史
1991年，微软公司推出Visual Basic 1.0，标志着 VB的诞生。
2024/1/26
套接字编程
使用Winsock控件进行套接字编程， 包括创建套接字、绑定地址和端口、 监听连接、发送和接收数据等步骤。
错误处理与调试
网络通信编程中需要考虑错误处理和 调试问题，如处理网络断开、数据丢 失等异常情况，以及使用日志记录和 调试工具进行问题排查。
VB教程 第8章
8.2.5 程序运行时向窗体添加控件
窗体是Windows应用程序的基本控件,Windows应用程序 应用程序的基本控件, 窗体是 应用程序的基本控件 应用程序 的运行本质上就是窗体的显示.窗体上可以添加各种控件. 的运行本质上就是窗体的显示.窗体上可以添加各种控件. 窗体上的控件通常都是在程序设计时,通过工具箱添加的. 窗体上的控件通常都是在程序设计时,通过工具箱添加的. 但也可以在窗体运行时添加控件. 但也可以在窗体运行时添加控件. 在窗体运行时添加控件,其实是创建一个新的对象, 在窗体运行时添加控件,其实是创建一个新的对象,在窗体 指定位置显示,并将其添加到窗体中.指定位置使用Point 指定位置显示,并将其添加到窗体中.指定位置使用 对象数组,向窗体添加对象调用Controls属性的 属性的Add方法. 方法. 对象数组,向窗体添加对象调用 属性的 方法
编写事件代码: 编写事件代码: ' 窗体Load事件代码 窗体 事件代码 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load Me.BackColor = Color.Blue End Sub ' 窗体 窗体Click事件代码 事件代码 Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Me.Click Me.BackColor = Color.Red End Sub ' 窗体 窗体DoubleClick事件代码 事件代码 Private Sub Form1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Me.DoubleClick Me.BackColor = Color.Yellow End Sub
第8章 VB图形设计课件
本章目录
4
8.2 坐标系统的设置
VB开发图形应用程序的首要步骤是定义图形载体对 开发图形应用程序的首要步骤是定义图形载体对 象的坐标系统。 象的坐标系统。 正如日常在纸上绘画前所做的布局考虑， 正如日常在纸上绘画前所做的布局考虑，只有确定 好坐标系统，才能绘制出精致的图形。 好坐标系统，才能绘制出精致的图形。 在窗体中画图， 例8.1在窗体中画图，窗体就是容器。对象在容器中 在窗体中画图 窗体就是容器。 容器的坐标系统。 的定位需要使用容器的坐标系统 的定位需要使用容器的坐标系统。 容器的坐标系统由默认坐标系统 默认坐标系统与 容器的坐标系统由默认坐标系统与自定义坐标系统 构成。 构成。
本章目录
18
设置当前窗体的AutoRedraw属性值为False，(a)图 属性值为 设置当前窗体的 属性值为 ， 图 所示为窗体正常显示的文本“广西工学院” 所示为窗体正常显示的文本“广西工学院”和绘制的两 条直线；(b)图所示为缩小窗体；(c)图所示为还原窗体 条直线； 图所示为缩小窗体； 图所示为还原窗体 图所示为缩小窗体 大小后，窗体所显示的文本和绘制的图形部分被掩盖。 大小后，窗体所显示的文本和绘制的图形部分被掩盖。
本章目录
10
电子贺卡的制作程序中便使用了Scale方法重 在例8.1电子贺卡的制作程序中便使用了 电子贺卡的制作程序中便使用了 方法重 新定义窗体坐标系统，语句定义如下： 新定义窗体坐标系统，语句定义如下： Form1.Scale (-100, 100)-(100, -100) 如书图8-3，参数(-100,100)表示窗体对象左上角的 ，参数 如书图 表示窗体对象左上角的 坐标值，参数(100，-100)表示窗体对象右下角的坐 坐标值，参数 ， 表示窗体对象右下角的坐 标值。 标值。
4
8.2 坐标系统的设置
VB开发图形应用程序的首要步骤是定义图形载体对 开发图形应用程序的首要步骤是定义图形载体对 象的坐标系统。 象的坐标系统。 正如日常在纸上绘画前所做的布局考虑， 正如日常在纸上绘画前所做的布局考虑，只有确定 好坐标系统，才能绘制出精致的图形。 好坐标系统，才能绘制出精致的图形。 在窗体中画图， 例8.1在窗体中画图，窗体就是容器。对象在容器中 在窗体中画图 窗体就是容器。 容器的坐标系统。 的定位需要使用容器的坐标系统 的定位需要使用容器的坐标系统。 容器的坐标系统由默认坐标系统 默认坐标系统与 容器的坐标系统由默认坐标系统与自定义坐标系统 构成。 构成。
本章目录
18
设置当前窗体的AutoRedraw属性值为False，(a)图 属性值为 设置当前窗体的 属性值为 ， 图 所示为窗体正常显示的文本“广西工学院” 所示为窗体正常显示的文本“广西工学院”和绘制的两 条直线；(b)图所示为缩小窗体；(c)图所示为还原窗体 条直线； 图所示为缩小窗体； 图所示为还原窗体 图所示为缩小窗体 大小后，窗体所显示的文本和绘制的图形部分被掩盖。 大小后，窗体所显示的文本和绘制的图形部分被掩盖。
本章目录
10
电子贺卡的制作程序中便使用了Scale方法重 在例8.1电子贺卡的制作程序中便使用了 电子贺卡的制作程序中便使用了 方法重 新定义窗体坐标系统，语句定义如下： 新定义窗体坐标系统，语句定义如下： Form1.Scale (-100, 100)-(100, -100) 如书图8-3，参数(-100,100)表示窗体对象左上角的 ，参数 如书图 表示窗体对象左上角的 坐标值，参数(100，-100)表示窗体对象右下角的坐 坐标值，参数 ， 表示窗体对象右下角的坐 标值。 标值。
VB教程 全套课件 vb-8
3. 设置启动窗体
“工程/属性” “启动对象”
设置启动对象
4. 窗体语句 (1)Load语句：装入窗体到内存但没有显示窗体 形式： Load 窗体名称 (2)Unload语句：从内存删除窗体 形式： Unload 窗体名称
5. 窗体方法 (1)Show方法：显示一个窗体（当窗体没有Load，自动Load） [窗体名称].Show [模式] 0 － Modal：关闭才能对其它窗体进行操作。 1 － Modeless，可以对其它窗体进行操作。 (2) Hide方法：隐藏窗体，没有Unload删除 [窗体名称.] Hide 6.不同窗体间数据的存取 (1)存取控件的属性 另一窗体名.控件名.属性 (2)存取变量的值 另一窗体名.全局变量名
性能 0只能用鼠标左键触发弹出菜单； 2：能用鼠标左、右键键触发弹出菜单；
8.3 多重窗体和多文档窗体
一、多重窗体
1.添加窗体 “工程|添加窗体” 新建 现存 添加“现存”窗体时要注意： 防止多个窗体的name相同而不能添加； 添加的窗体实际是将其它工程中已有的窗体加入，多个工程共享窗体； 通过“另存为”命令以不同的窗体文件名保存，断开共享。 2. 保存窗体 一个工程中有多个窗体，应分别取不同的文件名保存在磁盘上，VBP工程文件 中记录了该工程的所有窗体文件名。
三、 弹出菜单(快捷菜单)
显示在窗体的浮动菜单，操作时使用右键，菜单与鼠标位置有关。设计与普通菜单，仅 该菜单名不可显示；要显示时使用PopupMenu方法弹出菜单。 形式： [对象.]PopupMenu 菜单名, 标志, x, y 标志，表示弹出的位置和触发的键 位置 0：X 位置确定弹出菜单的左边界 4：弹出菜单以X为中心 8： X 位置确定弹出菜单的右边界 位置与性能是加的关系。 弹出菜单示例
VB课件第8章
End If End Sub
“编辑”菜单下各下拉菜单的代码 ：
Private Sub mnuSearch_Click()
Dim i As Integer, search As String, fn As String
search = InputBox("查找内容：", "查找") i = InStr(txtWord.Text, search) 第一次字符串位置
以下功能：
“剪切”：将所选中的内容剪切到剪贴板中 “复制”：将所选中的内容复制到剪贴板中 “粘贴”：将剪贴板中的内容粘贴到文本框中
“查找”：在输入框中输入要查找的字符串并 按“确定”按钮后，则第一个找到的反白显 示
“替换”：用所输入的字符串替换文本框中选 中的字符串
P275 【例8.2】在例8.1的基础上编写代码实现
Else mnuCut.Enabled = False mnuCopy.Enabled = False staMsg.Panels(1) = "没选中字符"
End If End Sub
Private Sub txtWord_Click() staMsg .Panels(1) = "没选中字符"
End Sub
End Sub
“编辑”菜单下各下拉菜单的代码 ：
Private Sub Form_Load() Clipboard.Clear 清空剪贴板
End Sub
Private Sub mnuCut_Click() Clipboard.SetText txtWord.SelText 给剪贴板置数 txtWord.SelText = "" 删除所选文本 mnuPaste.Enabled = True
“编辑”菜单下各下拉菜单的代码 ：
Private Sub mnuSearch_Click()
Dim i As Integer, search As String, fn As String
search = InputBox("查找内容：", "查找") i = InStr(txtWord.Text, search) 第一次字符串位置
以下功能：
“剪切”：将所选中的内容剪切到剪贴板中 “复制”：将所选中的内容复制到剪贴板中 “粘贴”：将剪贴板中的内容粘贴到文本框中
“查找”：在输入框中输入要查找的字符串并 按“确定”按钮后，则第一个找到的反白显 示
“替换”：用所输入的字符串替换文本框中选 中的字符串
P275 【例8.2】在例8.1的基础上编写代码实现
Else mnuCut.Enabled = False mnuCopy.Enabled = False staMsg.Panels(1) = "没选中字符"
End If End Sub
Private Sub txtWord_Click() staMsg .Panels(1) = "没选中字符"
End Sub
End Sub
“编辑”菜单下各下拉菜单的代码 ：
Private Sub Form_Load() Clipboard.Clear 清空剪贴板
End Sub
Private Sub mnuCut_Click() Clipboard.SetText txtWord.SelText 给剪贴板置数 txtWord.SelText = "" 删除所选文本 mnuPaste.Enabled = True
vb最全最经典课件(免费)
在中，将反映对象的属性和行为封装 在一起，是面向对象编程的基本元素。
本章目录
2.类的概念
类 同种对象的集合与抽象，是创建对象实例的 模板，包含所创建对象的属性描述和行为特征的 定义。 例如，人类是具体人的抽象。每个人有不同的身 高、体重等属性值和不同的行为。 工具箱中的可视图标是系统设 计好的标准控件类。通过将控件类实例化，得到 真正的控件对象。在窗体上画一个控件，就将类 转换为对象，创建了一个控件对象(简称控件)。
本章目录
2.2 建立简单的应用程序
例2.2 编写一个人民币与美圆兑换的程序。 建立一个应用程序分为以下几步进行： (1) 建立用户界面的对象 (2) 对象属性的设置 (3) 对象事件过程及编程 (4) 保存和运行程序
代码说明
本章目录
对象事件过程及编程
代码窗口的对象列表框可显示窗体所有对象 过程列表框列出所选中对象的所有事件 例如，在按钮Button2的Click事件加入代码：
1.1 概述 1.2 集成开发环境 1.3 使用帮助系统
本章目录
1.1 概述
1.1.1 Visual Basic的发展 20世纪60年出现Basic语言； 20世纪80年代，True Basic、Quick Basic和 Turbo Basic等; 1991年Microsoft公司推出Visual Basic1.0，以 可视化工具为界面设计、结构化Basic语言为基 础，以事件驱动为运行机制。从1991年的VB1.0 至1998年的V B6.0的多次版本升级，功能更强 大、完善，应用面更广； 2002年正式发布Visual 。
本章目录
事件过程
事件过程 应用程序处理事件的步骤 它针对某一对象并与该对象的一个事件相联系 应用程序设计的主要工作就是为对象编写事件过 程的代码。事件过程的形式如下：
VB完整课件PPT
7. Forecolor前景颜色属性 设置控件的前景颜色（即正文颜色)。其值是一个十六 进制常数，用户可以在调色板中直接选择所需颜色。 8. Backcolor背景颜色属性 9. Backstyle背景风格属性 0-transparent：透明显示，即控件背景颜色显示不出来。 10. BorderStyle边框风格属性 0-None：控件周围没有边框 。 1-Fixed Single：控件带有单边框。 11. Alignment属性 控件上正文水平对齐方式 0：正文左对齐 ；1：右对齐；2：居中。 12. AutoSize属性 控件是否根据正文自动调整大小， False 13. WordWarp属性 AutoSize True时，WordWarp才有效。 按正文字体大小在垂直方向上改变显示区域的大小。
目前的最新版本是VB 2010 测试版
1.1可视化编程的概念
Visual的英文含义就是可视化，“可视的Basic” 这个名字可能抽象了点，但实际上它却是最直观的 编程方法，不需要编写大量代码去描述界面元素的 外观和位置，只要把预先建立好的对象拖放到屏幕 上相应的位置即可。 在VB中引入了控件的概念，在Windows中控件 的身影无处不在，如按钮、文本框等，VB把这些控 件模式化，并且每个控件都有若干属性用来控制控 件的外观，工作方法。
8. 立即窗口
• 在中断模式下，用以显示变量值或属性值和 设置变量值或属性值；检查和调试程序；控 制单步执行；输出中间结果；执行单行命令 等。
1.4
VB的有关概念
1. 类 是创建对象实例的模板, 包含创建对象的属 性描述和行为特征的定义。类属于一种数据类型， 被类说明的变量称为对象。 2. 对象 是类的一个实例，继承了类的属性、方法。 VB中常用的对象有：窗体、各种控件等。 3. 对象的建立和命名 4. 对象的三要素 （1）属性 对象的性质，即用来描述和反映对象特征 的参数。
第8章 VB图像处理基础与应用PPT课件
8.4.3 边缘提取
8.4.3 边缘提取
2. Sobel 算子边缘提取
图 8.25 sobel边缘检测效果图
8.4.4 图像二值化
8.4.4 图像二值化
图8.26 二值化实现算法流程图
8.4.4 图像二值化
图 8.27 原始图像和二值化图像
8.4.5 直方图均衡化
8.4.5 直方图均衡化
第8章 VB图像处理基础与应用
8.1 Visual Basic简介
8.1 Visual Basic简介
8.1 Visual Basic简介
8.2 图像处理程序设计
8.2.1 图像处理应用程序设计基础
8.2.1 图像处理应用程序设计基础
8.2.1 图像处理应用程序设计基础
8.2.1 图像处理应用程序设计基础
8.2.4 BMP图像文件及其调用
图 8.14 读取图像
图 8.15 图像信息显示
ቤተ መጻሕፍቲ ባይዱ
8.3 灰度直方图绘制
8.3 灰度直方图绘制
8.3 灰度直方图绘制
8.3 灰度直方图绘制
8.3 灰度直方图绘制
8.3 灰度直方图绘制
8.3 灰度直方图绘制
（3）读取图像数据
图 8.18 原始图像和灰度直方图
8.4 图像处理实例
8.4.1 艺术处理
8.4.1 艺术处理
8.4.1 艺术处理
8.4.1 艺术处理
8.4.1 艺术处理
8.4.1 艺术处理
8.4.1 艺术处理
8.4.2彩色图像变换成灰度图像
8.4.2彩色图像变换成灰度图像
1．算法比较
8.4.2彩色图像变换成灰度图像
8.23 灰度图像转换
Visual Basic程序设计实用教程vb08(第8章 使用常用绘图方法)
(2) 用户可以单击某个 图形按钮绘制出相 应图形和秒表的运 行图形。
8.3 绘图相关知识(1)
1、容器控件 要实现绘图就必须具备基本 条件，那就是要有一个绘 图的板。这与我们日常的 概念是一样的。比如一张 纸可以绘图，而一盆水就 不可绘图。VB提供了两 种可以绘图的板，
窗体-Form
图片坐标，或椭圆中心、圆弧中心的坐标； Radius：圆的半径； Start：选用时为画圆弧，表示圆弧的起始位置，用弧度表示； End：选用时为画圆弧，表示圆弧的终止位置，用弧度表示； Aspect：选用时为画椭圆，是椭圆X轴和Y轴的比例，当大于1时，长 半轴为Y轴，当小于1大于0时，长半轴为X轴；
8.7 实现鼠标绘任意图形(2)
应用鼠标事件完成任意绘图的操作,鼠标事件对 应的操作如下：
MouseDow n (鼠标压下) MouseMove (鼠标移动)
启动绘图，取 得当前坐标
判断是否绘图， 是绘制首尾相 接的线条
MouseUp (鼠标抬起)
停止绘图
8.8 图形方法应用举例(1)
按钮“画圆”代 码
8.3绘图相关知识
控件坐标和大小： 控件的位置属性： Left 和 Top ，指定控件左 上角的坐标值； 控件尺寸大小的属性: Height和 Width ，指定控 件右下角的坐标值， 实际上是控件的高度 和宽度。
（0，0） 控件
X轴
Y轴
控件坐标图
8.4 画线的方法Line
语句格式为：
Object.Line [step](x1,y1)-(x2,y2),[Color],[B][F]
语句示例： （在Form1上画图） 画圆: Form1.Circle (1000, 1000), 400, vbRed 画椭圆: Form1.Circle (1000, 1000), 400, vbRed, , , 1.5
8.3 绘图相关知识(1)
1、容器控件 要实现绘图就必须具备基本 条件，那就是要有一个绘 图的板。这与我们日常的 概念是一样的。比如一张 纸可以绘图，而一盆水就 不可绘图。VB提供了两 种可以绘图的板，
窗体-Form
图片坐标，或椭圆中心、圆弧中心的坐标； Radius：圆的半径； Start：选用时为画圆弧，表示圆弧的起始位置，用弧度表示； End：选用时为画圆弧，表示圆弧的终止位置，用弧度表示； Aspect：选用时为画椭圆，是椭圆X轴和Y轴的比例，当大于1时，长 半轴为Y轴，当小于1大于0时，长半轴为X轴；
8.7 实现鼠标绘任意图形(2)
应用鼠标事件完成任意绘图的操作,鼠标事件对 应的操作如下：
MouseDow n (鼠标压下) MouseMove (鼠标移动)
启动绘图，取 得当前坐标
判断是否绘图， 是绘制首尾相 接的线条
MouseUp (鼠标抬起)
停止绘图
8.8 图形方法应用举例(1)
按钮“画圆”代 码
8.3绘图相关知识
控件坐标和大小： 控件的位置属性： Left 和 Top ，指定控件左 上角的坐标值； 控件尺寸大小的属性: Height和 Width ，指定控 件右下角的坐标值， 实际上是控件的高度 和宽度。
（0，0） 控件
X轴
Y轴
控件坐标图
8.4 画线的方法Line
语句格式为：
Object.Line [step](x1,y1)-(x2,y2),[Color],[B][F]
语句示例： （在Form1上画图） 画圆: Form1.Circle (1000, 1000), 400, vbRed 画椭圆: Form1.Circle (1000, 1000), 400, vbRed, , , 1.5
vb第8章图形设计
20
第 八 章 图 形 设 计
8.3.3 画圆方法(Circle) 格式: [<对象名>.]Circle [Step](x, y), <半径>, [<颜色>], [<起始角>], [<终止角>] [, <纵横比>] 功能: 在对象上画圆、椭圆或弧。 <对象名> —窗体、图片框。缺省为当前窗体。 Step—指定圆、椭圆或弧的中心相对坐标。 (x, y)—圆、椭圆或弧的中心坐标。 <半径> —圆、椭圆或弧的半径。为最长轴的尺寸。 <颜色>—圆的轮廓颜色。省略则使用 ForeColor 值。 <起始角>, <终止角> —以弧度为单位，范围[ -2, 2]。 指定弧或扇形的起点和终点位置。 起点的缺省值是0; 终点的缺省值是2 。 若为负数，在画弧的同时画圆心到弧端点的连线。 <纵横比>—圆的纵横尺寸比。缺省值为 1.0(标准圆) 21
15
第 八 章 图 形 设 计
8.2.2 Line控件 1. 作用: 设计时在窗体上绘制直线。 2. 属性: BorderStyle、 BorderWidth X1、X2、Y1 、Y2 注意: 运行时可以通过改变 X1、X2、Y1 和 Y2 属性来移动它或者调整它的大小。而不能 使用Move方法
16
第 八 章 图 形 设 计
18
第 八 章 图 形 设 计
8.3.2 画线、矩形方法(Line) 格式: [<对象名>.]Line [Step][(x1, y1)]–[Step](x2, y2) [,<颜色> [,B[F]]] 功能: 在指定两点之间用指定的颜色画线或矩形 说明: <对象名>—窗体、图片框，缺省为当前窗体。 Step—可选的，指定相对于由 CurrentX 和 CurrentY属性提供的当前位置的坐标。 (x1, y1)—直线或矩形的起点坐标。如果省略， 线起始于由 CurrentX 和 CurrentY 指示 的位置。 Step—可选的，指定相对于起点的终点坐标。 (x2, y2)—直线或矩形的终点坐标。 <颜色>—画线时用的 RGB 颜色。 B—利用对角坐标画出矩形。 F—规定矩形以矩形边框的颜色填充。
第8章VB图形设计
Visual Basic提供了8种坐标系，如下表所示。
VB程序设计教程
4
第一节 坐标系统
2. 自定义坐标系统 在程序设计过程中，特别是在进行图形设计过程中，往往需要改变
Visual Basic的默认坐标系统，这时，可以通过设置窗体和图片框等容 器对象的ScaleMode、ScaleLeft、ScaleTop、ScaleWidth、ScaleHeight 等属性来实现。 （1）ScaleMode属性，该属性主要用来确定坐标系统的刻度单位，其数 据类型为整型，可以是以下值之一。 ① 0—User：该选项是用户自定义刻度单位，具体由ScaleWidth和 ScaleHeight算出。 ② 1—Twip：该选项是以“缇”为单位，系统的缺省值。 ③ 2—Point该选项是以“磅”为单位，1英寸=72磅。 ④ 3—Pixel该选项是以像素为单位，分辨率的最小单位。 ⑤ 4—Character该选项是以字符为单位，水平1个字符=120缇，垂直1 个字符=240缇。
第八章 图形设计
一、坐标系统 二、绘制线段 三、绘制圆、椭圆和弧
VB程序设计教程
1
第一节 坐标系统
一、坐标系统定义
为了确定图形在窗体中的具体位置，Visual Basic提供了窗口坐 标，一个完整的直角坐标系，用于确定一个控件或一个图形在容 器中的位置，所以，一个完整的直角坐标系应规定某坐标原点，X 轴和Y轴的方向及其刻度单位。在这样一个具有完整坐标系的容器 中，一个控件的位置就可以用该控件左上角的坐标（x，y）来表 示，一段直线就可以用其起始点的坐标（x1,y1）和终点（x2,y2） 来表示，一个矩形就可用其左下角的坐标（x1,y1）和右上角的坐 标（x2,y2）来表示了。
② 可以算出自定义坐标系X轴的刻度单位，例如，当容器实际 内部宽度为2000缇，而当前ScaleWidth属性值设置为5，则X轴的 每一个刻度表示2000/5=400缇。
VB程序设计教程
4
第一节 坐标系统
2. 自定义坐标系统 在程序设计过程中，特别是在进行图形设计过程中，往往需要改变
Visual Basic的默认坐标系统，这时，可以通过设置窗体和图片框等容 器对象的ScaleMode、ScaleLeft、ScaleTop、ScaleWidth、ScaleHeight 等属性来实现。 （1）ScaleMode属性，该属性主要用来确定坐标系统的刻度单位，其数 据类型为整型，可以是以下值之一。 ① 0—User：该选项是用户自定义刻度单位，具体由ScaleWidth和 ScaleHeight算出。 ② 1—Twip：该选项是以“缇”为单位，系统的缺省值。 ③ 2—Point该选项是以“磅”为单位，1英寸=72磅。 ④ 3—Pixel该选项是以像素为单位，分辨率的最小单位。 ⑤ 4—Character该选项是以字符为单位，水平1个字符=120缇，垂直1 个字符=240缇。
第八章 图形设计
一、坐标系统 二、绘制线段 三、绘制圆、椭圆和弧
VB程序设计教程
1
第一节 坐标系统
一、坐标系统定义
为了确定图形在窗体中的具体位置，Visual Basic提供了窗口坐 标，一个完整的直角坐标系，用于确定一个控件或一个图形在容 器中的位置，所以，一个完整的直角坐标系应规定某坐标原点，X 轴和Y轴的方向及其刻度单位。在这样一个具有完整坐标系的容器 中，一个控件的位置就可以用该控件左上角的坐标（x，y）来表 示，一段直线就可以用其起始点的坐标（x1,y1）和终点（x2,y2） 来表示，一个矩形就可用其左下角的坐标（x1,y1）和右上角的坐 标（x2,y2）来表示了。
② 可以算出自定义坐标系X轴的刻度单位，例如，当容器实际 内部宽度为2000缇，而当前ScaleWidth属性值设置为5，则X轴的 每一个刻度表示2000/5=400缇。
vb课件ppt
补充知识
结合数组的一些例子。
例8.11 编写命令按钮的Click事件过程
程序运行后，单击“输入数据”命令按钮，随 机 产生5个1～50之间的整数存放于一维数组a中，
并将各数组元素一行显示在图片框Picture1中，
单击“求最大值”命令按钮，在文本框Text1中 显 示这个数组中的最大值。
程序运行后，依次单击“输入数据”、 “求 最大值”命令按钮，界面如图5-2所示
Image1.Picture = LoadPicture("")
End Sub
PictureBox控件
图片框（PictureBox）是用来在窗体上显示图 像，也可以从文件中装入并显示图形。 图片框常用属性
属性名 Picture 属性值 说 明 字符串 用来设置要显示的图片文件名。 True：PictureBox控件将自动改变控件 大小以显示全部内容 。 逻辑值 False(缺省值)：PictureBox控件保持大 小不变，超出控件区域的内容被裁剪掉。
'1
Private Sub Command3_Click() Shape1.Shape = 2 '设置为椭圆 End Sub
Private Sub Command4_Click() Shape1.Shape = 3 '设置为圆 End Sub Private Sub Command5_Click() Shape1.Shape = 4 '设置为圆角矩形 End Sub Private Sub Command6_Click() Shape1.Shape = 5 '设置为圆角正方形 End Sub
第8章 绘图控件
8.3 Shape和Line控件
8.4 Image和PictureBox控件
VB程序设计(全套) ppt课件
Visual Basic 程序设计简明教程
第一章 Visual Basic程序设计概述（2）
第二章 VB简单的程序设计（6）
第三章 VB语言基础（4）
第四章 基本的控制结构（8）
第五章 数组（5）
第六章 过程（4）
第七章 常用控件（2）
第八章 界面设计（2）
第九章 文件（2）
第十章 图形（1）
第十一章 数据库技术（自学）
14
上一页
PPT课件
下一页
1.4.1 窗体窗口
本章目录
窗体是建立VB应用程序的主要部分，用户通过与窗体上 的控制部件交互可得到结果。每个窗体窗口必须有一个 惟 一 的 窗 体 名 字 ， 建 立 窗 体 时 默 认 名 为 Form1 、
Form2…… 在设计状态的窗体由网格点构成，方便用户对控件的定 位，网格点间距可以通过工具|选项命令，在通用标签的 窗体设置网格中输入宽度和高度来改变； 运行时可通过属性控制窗体的可见性(窗体的网格始终不 显示)。 一个应用程序至少有一个窗体窗口，用户可在应用程序 中拥有多个窗体窗口。
在VB中，工具箱上的可视图标是VB系统设计好的标准控件 类。通过将控件类实例化，可以得到真正的控件对象，也就是 当在窗体上画一个控件时，就将类转换为对象，即创建了一个 控件对象，简称为控件。
22
上一页
下一页
PPT课件
本章目录
例：工具箱内的TextBox是类，它确定了TextBox的属性、方 法和事件。窗体上显示的是两个Text对象 。
选“否” 删除：选中对象，按DEL键
24
PPT课件
2.1.2 对象的属性、事件和方法 本章目录
属性、事件和方法构成了对象的三要素。 1. 属性 属 性 保 存 对 象 中 的 数 据 。 例 如 ， 控 件 名 称 (Name) 、 标 题 (Caption)、颜色(Color)、字体(FontName)等属性决定了对象 展现给用户的界面具有什么样的外观及功能。 可以通过以下两种方法设置对象的属性： 1) 在设计阶段利用属性窗口直接设置对象的属性值 2) 在程序运行时间通过语句 对象名.属性名=属性值 实现
第一章 Visual Basic程序设计概述（2）
第二章 VB简单的程序设计（6）
第三章 VB语言基础（4）
第四章 基本的控制结构（8）
第五章 数组（5）
第六章 过程（4）
第七章 常用控件（2）
第八章 界面设计（2）
第九章 文件（2）
第十章 图形（1）
第十一章 数据库技术（自学）
14
上一页
PPT课件
下一页
1.4.1 窗体窗口
本章目录
窗体是建立VB应用程序的主要部分，用户通过与窗体上 的控制部件交互可得到结果。每个窗体窗口必须有一个 惟 一 的 窗 体 名 字 ， 建 立 窗 体 时 默 认 名 为 Form1 、
Form2…… 在设计状态的窗体由网格点构成，方便用户对控件的定 位，网格点间距可以通过工具|选项命令，在通用标签的 窗体设置网格中输入宽度和高度来改变； 运行时可通过属性控制窗体的可见性(窗体的网格始终不 显示)。 一个应用程序至少有一个窗体窗口，用户可在应用程序 中拥有多个窗体窗口。
在VB中，工具箱上的可视图标是VB系统设计好的标准控件 类。通过将控件类实例化，可以得到真正的控件对象，也就是 当在窗体上画一个控件时，就将类转换为对象，即创建了一个 控件对象，简称为控件。
22
上一页
下一页
PPT课件
本章目录
例：工具箱内的TextBox是类，它确定了TextBox的属性、方 法和事件。窗体上显示的是两个Text对象 。
选“否” 删除：选中对象，按DEL键
24
PPT课件
2.1.2 对象的属性、事件和方法 本章目录
属性、事件和方法构成了对象的三要素。 1. 属性 属 性 保 存 对 象 中 的 数 据 。 例 如 ， 控 件 名 称 (Name) 、 标 题 (Caption)、颜色(Color)、字体(FontName)等属性决定了对象 展现给用户的界面具有什么样的外观及功能。 可以通过以下两种方法设置对象的属性： 1) 在设计阶段利用属性窗口直接设置对象的属性值 2) 在程序运行时间通过语句 对象名.属性名=属性值 实现
VB教程 第8章 图形程序设计
3、DrawWidth属性 属性值1～32767，用来设置绘图线的 宽度，取值以像素为单位，值越大，绘 图线越宽
8.2.4容器控件的主要图形属性
4、FillColor和FillStyle属性 使用FillColor和FillStyle属性，可以对 已绘制好的封闭图形（圆、正方形等） 设置填充图案。FillStyle属性值0～7，对 应的填充图案分别为纯色、透明、横条 纹、竖条纹、上斜条纹、下斜条纹、交 叉条纹、斜交叉条纹。FillColor为填充色 属性。
8.4.2 画点、直线、矩形
2、画直线（Line方法） 画直线（Line方法） 方法 Line方法再指定的两点之间按指定的颜色 画一条直线。 格 式 ： [object.]Line[(x1,y1)](x2,y2)[,Color] 第一坐标（x1,y1）如省略则默认从 CorrentX和CurrentY为起点。画线的线型、线 宽、填充色取决于当前的DrawStyle 、 DrawWidth和DrawMode属性
8.2.3 AutoRedraw属性
显然，当AutoRedraw为True时，要占 用更多的内存资源，特别是当图形较大 并比且复杂时，较多的内存被占用，会 导致系统整体性能下降，所以一般将 AutoRedraw设置为Flase，如果又要重现 窗体或与片框里的内容，可以用后面介 绍的Paint事件。
例如：
8.1.2 用户自定义坐标系统
还可以用scale方法设置。 格式： [对象名.]scale[(x1,y1)-(x2,y2)] 其中(x1,y1)和(x2,y2)分别表示对象 的左上角和右下角坐标
8.1.3 图形容器
图形容器即可以加载图形或图像的对象
8.2 绘图属性与事件
8.2.1 CurrentX、CurrentY属性 Visual Basic中，窗体和图片框具有 CurrentX、CurrentY属性，经常用这两个属性 来设置当前绘图点，CurrentX、CurrentY只能 在代码编写时使用，下面给出了设置窗体和图 片框的CurrentX、CurrentY的方法： Form1. CurrentX=x Form1 .CurrentY=y Picture1.CurrentX=x Picture1.CurrentY=y
8.2.4容器控件的主要图形属性
4、FillColor和FillStyle属性 使用FillColor和FillStyle属性，可以对 已绘制好的封闭图形（圆、正方形等） 设置填充图案。FillStyle属性值0～7，对 应的填充图案分别为纯色、透明、横条 纹、竖条纹、上斜条纹、下斜条纹、交 叉条纹、斜交叉条纹。FillColor为填充色 属性。
8.4.2 画点、直线、矩形
2、画直线（Line方法） 画直线（Line方法） 方法 Line方法再指定的两点之间按指定的颜色 画一条直线。 格 式 ： [object.]Line[(x1,y1)](x2,y2)[,Color] 第一坐标（x1,y1）如省略则默认从 CorrentX和CurrentY为起点。画线的线型、线 宽、填充色取决于当前的DrawStyle 、 DrawWidth和DrawMode属性
8.2.3 AutoRedraw属性
显然，当AutoRedraw为True时，要占 用更多的内存资源，特别是当图形较大 并比且复杂时，较多的内存被占用，会 导致系统整体性能下降，所以一般将 AutoRedraw设置为Flase，如果又要重现 窗体或与片框里的内容，可以用后面介 绍的Paint事件。
例如：
8.1.2 用户自定义坐标系统
还可以用scale方法设置。 格式： [对象名.]scale[(x1,y1)-(x2,y2)] 其中(x1,y1)和(x2,y2)分别表示对象 的左上角和右下角坐标
8.1.3 图形容器
图形容器即可以加载图形或图像的对象
8.2 绘图属性与事件
8.2.1 CurrentX、CurrentY属性 Visual Basic中，窗体和图片框具有 CurrentX、CurrentY属性，经常用这两个属性 来设置当前绘图点，CurrentX、CurrentY只能 在代码编写时使用，下面给出了设置窗体和图 片框的CurrentX、CurrentY的方法： Form1. CurrentX=x Form1 .CurrentY=y Picture1.CurrentX=x Picture1.CurrentY=y
VB——第8章 图形操作
Visual Basic程序设计教程
中国石油大学(华东)石油工程学院
8.4 绘图方法
8.4.1 Line方法
画直线或矩形：
[对象.] Line [ [Step] (x1,y1)]－(x2,y2)[,颜色][,B[F]]
其中：对象可以是窗体或图形框。 (x1,y1) ，(x2,y2)为线段的起终点坐标或矩形的左上角右下 坐标。颜色为可选参数，指定画线的颜色，缺省取对象的前景 颜色，即ForeColor B表示画矩形，F表示用画矩形的颜色来填充矩形。 关键字Step表示采用当前作图位置的相对值，即从当前坐标移 动相应的步长后所得的点为画线起点。 Visual Basic程序设计教程
Visual Basic程序设计教程
中国石油大学(华东)石油工程学院
8.2 坐标系统
用户自定义坐标系统
1、设置坐标系统的刻度单位
列用户可用ScaleMode属性设置坐标系统的刻度单位。 ScaleMode属性的取值及含义参考教材。
Visual Basic程序设计教程
中国石油大学(华东)石油工程学院
3、使用系统定义的颜色常数
在VB系统中已经预先定义了常用颜色的颜色常数，如常数 vbRed就代表红色，vbGreen代表绿色等等。可“对象浏览 器”中查询常数列表，表11.7是系统预定义的最常用的颜色 常数。 例如，要将窗体的背景色设为红色。则可使用如下语句： Form1.BackColor = vbRed
4、直接使用颜色设置值
用十六进制数指定颜色的格式为： &HBBGGRR 其中，BB指定蓝颜色的值，GG指定绿颜色的值，RR指定红 颜色的值。每个数段都是两位十六进制数，即从00～FF。 例如， Form1.BackColor = &HFF0000 它相当于：Form1.BackColor = RGB(0, 0, 255) Visual Basic程序设计教程
《VB程序设计基础》文件 ppt课件
的驱动器名。Drive属性只能在程序运行时赋值，而不能通过属窗 口设置。
赋值语句格式：<盘驱动器列表框名>.Drive=<驱动器名> 格式中的“驱动器名”为指定的驱动器，也就是说使该驱动器成
为当前驱动器；如果所指定的驱动器在系统中不存在，则产生错误。
“驱动器名”字符串的第一个字符是有效字符（不区别大小写）， 语句Drive1.Drive="CDE"和Drive1.Drive="c:"作用相同，都是把当前 驱动器设置为c:盘。
项被突出显示，ListIndex的值发生改变，但Dir1.Path属性没有改变，可以在事件过程 Dir1_Click中写入语句“Dir1.Path = Dir1.List(Dir1.ListIndex)”，则可以在选择表项的同 时改变Dir1.Path属性为被选表项所对应的路径。
8.1.3 文件列表框控件
8.1.2 目录列表框控件
(3) ListIndex属性。ListIndex属性表示被选中表项的索引号。 目录列表框表项的索引号遵循以下规则：当前目录所对应的索引号为-1，当前目录的父
目录所对应的索引号为-2，当前目录父目录的父目录所对应的索引号为-3，依此类推；当 前目录的第1个子目录所对应的索引号为0，第2个子目录所对应的索引号为1，……当前 目录的最后一个子目录所对应的索引号为ListCount-1。 因此，ListIndex属性取值范围为-n～ListCount-1，其中-n为根目录所对应的索引号。 如在图8-2中，假定目录列表框Dir1的当前目录是“VB98”：目录“VB98”被选中时， Dir1.ListIndex属性值为-1；执行语句“Dir1.ListIndex=2”后，文件夹Tsql被突出显示；执 行语句“Dir1.ListIndex=0”后，文件夹Setup被突出显示；执行语句“Dir1.ListIndex=-3”后， 文件夹Program Files被突出显示。
赋值语句格式：<盘驱动器列表框名>.Drive=<驱动器名> 格式中的“驱动器名”为指定的驱动器，也就是说使该驱动器成
为当前驱动器；如果所指定的驱动器在系统中不存在，则产生错误。
“驱动器名”字符串的第一个字符是有效字符（不区别大小写）， 语句Drive1.Drive="CDE"和Drive1.Drive="c:"作用相同，都是把当前 驱动器设置为c:盘。
项被突出显示，ListIndex的值发生改变，但Dir1.Path属性没有改变，可以在事件过程 Dir1_Click中写入语句“Dir1.Path = Dir1.List(Dir1.ListIndex)”，则可以在选择表项的同 时改变Dir1.Path属性为被选表项所对应的路径。
8.1.3 文件列表框控件
8.1.2 目录列表框控件
(3) ListIndex属性。ListIndex属性表示被选中表项的索引号。 目录列表框表项的索引号遵循以下规则：当前目录所对应的索引号为-1，当前目录的父
目录所对应的索引号为-2，当前目录父目录的父目录所对应的索引号为-3，依此类推；当 前目录的第1个子目录所对应的索引号为0，第2个子目录所对应的索引号为1，……当前 目录的最后一个子目录所对应的索引号为ListCount-1。 因此，ListIndex属性取值范围为-n～ListCount-1，其中-n为根目录所对应的索引号。 如在图8-2中，假定目录列表框Dir1的当前目录是“VB98”：目录“VB98”被选中时， Dir1.ListIndex属性值为-1；执行语句“Dir1.ListIndex=2”后，文件夹Tsql被突出显示；执 行语句“Dir1.ListIndex=0”后，文件夹Setup被突出显示；执行语句“Dir1.ListIndex=-3”后， 文件夹Program Files被突出显示。
VB课件第八章
8.3绘图方法
8.3绘图方法
3. 线宽
直线的宽度是通过DrawWidth属性来设置的，其格式如下： [对象.] DrawWidth[=线宽] 下面的程序可显示出线条宽度的变化。 Private Sub Form_click() Dim I As Integer Pset(scalewidth/2,0) For I=1 to 100 Step 10 DrawWidth=I Line–Step(0,ScaleHeight) Next i End Sub 运行程序后，窗体上将画出一条逐渐变粗的线，如图所示。
8.3绘图方法
例如，要将窗体的背景色设为黑色。则可使用如 下语句： Form1.BackColor = vbblack (4)、直接使用颜色值 用十六进制数指定颜色的格式为： &HBBGGRR 其中，BB指定蓝颜色的值，GG指定绿颜色的值，RR指 定红颜色的值。每个数段都是两位十六进制数，即从 00～FF。 例如， Form1.BackColor = &HFF0000 它相当于：Form1.BackColor = RGB(0, 0, 255)
8.1 坐标系统
ScaleMode的值
含 义 用户自己定义 缺省值以Twip为单位
以打印机点为单位，1P=20Twit
0-User 1-Twip
2-Point
3-Pixel 4-Character 5-Inck 6-Millimeter
以相素点为单位 对应系统字符的大小 以英寸为单位 以毫米为单位
红色
绿色 蓝色 浅蓝色 紫红色 黄色 白色
8.3绘图方法
(2)QBColor函数
格式:颜色值=QBColor(color) 说明： 彩色值为0～15的整型数，分别代表16种颜 色，见书上表所示。
第8章VB图形设计
是指显示卡和显示器两者的分辨率。不同分辨率的显示器应与相 对应分辨率的显示卡配套使用,才能获得所希望达到的显示效果。
VB程序设计教程
沈美莉 马银晓 陈孟建 编著
10
第一节 坐标系统
3. 显示速度 显示速度是指显示图像或文字时的速度。由于显示分辨率和显示器的扫
描频率有关，显示分辨率高时,一个完整屏幕的像素点就增多了,所有像 素都要显示一遍,速度就要慢下来,这就需要提高扫描频率。 4. 颜色和灰度 颜色和灰度是衡量显示系统性能的又一重要参数。早期的显示卡MDA配单 色的显示器只能显示字符,仅有一般亮度和高亮度两种灰度，彩色显示系 统最多也只有16种颜色。而目前的颜色显示系统VGA,可达256种颜色甚至 更多。 5. 图形显示能力 图形显示能力是指屏幕上的每一个像素点可以设置成不同值的能力。早 期的单色显示系统MDA是字符型的,不支持图形显示,它的控制比较简单。 而随后出现的显示系统均能支持图形显示。
VB程序设计教程
沈美莉 马银晓 陈孟建 编著
9
第一节 坐标系统
三、图像分辨率
Visual Basic绘图中的点是以显示器像素为标准的，设置一个点 的颜色是设置窗体对应着的显示器的一个像素的颜色。
1. 显示器简介 显示器是计算机最主要的外部设备之一。显示系统由显示器和适
配卡(显示卡)组成,两者必须配对。 2. 显示分辨率 显示分辨率是指屏幕上有多少个基本像素点。显示系统的分辨率
功能：在<对象名>控件上，画出一条从( x1 , y1 )到( x2 , y2 )的线 段。其中[( x1 , y1 )]和[, <Color> ]为可选项。参数x和y既可以是整 数，又可以是小数。
运行该程序后，显示结果如下图所示。
VB程序设计教程
沈美莉 马银晓 陈孟建 编著
10
第一节 坐标系统
3. 显示速度 显示速度是指显示图像或文字时的速度。由于显示分辨率和显示器的扫
描频率有关，显示分辨率高时,一个完整屏幕的像素点就增多了,所有像 素都要显示一遍,速度就要慢下来,这就需要提高扫描频率。 4. 颜色和灰度 颜色和灰度是衡量显示系统性能的又一重要参数。早期的显示卡MDA配单 色的显示器只能显示字符,仅有一般亮度和高亮度两种灰度，彩色显示系 统最多也只有16种颜色。而目前的颜色显示系统VGA,可达256种颜色甚至 更多。 5. 图形显示能力 图形显示能力是指屏幕上的每一个像素点可以设置成不同值的能力。早 期的单色显示系统MDA是字符型的,不支持图形显示,它的控制比较简单。 而随后出现的显示系统均能支持图形显示。
VB程序设计教程
沈美莉 马银晓 陈孟建 编著
9
第一节 坐标系统
三、图像分辨率
Visual Basic绘图中的点是以显示器像素为标准的，设置一个点 的颜色是设置窗体对应着的显示器的一个像素的颜色。
1. 显示器简介 显示器是计算机最主要的外部设备之一。显示系统由显示器和适
配卡(显示卡)组成,两者必须配对。 2. 显示分辨率 显示分辨率是指屏幕上有多少个基本像素点。显示系统的分辨率
功能：在<对象名>控件上，画出一条从( x1 , y1 )到( x2 , y2 )的线 段。其中[( x1 , y1 )]和[, <Color> ]为可选项。参数x和y既可以是整 数，又可以是小数。
运行该程序后，显示结果如下图所示。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Size为数值表达式，其范围从 1 到 32767。该值 以像素为单位表示线宽。
本章目录
13
如例8.1电子贺卡程序中包含如下语句： Form1.DrawWidth = 6 该语句表示在名为Form1的窗体中设置绘制直线的 宽度为6像素。
DrawStyle属性决定线条样式，用于设置在窗体、 图片框或打印机上所画线的形状。 属性取值范围如书表8-2所示。
（1）使用Scale方法重新于背景要求出现颜色变换的点，故可用随机函数作 为QBColor函数的颜色参数以实现色彩的改变；
（4）调用画点的Pset方法实现绘制。
本章目录
4
8.2 坐标系统的设置
VB开发图形应用程序的首要步骤是定义图形载体对 象的坐标系统。 正如日常在纸上绘画前所做的布局考虑，只有确定 好坐标系统，才能绘制出精致的图形。 例8.1在窗体中画图，窗体就是容器。对象在容器中 的定位需要使用容器的坐标系统。 容器的坐标系统由默认坐标系统与自定义坐标系统 构成。
本章目录
5
8.2 坐标系统的设置
1.默认坐标系统
容器默认的坐标系统由三个要素构成：坐标原点、 坐标度量单位、坐标轴的长度与方向。 如书图8-2所示： 容器的左上角为坐标原点(0,0)，横向向右为x轴 的正方向，纵向向下为y轴的正方向。
本章目录
6
图8-2 窗体对象的默认坐标系统
本章目录
7
坐标度量单位由容器对象的ScaleMode属性决定。 ScaleMode属性值与对应的度量单位如表8-1所 示。其缺省时为Twip。
格式如下： QBColor(color) 说明：color参数是一个界于0～15之间的整型数， 分别代表16种颜色，如书表8-5所示。
例如：设置窗体（名为Form1）的背景色为红色。 也可使用如下语句： Form1.BackColor = QBColor(4)
本章目录
19
3. RGB函数
格式如下： RGB(red, green, blue) 说明：RGB函数的三个参数red、green、blue， 分别代表红、绿、蓝三原色的比例，每个参数的取 值为0～255之间。 这3个参数不同值的组合可以产生各种不同的颜 色。如书表8-6所示。 例如：设置窗体（名为Form1）的背景色为红 色。还可使用如下语句： Form1.BackColor = RGB(255, 0, 0)
第8章 图形设计
主讲：俆奕奕
2013-5-20
Visual Basic 程序设计实例教程
第8章 图形设计
8.1 导学实例 8.2 坐标系统的设置 8.3 绘图属性 8.4 图形控件 8.5 图形方法 8.6 综合应用 8.7 扩展与提高
本章目录
2
8.1 导学实例
图形能使程序的运行更生动，用户操作更 简洁。
本章目录
17
1.颜色常量
在VB系统中已经预先定义了8种基本颜色的颜 色常量，如书表 8-4所示。 例如：设置窗体（名为Form1）的背景色为红色。 则可使用如下语句： Form1.BackColor = &HFF 或：Form1.BackColor = vbRed
本章目录
18
2. QBColor函数
本章目录
[例8.4] 画点。 功能：使用Pset方法在图片框中任意位置绘制 100个五颜六色的点。 编程说明：
（1）使用随机函数Rnd获取参数x值和y值，从而确定绘制 点的坐标值； （2）调用Pset方法实现点的绘制； （3）由于需要呈现多彩的点的效果，故可用随机函数作为 QBColor函数的颜色参数以实现色彩的改变。
本章目录
8
同时VB还为对象的定位提供了Left、Top、Width和 Height四项属性：如图8-2所示，命令按钮置于窗体中， 命令按钮的Left和Top属性决定了其在窗体左上角的坐 标，Width和Height属性决定了它的大小。 注意： Width属性表示包括对象垂直边框线在内的宽度， Height属性表示包括对象的标题栏和水平边框线在 内的宽度。而实际的宽度与高度则由ScaleWidth 和 ScaleHeight属性来确定。
本章目录
20
[例8.3] 标签背景颜色变换。
功能：分别使用QBColor颜色函数和RGB颜色函数 定义两标签的背景颜色，并且实现背景颜色的实时 变换。 编程说明：
（1）由于要求实现颜色的自动变换，故分别添加计时器 Timer1和Timer2。 （2）QBColor颜色函数获取控制颜色函数的参数i值，RGB 颜色函数获取控制颜色函数的参数x、y与z值，随着时间的变 化，颜色函数的参数值不断改变从而实现标签背景颜色的变 换。
本章目录
30
（3）圆弧与扇形的绘制通过参数起始角，终止角控制， 单位是弧度。 当起始角、终止角取值在0-2时为圆弧； 当在起始角、终止角取值前加一负号时，画出扇形； 负号表示画圆心到圆弧的径向线； 省略这两个参数，则绘制圆或椭圆。 （4）椭圆通过长短轴比率控制。 默认值为1，绘制的是圆； 若值大于1，绘制的是直立的椭圆； 若值小于1，绘制的是扁平的椭圆。
本章目录
21
8.4 图形控件
8.4.1 直线控件
工具箱中的直线控件（Line）的图标为 ，该控 件可用于显示不同类型和宽度的直线。 该控件绘制直线的步骤如同所有工具箱中控件的使 用方法 。 直线控件的属性主要用于设置直线的线宽、线型及 颜色，如书表8-7、8-8所示。
本章目录
22
8.4.2 形状控件
本章目录
27
[例8.6] 画直线。 功能：使用Line方法在图片框中绘制100条五颜 六色的直线。 编程说明：
（1）使用Scale方法定义图片框的坐标系统；
（2）使用图片框的实际宽度（ScaleWidth属性）与高度 （ScaleHeight属性）的一半获取直线的起点坐标x1和y1的 值，通过随机函数获取终点坐标x2和y2值； （3）调用Line方法绘制直线； （4）直线色彩的改变同样使用随机函数获取QBColor函数 的颜色参数来实现。
工具箱中的形状控件（Shape）的图标为 ，该 控件用于显示矩形、正方形、椭圆、圆、圆角矩形 和圆角正方形。 该控件的使用方法与所有工具箱中的控件相同。 形状控件的常用属性有：BorderWidth属性、 BorderStyle属性、BorderColor属性、FillStyle 属性、FillColor属性、Shape属性等。
而VB则具有强大的图形功能，其不仅能通 过图形控件进行图形操作，而且还可以通 过图形方法在窗体或图片框中绘制各种图 形。
3
本章目录
1.实例
8.1 导学实例
[例8.1] 制作一张电子贺卡。 功能：当用鼠标单击窗体后，会显示“快乐学 VB！”的字幕，同时背景将会出现五颜六色的点， 并随着鼠标的单击不断变换点的显示位置。 编程说明：
本章目录
9
2.自定义坐标系统
格式如下： [对象.]Scale[(xLeft,yTop)-(xRight,yBottom)] （1）对象可以是窗体、图片框或打印机。 省略对象名，默认为窗体对象。 （2）参数(xLeft,yTop)定义对象左上角的坐标 值，参数(xRight,yBottom)定义对象右 下角的坐标值。
本章目录
11
8.3 绘图属性
8.3.1 CurrentX和CurrentY属性
CurrentX，CurrentY属性分别用于设置当前图形 或文本输出位置的x坐标值和y坐标值。 格式如下： [对象.]CurrentX [= x] [对象.]CurrentY [= y]
“对象”可以是窗体、图片框或打印机这些绘图时 所需的容器对象名称。
本章目录
23
8.5 图形方法
8.5.1 PSet方法
Pset方法用于在指定位置使用特定颜色画点。 格式如下： [对象.]Pset[Step](x,y)[,颜色] （1）“对象”可以是窗体、图片框或打印机的名称。 省略时，默认“对象”为窗体。 （2）参数(x,y)为所画点的坐标。x为横坐标，y为纵 坐标。
28
本章目录
[例8.7] 画矩形。 功能：使用Line方法在图片框中绘制多个彩色同 心矩形。运行界面如图8-12。 编程说明： 矩形与直线的绘制仅在Line方法的使用格式上添 加了关键字B。故该程序的设计思路与例8.6相似。
本章目录
29
8.5.3 Circle方法
Circle方法用于以指定坐标为圆心，在特定对象上 画圆、椭圆、圆弧和扇形。 使用格式如下： [对象.]Circle[[Step](x,y),半径[,颜色][,起始角] [,终止角][,长短轴比率]]] （1）“对象”与前几种绘图方法阐述的对象一致。 （2）参数(x,y)为圆心坐标，关键字Step表示采用 当前绘图位置的相对坐标值。
本章目录
16
8.3.5 颜色的设置
VB中颜色的设置可在设计时使用属性窗口完成， 或者使用程序中相应的语句来完成。 关于颜色的属性主要有：BackColor和ForeColor 属性,分别用于定义绘图区的背景颜色，显示的文本 或绘制图形的颜色即前景颜色。 进行颜色设置时，通常以十六进制数据表示颜色值， 但使用效果不够直观。故VB提供了一些颜色常量 和颜色函数，以便用户使用。
本章目录
14
如下语句：
Picture1.DrawStyle = 6 表示在图片框Picture1内设置绘制直线的样式为内实线。
本章目录
15
8.3.3 FillStyle和FillColor属性
FillStyle，FillColor这两个属性决定封闭图形的填 充方式与填充颜色。 FillStyle属性设置图形填充样式。属性的取值范围 与其对应的填充样式如书表8-3所示。
VB设置坐标的方式由“绝对坐标”与“相对坐标”构成
本章目录
24