916031-Visual Basic大学应用教程-VB课件第11章
合集下载
Visual Basic程序设计实践教程的第11章
图11.1
编译错误
“自动语法检测”是VB默认的选项设置。如果需要修改 该选项，可以选择“工具”菜单中的“选项”，在弹出的对 话框的“编辑器”选项卡中改变“自动语法检测”设定。
在程序中不恰当地使用变量，也会引发编译错误。 按照VB的规定，变量可以不经声明而直接使用，此时变 量具有默认的Variant类型，对较小的程序而言这通常 不会带来麻烦，但当程序规模较大时，变量的使用混乱 可能造成错误，且不易被发现。
图11.5 在断点处中断运行
选择“运行”菜单中的“继续”，程序可以继续执行 ，直到程序结束或再次遇到断点。 通过观察变量或表达式的当前值，了解其在代码前后 的变化情况，就可以发现许多存在的问题和错误。某些 错误是由于输入代码时的疏忽造成的，例如写错了变量 名称、使用了对象不支持的属性或方法等，因为在中断 模式下可以直接修改代码，所以这类错误很容易得到更 正。当更正或改变了代码后，继续运行程序便可以验证 问题或错误是否得到了解决或纠正。
“立即”窗口是调试程序时使用最多的窗口。它最 容易使用，功能也最强。使用该窗口可以实现以下功 能。
设置运行断点通常有两种方法。
（1）在代码窗口中单击最左边的灰色区域，使之出现 一个棕色“●”标志，对应的代码行被同时加亮，则此 处便设置了一个断点。
（2）将光标移动到要设置断点的代码行，打开“调 试”菜单，选择“切换断点”，亦可设置一个断点。如 图11.4所示，设置了两个断点的情况。
图11.4
2．使用调试窗口 有些问题和错误往往需要通过对数据的变化进行分析 才能发现。当程序处于中断模式下时，可以使用3个调试 窗口来监视变量或表达式的值，它们是：“立即”窗口、 “监视”窗口和“本地”窗口。打开它们的菜单命令均位 于“视图”菜单下。
Visual Basic 程序设计教程第11章
坐标度量单位由容器对象的ScaleMode 属性决定，一共有8种单位形式，它的默认 值为twip，每英寸1 440个twip，20个twip 为1磅，这一度量单位规定的是对象打印时 的大小，屏幕上的实际物理距离可因显示 器尺寸而异。
设置ScaleMode属性只是改变了容器对 象的度量单位，而度量属性ScaleHeight、 ScaleWidth能确定对象内部水平方向和垂 直方向的单元数（即实际高度），VB会重 新定义对象坐标度量属性ScaleHeight和 ScaleWidth 以便使他们与新刻度保持一致。
4.Shape（形状
Shape控件可以用来画矩形、正方形、 椭圆、圆、圆角矩形及圆角正方形。 Shape控件刚被放到窗体时显示为一个 矩形，通过Shape属性可确定所需要的几何 图形，FillStyle属性为形状控件指定填充 的图案，也可利用FillColor属性为形状控 件着色。
图形框对象.Picture=LoadPicture(" 图形文件名")
２．Image（图像框）
在窗体上使用图像框容器。
图像框没有Autosize属性，但它有 Stretch属性。它的Stretch属性为False时， 图像框可以自动改变大小以适应其中的图 形的大小。Stretch属性为True时，加载到 图像框的图形可自动调整尺寸以适应图像 框的大小。
VB根据给定的坐标参数计算出 ScaleLeft，ScaleTop，ScaleWidth， ScaleHeight的值: 如：ScaleLeft=xleft ScaleWidth=xright-xleft ScaleTop=ytop ScaleHeight=ybotton-ytop
2.图形层
VB在构造图形时，在3个不同的屏幕层 次上放置图形的可视组成部分，就视觉效 果而言，最上层离用户最近，而最下层离 用户最远。
计算机基础与Visual Basic程序设计(第三版)第十一章 文件
第11章
数据文件
本章内容及要求：
1.掌握VB中文件的概念、种类及其结构； 2.掌握顺序文件的操作：打开、读/写、关闭； 3.掌握随机文件的操作：打开、读/写、关闭； 4.了解二进制文件的操作。 5.了解与文件操作有关的一些语句
第11章 数据文件
本章重点：
顺序文件的操作：打开、读/写、关闭； 随机文件的操作:打开、读/写、关闭；
11.3 文件操作语句和函数
与读文件操作有关的几个函数
（1）Lof 函数
LOF函数将返回某文件的字节数。例如，LOF(1)返回#1文件的长度，
如果返回0值，则表示该文件是一个空文件。 （2）Loc 函数
Loc函数将返回在一个打开文件中读写的记录号；对于二进制文件，
它将返回最近读写的一个字节的位臵。 （3）Eof 函数
11.2 文件概述
文件是存储在外部介质（如磁盘）上的以文件名标识的数据的集 合。通常由一组存放在磁盘上的相关字节组成。当应用程序要访问文 件时，必须自己决定文件中字节的意义（比如，表示字符、数据记录、 整数、字符串等等）。 存储在磁盘上的文件称为磁盘文件，与计算机相连的设备称为设备 文件。这些文件都不在计算机内，统称为外部文件。
1．顺序文件
顺序文件（Sequential File）是普通的文本文件。顺序文件中的记 录按顺序一个接一个地排列。读写文件存取记录时，都必须按记录顺序逐个 进行。一行一条记录（一项数据），记录可长可短，以“换行”字符为分隔 符号。
记录 1 记录 2 …… 记录 N 文件结束标志
二、文件分类
2．随机文件
11.1 文件系统控件
说明： 要使驱动器、目录和文件列表框同步显示，那么就需要编
写代码才能使它们之间彼此同步。
数据文件
本章内容及要求：
1.掌握VB中文件的概念、种类及其结构； 2.掌握顺序文件的操作：打开、读/写、关闭； 3.掌握随机文件的操作：打开、读/写、关闭； 4.了解二进制文件的操作。 5.了解与文件操作有关的一些语句
第11章 数据文件
本章重点：
顺序文件的操作：打开、读/写、关闭； 随机文件的操作:打开、读/写、关闭；
11.3 文件操作语句和函数
与读文件操作有关的几个函数
（1）Lof 函数
LOF函数将返回某文件的字节数。例如，LOF(1)返回#1文件的长度，
如果返回0值，则表示该文件是一个空文件。 （2）Loc 函数
Loc函数将返回在一个打开文件中读写的记录号；对于二进制文件，
它将返回最近读写的一个字节的位臵。 （3）Eof 函数
11.2 文件概述
文件是存储在外部介质（如磁盘）上的以文件名标识的数据的集 合。通常由一组存放在磁盘上的相关字节组成。当应用程序要访问文 件时，必须自己决定文件中字节的意义（比如，表示字符、数据记录、 整数、字符串等等）。 存储在磁盘上的文件称为磁盘文件，与计算机相连的设备称为设备 文件。这些文件都不在计算机内，统称为外部文件。
1．顺序文件
顺序文件（Sequential File）是普通的文本文件。顺序文件中的记 录按顺序一个接一个地排列。读写文件存取记录时，都必须按记录顺序逐个 进行。一行一条记录（一项数据），记录可长可短，以“换行”字符为分隔 符号。
记录 1 记录 2 …… 记录 N 文件结束标志
二、文件分类
2．随机文件
11.1 文件系统控件
说明： 要使驱动器、目录和文件列表框同步显示，那么就需要编
写代码才能使它们之间彼此同步。
Visual Basic 程序设计VB11
键盘事件
三个键盘事件 1、keypress事件 当按下一个ASCII码的键时，引发该事件 Sub<object>_keypress(keyascii as integer) 2、keydown事件 焦点位于对象，键盘按任一键 Sub <object>_keydown(keycode as integer,shift as integer) 3. keydown事件 焦点位于对象，键盘按键后松开 Sub <object>_keyup(keycode as integer,shift as integer)
MDI特性
属性、方法和事件 1、mdichild属性 为true时，该窗体为子窗体，否则为mdi 窗体 2、arrange方法 格式：mdi窗体名.arrange 方式 方式取0，1，2，3 3、queryunload 事件 在关闭窗体或结束应用程序之前发生。
MDI特性
Dim语句和windowstate属性 1、dim 语句的新用法 可以用来在mdi窗体中增加一个子窗体 如：dim achild as new form1 achild.show 2、windowstate属性 设置窗口的操作状态 取值0，1，2
鼠标其他事件
鼠标的事件 1. Click 2. Dblclick 3. Mousedown 4. Mouseup 5. Mousemove
绘图简单操作命令
1、画点 PSet (2000, 400), vbRed 2、画直线 Line (500, 500)-(2000, 2000), vbRed Line (500, 500)-(3000, 3000), vbRed, B ‘方框 Line (300, 300)-(1000, 1000), vbRed, BF ‘方块 3、画圆 Circle (1200, 1000), 750, vbBlue Circle (1600, 2200), 750, vbGreen, -pi / 2, -pi / 3 ‘弧 Circle (1800, 2200), 750, vbRed, , , 1 / 3 ‘椭圆
vb第11章
2. 保持各文件系统控件的同步 保持各文件系统控件的同步 若要使驱动器列表框、 若要使驱动器列表框、目录列表框和文件列表框保 持同步，需要如下两个事件过程： 持同步，需要如下两个事件过程：
Path（路径）属性是目录列表框的重要属性之一， （路径）属性是目录列表框的重要属性之一， 用来设置和返回当前的路径。 用来设置和返回当前的路径。上面事件过程中的 dirTest.Path返回当前的路径。 返回当前的路径。 返回当前的路径
到目前为止， 到目前为止，窗体中的驱动器列表框和目录列表框 相互之间尚未建立联系，也就是说， 相互之间尚未建立联系，也就是说，改变驱动器名 称时，目录列表框中内容不能随之变化。 称时，目录列表框中内容不能随之变化。若要把驱 动器列表框和目录列表框结合起来用，使二者“ 动器列表框和目录列表框结合起来用，使二者“同 需要编写如下程序： 步”，需要编写如下程序：
图11.5
双击一个目录，使其被打开， 双击一个目录，使其被打开，触发目录列表框的 Change事件，程序如下： 事件， 事件 程序如下：
Private Sub dirTest_Change() MsgBox ″选中的目录是：″ +dirTest.Path 选中的目录是： 选中的目录是 End Sub
图11.4
11.2 目录列表框
窗体的布局， 【例11.2】调整图 】调整图11.2窗体的布局，添加一个目录 窗体的布局 列表框dirTest，窗体如图 所示。 列表框 ，窗体如图11.5所示。当选中某个驱 所示 动器后， 动器后，将该驱动器的文件夹目录显示在目录列表 框中。如果选中某个目录， 框中。如果选中某个目录，用消息框显示被选中目 录名。 录名。 目录列表框控件的属性设置如表11.2（见书 目录列表框
Visual Basic程序设计教程第十一章
14
• （2）QBColor函数 • QBColor函数QuickBasic所使用的16种 颜色，其函数格式为： • QBColor(x)
15
• （3）用长整型代码 • RGB函数与QBColor函数实际上都返回 一个十六进制的长整数。这个数从左到 右，每2位一组代表一种基色，它们的 顺序是蓝绿红。因此也可直接使用6位 的十六进制颜色代码。在色彩的属性设 置框中可以看到这些代码（例如 &H000000&表示黑色，&H0000FF&表 示红色等）。 16
2
• vb使用的度量单位
符号常量
vbUser vbTwios vbPoints vbPixels
vbCharact ers vbInches vbMilimet ers vbCentime ters
设置 值 0 1 2 3 4 5 6 7
描
述
自定义值 缇（Twip），缺省值，1cm=567Twip 磅，1镑=20缇 像素点，监视器或打印机分辨率最小的 单位 字符，水平 1 个单位 =120 缇，垂直 1 个单 位=240缇 英寸 毫米
• 2．DrawWidth（线宽）属性 • 窗体、图片框或打印机的DrawWidth属 性给出这些对象上所画线的宽度或点的 大小。 • DrawWidth属性格式： • [对象．]DrawWidth [=n] • 功能：设置容器输出的线宽。
9
• 3．DrawStyle（线型）属性 • 窗体、图片框或打印机的DrawStyle属性 给出这些对象上所画线的形状
11
• 5．FillStyle和FillColor属性 • 封闭图形的填充方式由FillStyle和 FillColor属性决定。 • FillColor属性指定填充图案的颜色，缺 省的颜色ForeColor相同。FillStyle属性 指定填充的图案，共有8种内部图案
• （2）QBColor函数 • QBColor函数QuickBasic所使用的16种 颜色，其函数格式为： • QBColor(x)
15
• （3）用长整型代码 • RGB函数与QBColor函数实际上都返回 一个十六进制的长整数。这个数从左到 右，每2位一组代表一种基色，它们的 顺序是蓝绿红。因此也可直接使用6位 的十六进制颜色代码。在色彩的属性设 置框中可以看到这些代码（例如 &H000000&表示黑色，&H0000FF&表 示红色等）。 16
2
• vb使用的度量单位
符号常量
vbUser vbTwios vbPoints vbPixels
vbCharact ers vbInches vbMilimet ers vbCentime ters
设置 值 0 1 2 3 4 5 6 7
描
述
自定义值 缇（Twip），缺省值，1cm=567Twip 磅，1镑=20缇 像素点，监视器或打印机分辨率最小的 单位 字符，水平 1 个单位 =120 缇，垂直 1 个单 位=240缇 英寸 毫米
• 2．DrawWidth（线宽）属性 • 窗体、图片框或打印机的DrawWidth属 性给出这些对象上所画线的宽度或点的 大小。 • DrawWidth属性格式： • [对象．]DrawWidth [=n] • 功能：设置容器输出的线宽。
9
• 3．DrawStyle（线型）属性 • 窗体、图片框或打印机的DrawStyle属性 给出这些对象上所画线的形状
11
• 5．FillStyle和FillColor属性 • 封闭图形的填充方式由FillStyle和 FillColor属性决定。 • FillColor属性指定填充图案的颜色，缺 省的颜色ForeColor相同。FillStyle属性 指定填充的图案，共有8种内部图案
VB基础教程第十一章
11.4 访问数据库
11.4.1 数据访问接口 ADO是Microsoft公司在VB6.0中最新推出的数据访 问策略，实际是一种访问各种数据类型的访问机制。 本章主要介绍关于ADO数据访问的方法。 11.4.2 ADO对象模型数据访问 1．ADO对象模型简介 ADO数据对象模型包括如表11-4所示的可编程对象。
1．数据表 数据表是一组相关联的数据按行和列排列形成的 二维表格，简称为表。 2．字段、记录
数据表一般都是多行和多列构成的集合。每一列
称为一个字段（Field）。 3．关键字 如果数据表中某个字段值能唯一地确定一个记录， 则称该字段名为候选关键字。
4．索引 索引是为了加快访问数据库的速度并提高访问效 率，特别赋予数据表中的某一个字段的性质，使得数 据表中的记录按照该字段的某种方式排序。 5．关系型数据库的分类 在VB中，关系型数据库一般可以分为两类：一类 是本地数据库，如Access、FoxPro等；另一类就是客 户/服务器数据库。
（3）格式二 Insert Into <目标表名>（<字段1> [，<字段 2>„]）Values（<值1> [，<值2>„]） 说明：值1、值2等表达式的顺序位置与字段1、字 段2的顺序对应一致。用此命令可插入一个记录，并对 字段赋值。 例如：向数据表中加入一条新的记录。 Insert Into 学生成绩（学号，姓名，专业，高 数，计算机，英语） Values（'992308'，'王政'，'交通'，85，75， 90）
表11-3列出了常用的SQL语句的关键字。 表11-3 常用SQL语句关键字
1．Select语句 （1）语句功能
《Visual Basic程序设计项目化案例教程》课件第11章
2) 常用事件 常用事件为Change事件。当用户在驱动器列表框的下拉 列表中选择一个驱动器，或输入一个合法的驱动器标识符， 或在程序中给Drive属性赋一个新的值时就会触发Change 事件。
2．目录列表框 目录列表框显示系统的当前驱动器目录结构，并突出显 示当前目录。 1) 常用属性 (1) Name属性。目录列表框的Name属性通常以“Dir” 作为前缀。缺省时，Name属性为“Dir1”。 (2) Path属性。该属性用来设置和返回目录列表框中的 当前目录。它只能在程序代码中设置，不能在属性窗口中设 置。
【案例】 文件浏览器 【本章小结】
【案例】 文 件 浏 览 器
一、案例效果 程序运行后，用户可以在驱动器列表框中选择目标文件 的路径，并且文件列表框能过滤出所有的文本文件。当用户 在文件列表框中单击某文本的文件名后，在Text1中显示文件 名(包括路径)，在Text2中显示该文件的内容。当用户在文件 列表框中双击某文件名后，调用记事本程序对文本文件进行 编辑。本案例的界面设计如图11-1所示。
例如：
File1.ListIndex=2 此语句表示选中文件列表框中的第三项。 2) 常用事件 (1) PathChange事件。当文件列表框的Path属性改变时 触发该事件。 (2) PatternChange事件。当文件列表框的Pattern属性在程 序代码中被改变时触发该事件。
4．打开文件的Open语句 在对文件进行任何操作之前，必须先打开文件，同时通 知操作系统对文件进行读操作或写操作。打开文件的命令是 Open，其语句格式为： Open 文件名 For 模式 As [#]文件号 [Len=记录长度]
对象 窗体
文本 框
标签 驱动器列 表框 目录列 表框 文件列 表框
《新编中文Visual Basic 6.0基础操作教程》第11章
新编中文Visual Basic 6.0基础操作教程
语法及编译错误是由于不正确的使用代码造成的，如输入 关键字不正确、函数或过程调用方式不正确、循环语句
For…Next不配套等，这些错误非常容易发现并排除。VB有自
动语法检查功能，如果出现语法错误会提醒用户注意。要使用 这个功能，单击“工具”→“选项”命令，在弹出的“选项” 对话框中单击“编辑器”标签，选中“自动语法检测”复选框， 单击“确定”按钮即可。
错误，这种错误是可以捕获的，即可以由VB检测出来，要处理
这些错误需要使用VB的错误处理语句。
新编中文Visual Basic 6.0基础操作教程
逻辑错误是所有由于对程序如何运行的错误理解而导致的 错误，它使程序产生不正确或是与预期结果不同的结果。逻辑 错误不能被VB检测出来，然而却在所有错误中占据很大的一个 比例，这种错误非常隐蔽，也是程序调试中最难发现和处理的。 程序开发人员必须使用VB提供的各种调试工具找到出错的地方，
GoTo 语句后面的标号后不能加冒号。
如果要关闭错误捕获，只需要使用On Error GoTo 0语句就 可以了。
新编中文Visual Basic 6.0基础操作教程
二、Resume语句 在错误处理程序段中，处理了错误之后需要决定程序下面 的动作，这可以使用Resume语句来完成。VB中提供的Resume， Resume Next和Resume Line语句在此统称为Resume
语句。
当程序中出现了一个可捕获的错误后，Resume语句将返回 到出错语句处执行，即允许用户再尝试引进错误的操作。例如， 当用户打开一个文件出错时，可以使用该语句使用户再次尝试 打开文件的操作。
新编中文Visual Basic 6.0基础操作教程
VB教程 (11)
17 Visual Basic程序设计教程
11.5.2 使用“通用对话框” 1．“属性页”对话框 利用“属性页”对话框可以对不同类型的对话框进 行属性设置
18
Visual Basic程序设计教程
2. “通用对话框”的基本属性和方法 ·“通用对话框”的基本属性 （1） Name 设置“通用对话框”控件名称， （2）Action 设置打开哪种对话框 Action属性只能在程序中通过代码设置。 （3）CancelError 设置在使用对话框时，单 击“取消”按钮是否产生错误信息。缺省值为 False
29
Visual Basic程序设计教程
属性
说明
Flags FontName FontSize FontBold FontItalic FontStrikethru FontUnderline Max、Min
显示“字体”对话框之前必须设置Flags属性。 选择的字体名称 选择的字体大小 是否粗体 是否斜体 是否具有删除线 是否具有下划线 设置对话框中“大小”列表框的字号最大值和最小值
12 Visual Basic程序设计教程
【例11-2】设计多窗体应用程序，界面如图11.2所示。
程序中有三个窗体Form1、Form2和Form3，分别作为主窗 体、输入成绩窗体和计算结果显示窗体。根据窗体间数 据访问方式的不同，还可以有一个标准模块文件，用于 对多窗体共用的全局变量进行声明。
13
Visual Basic程序设计教程
【例11-3】设计一个
应用程序，如图所示。当 选择“浏览图片”按钮， 弹出打开文件对话框，从 中选择一个BMP位图文件 并单击“确定”按钮后， 在图片框中显示该图片； 当选择“结束”按钮结束 程序运行。
24 Visual Basic程序设计教程
11.5.2 使用“通用对话框” 1．“属性页”对话框 利用“属性页”对话框可以对不同类型的对话框进 行属性设置
18
Visual Basic程序设计教程
2. “通用对话框”的基本属性和方法 ·“通用对话框”的基本属性 （1） Name 设置“通用对话框”控件名称， （2）Action 设置打开哪种对话框 Action属性只能在程序中通过代码设置。 （3）CancelError 设置在使用对话框时，单 击“取消”按钮是否产生错误信息。缺省值为 False
29
Visual Basic程序设计教程
属性
说明
Flags FontName FontSize FontBold FontItalic FontStrikethru FontUnderline Max、Min
显示“字体”对话框之前必须设置Flags属性。 选择的字体名称 选择的字体大小 是否粗体 是否斜体 是否具有删除线 是否具有下划线 设置对话框中“大小”列表框的字号最大值和最小值
12 Visual Basic程序设计教程
【例11-2】设计多窗体应用程序，界面如图11.2所示。
程序中有三个窗体Form1、Form2和Form3，分别作为主窗 体、输入成绩窗体和计算结果显示窗体。根据窗体间数 据访问方式的不同，还可以有一个标准模块文件，用于 对多窗体共用的全局变量进行声明。
13
Visual Basic程序设计教程
【例11-3】设计一个
应用程序，如图所示。当 选择“浏览图片”按钮， 弹出打开文件对话框，从 中选择一个BMP位图文件 并单击“确定”按钮后， 在图片框中显示该图片； 当选择“结束”按钮结束 程序运行。
24 Visual Basic程序设计教程
Visual Basic第9--11章课件
10.1.5 程序举例
第9章 变量与过程的作用域
10.2 枚举类型
10.2.1 枚举类型的概念
当一个变量只有几种可能的值时，可以定义为枚举
类型。所谓“枚举”是指将变量的值一一列举出来，变
量的值只限于列举出来的值的范围内。 例如，可以把与“星期”相关联的一组整数常数声明 为一个枚举类型，然后在代码中使用“星期”的名称而 不使用其整数数值。
决定了哪些子过程和函数过程可访问该变量。 在VB中，可以在过程或模块中声明变量，根据声 明变量的位置，变量分为两类：过程级变量（Procedure level）和模块级变量（Module level）。 按照作用范围分类，过程级变量属于局部变量，而 模块级变量则属于全局变量。
第9章 变量与过程的作用域
第9章 变量与过程的作用域
9.1.2 标准模块
标准模块保存在扩展名为.bas的文件中，缺省时应用
程序中不包含标准模块。标准模块可以包含公有或模块 级的变量、常数、类型、外部过程和全局过程的全局声 明或模块级声明。缺省时，标准模块中的代码是公有的， 任何窗体或模块中的事件过程或通用过程都可以调用它。
标准模 块
窗体
标准模块
过程名前加 Private 能 不能 能 不能
过程名前加Public或缺省
能 能，但必须 在过程名前 加窗体名 能 能，但过程名必 须唯一，否则要 加标准模块名
第9章 变量与过程的作用域
9.4 高级变量
9.4.1 使用多个同名的变量
如果不同模块中的公有变量使用同一名字，通过 同时引用模块名和变量名就可以在代码中区分它们。
第9章 变量与过程的作用域
10.3 滚动条控件
滚动条常用来附在窗体上协助观察数据或确定位置， 也可用来作为数据输入的工具。无论何时，只要应用程 序或控件所包含的信息超过当前窗口所能显示的信息，
第11章 程序调试与错误处理
标号是一种标识符，其命名方式和变量的命名一样，以字母开始， 以冒号结束。
例如，若On Error语句为如下形式：
On Error GoTo ErrorHandler 或
On Error GoTo ErrorHandler：
则其中的“ErrorHandler”就是一个自定义的标号。
11.5 错误捕捉与处理
Visual Basic程序设计教程
Visual Basic programming tutorial
第11章 程序调试与错误处理
例11.1 窗体单击时输入6个整数，求出最大值并输出。
代码如下：
Private Sub Form_Click() 1 Dim a（5） As Integer 2 Dim i As Integer 3 Dim max As Integer 4 For i = 0 To 5 5 a(i) = Val(InputBox("输入一个整数")) 6 Next i 7 max = a(0) 8 For i = 1 To 5 9 If max < a(i) Then max = a(i) 10 Next i 11 For i = 0 To 5 12 Print a(i) 13 Next i 14 Print "MAX="; max End Sub
（2）On Error Resume Next 语句 使程序转移到发生错误的语句之后的下一条语句 。
（3）On Error GoTo 0 语句：取消错误捕获。
2. 编写错误处理程序
错误处理程序含有处理错误的实际操作代码，与On Error语句在同一个 过程中。它是一个程序段，而不是一个过程，因此也常称之为错误处理 例程或错误处理代码。
例如，若On Error语句为如下形式：
On Error GoTo ErrorHandler 或
On Error GoTo ErrorHandler：
则其中的“ErrorHandler”就是一个自定义的标号。
11.5 错误捕捉与处理
Visual Basic程序设计教程
Visual Basic programming tutorial
第11章 程序调试与错误处理
例11.1 窗体单击时输入6个整数，求出最大值并输出。
代码如下：
Private Sub Form_Click() 1 Dim a（5） As Integer 2 Dim i As Integer 3 Dim max As Integer 4 For i = 0 To 5 5 a(i) = Val(InputBox("输入一个整数")) 6 Next i 7 max = a(0) 8 For i = 1 To 5 9 If max < a(i) Then max = a(i) 10 Next i 11 For i = 0 To 5 12 Print a(i) 13 Next i 14 Print "MAX="; max End Sub
（2）On Error Resume Next 语句 使程序转移到发生错误的语句之后的下一条语句 。
（3）On Error GoTo 0 语句：取消错误捕获。
2. 编写错误处理程序
错误处理程序含有处理错误的实际操作代码，与On Error语句在同一个 过程中。它是一个程序段，而不是一个过程，因此也常称之为错误处理 例程或错误处理代码。
VB教程 全套课件 vb-11
•FindFirst 、 FindLast 、 FindNext 、 FindPrevious 方 法 可 在 指 定 的 Dynaset或Snapshot类型的记录集对象中查找。
•Seek方法在Table表中查找。 Nomarch属性可判定是否找到。
例11.3 在窗体上用Move方法代替数据控件对象的4个箭头的操作。
工具箱内数 据控件图标 形状 画在窗体 上的外观
能够利用三种记录集对象访问数据库中的数据，连接方法：
连接属性 Connect DatabaseName RecordSource RecordType Data控件属性说明 指定数据控件所要连接的数据库类型。 指定具体使用的数据库文件名，包括所有的路径名。 确定具体可访问的数据，这些数据构成记录集对象。 确定记录集类型。
注： RecordSource属性可以是数据库中的单个表名，也可以是使用SQL查 询语言的一个查询字符串。如果连接的是单表数据库，则DatabaseName 属性应设置为数据库文件所在的子目录名，而具体文件名放在 RecordSource属性中。
数据控件只能连接数据库产生记录集，不能显示记录集中的数据，要显 示记录集中的数据必须通过能与它绑定的控件来实现。
连接操作------鼠标右击ADO控件，选择快捷菜单 “ADODC属性”命令，打
开ADO控件属性页窗：
单击
选定
选定数 据库
选定
设置完成后，ADO控件的ConnectionString属性为： Provider=Microsoft.Jet.OLEDB.3.51; Persist Security Info=False; Data Source=Student.mdb
11.5.2 使用SELECT语句查询
Visual Basic 程序设计案例教程第11讲
Function过程
• Function过程的定义
– Function过程定义的格式为 [Static][Private][Public]Function函数名（[形 参表]） [As类型] [语句块] [函数名=表达式] [Exit Function] [语句块] End Function
Function过程
参数传送
• 传地址 【例8.5】编写程序，试验引用方式传送参数。 Sub tryout(x As Integer ,y As Integer) x=x+100 y=y*6 Print "x=";x, "y=";y End Sub Sub Form_Click() Dim a As Integer, b As Integer a=10:b=20 tryout a,b Print "a=";a, "b=";b End Sub
• Function过程的定义
– 说明： (1) Function过程以Function开头，以End Function结 束，在两者之间是描述过程操作的语句块，即“过程 体”或“函数体”。 (2) 函数名即函数过程的名称，命名规则与变量相同。 (3) 表达式的值是函数返回的结果，通过赋值语句将其赋 给函数名。 (4)不能在事件过程中定义通用过程（包括Sub过程和 Function过程），只能在事件过程内调用通用过程。
Sub过程
• Sub过程的建立
– 定义Sub过程
• 说明： (4) 过程名：命名规则与变量命名规则相同。 (5) 形参表：含有在调用时传送给该过程的简单变量 名或数组名，各参数名之间用逗号隔开。 (6) Exit Sub语句表示立即退出过程，一般出现在选 择结构中。 (7) End Sub标志着Sub过程的结束。 (8) Sub过程不能嵌套定义。
vb11
6.窗体布局（ Layout)窗口 6.窗体布局（Form Layout)窗口 窗体布局
用来调整窗体在屏幕位置的工具。 用来调整窗体在屏幕位置的工具。 窗体布局窗口” “视图”-> “窗体布局窗口”->拖动鼠标 视图” 窗体布局窗口
简单的VB VB程序设计 第2章 简单的VB程序设计
掌握Vb中对象、事件、 掌握Vb中对象、事件、方 Vb中对象 法等基本概念以及建立一个简 单的应用程序的基本方法； 单的应用程序的基本方法； 重点掌握窗体、标签、 重点掌握窗体、标签、文 窗体 本框和命令按钮4 本框和命令按钮4个最基本控件 的使用方法。 的使用方法。学会使用工程资 源管理器对工程的管理。 源管理器对工程的管理。
3)工程资源管理器的使用 3)工程资源管理器的使用
主要用来管理项目文件。 主要用来管理项目文件。 对一个窗体文件： 对一个窗体文件： 单击“查看对象”按钮， 单击“查看对象”按钮，就可打开该 窗体； 窗体； 单击“查看代码”按钮， 单击“查看代码”按钮，出现窗体所 对应的代码。 对应的代码。 添加、删除和保存文件的方法： 添加、删除和保存文件的方法：右击 工程” “工程”，从快捷菜单中选择相应的菜单 命令。 命令。
2)属性 Properties)窗口 属性（ 2)属性（Properties)窗口
属性是对象的特性， 属性是对象的特性，属性窗口中列 出了所选取对象的属性及其值， 出了所选取对象的属性及其值，可在设 计时改变属性。 计时改变属性。
(1)启动属性窗口 (1)启动属性窗口 单击工具栏“属性窗口”按钮，或 单击工具栏“属性窗口”按钮， 视图/属性窗口”命令。 者“视图/属性窗口”命令。
第1章 Visual Basic程序设计概述 程序设计概述
vb第十一章
14
图形 矩形 正方形 椭圆形 圆形 圆角矩形 圆角正方形
第11章 图形、图像和动画 11章 图形、
11.4 绘图方法
VB还提供了一些绘图方法，如Pset、Line、Circle、 Point、Cls等，这些方法一般写在窗体或图片框的Paint 事件过程中。 VB中主要绘图方法的语法如下。 1. 画点方法Pset 在指定位置(x, y)，按指定的颜色Color画点。语法为： [Object.] Pset [Step] (x, y), [Color] 其中Step表示相对于当前坐标（CurrentX，CurrentY） 的相对坐标。
13
第11章 图形、图像和动画 11章 图形、
11.3 图形控件
VB的控件工具箱中有两种绘图控件：形状控件（Shape） 和直线控件（Line）。这两个控件不支持任何事件，只用于 表面装饰。 通过设置Shape对象的Shape属性实现所需的 形状。 表11－7 Shape对象Shape属性值
设置值 0 1 2 3 4 5 常数 VbShapeRectangle VbShapeSquare VbShapeOval VbShapeCircle VbShapeRoundedRectangle VbShapeRoundedSquare
9
第11章 图形、图像和动画 11章 图形、
11.2 绘图属性
1. 当前坐标 窗体或图片框的CurrentX、CurrentY属性给出在这些对 象中用绘图方法作图时的当前坐标。 2. 线宽 窗体或图片框的DrawWidth属性给出在这些对象中用绘 图方法画线的宽度或点的大小。DrawWidth属性以像素 点为单位，最小值为1。 如果使用控件作图，则通过BorderWidth属性定义线的 宽度和点的大小。
图形 矩形 正方形 椭圆形 圆形 圆角矩形 圆角正方形
第11章 图形、图像和动画 11章 图形、
11.4 绘图方法
VB还提供了一些绘图方法，如Pset、Line、Circle、 Point、Cls等，这些方法一般写在窗体或图片框的Paint 事件过程中。 VB中主要绘图方法的语法如下。 1. 画点方法Pset 在指定位置(x, y)，按指定的颜色Color画点。语法为： [Object.] Pset [Step] (x, y), [Color] 其中Step表示相对于当前坐标（CurrentX，CurrentY） 的相对坐标。
13
第11章 图形、图像和动画 11章 图形、
11.3 图形控件
VB的控件工具箱中有两种绘图控件：形状控件（Shape） 和直线控件（Line）。这两个控件不支持任何事件，只用于 表面装饰。 通过设置Shape对象的Shape属性实现所需的 形状。 表11－7 Shape对象Shape属性值
设置值 0 1 2 3 4 5 常数 VbShapeRectangle VbShapeSquare VbShapeOval VbShapeCircle VbShapeRoundedRectangle VbShapeRoundedSquare
9
第11章 图形、图像和动画 11章 图形、
11.2 绘图属性
1. 当前坐标 窗体或图片框的CurrentX、CurrentY属性给出在这些对 象中用绘图方法作图时的当前坐标。 2. 线宽 窗体或图片框的DrawWidth属性给出在这些对象中用绘 图方法画线的宽度或点的大小。DrawWidth属性以像素 点为单位，最小值为1。 如果使用控件作图，则通过BorderWidth属性定义线的 宽度和点的大小。
VB教程第11章教案资料PPT课件
3. 菜单项显示区位于菜单编辑器窗口的下部，输入 的菜单在这里显示出来，并通过内缩符号（…）表明菜 单项的层次。条形光标所在的菜单项是“当前菜单 项” 。
除分隔线以外的所有菜单元素都能识别Click事件
-
6
主页
Байду номын сангаас
11. 3 菜单编辑器
例11.1 编写程序，进行两个操作数的算术运算练习
设计步骤如下：
(1)创建应用程序的用户界面和设置对象属性 菜单栏向用户 提供功能选择，包括运算数的位数，运算符类型(加、减、乘)和 退出程序
-
2
退出 主页
11.1 Visual Basic中的菜单
应用程序通过菜单为用户提供一组命令 菜单一般分为两种：下拉式菜单和弹出式菜单
下拉式菜单
下拉式菜单基本结构包括：顶层菜单、菜单项和子菜单
顶层菜单 菜单项
复选标记 分隔线
访问键 快捷键 子菜单提示符
子菜单项
-
3
主页
11. 2 菜单编辑器（知识点）
Private Sub Form_Load()
sel1 = 0
'位数标记
sel2 = ""
'运算标记
Randomize
End Sub
Private Sub Mnu11_Click()
'单击“一位数”菜单项
sel1 = 1
'设置位数标记
End Sub
Private Sub Mnu12_Click()
'单击“二位数”菜单项
内缩符号
无 1 1 1 无 1 1 1 无
热键
无
Ctrl+A Ctrl+B Ctrl+C
除分隔线以外的所有菜单元素都能识别Click事件
-
6
主页
Байду номын сангаас
11. 3 菜单编辑器
例11.1 编写程序，进行两个操作数的算术运算练习
设计步骤如下：
(1)创建应用程序的用户界面和设置对象属性 菜单栏向用户 提供功能选择，包括运算数的位数，运算符类型(加、减、乘)和 退出程序
-
2
退出 主页
11.1 Visual Basic中的菜单
应用程序通过菜单为用户提供一组命令 菜单一般分为两种：下拉式菜单和弹出式菜单
下拉式菜单
下拉式菜单基本结构包括：顶层菜单、菜单项和子菜单
顶层菜单 菜单项
复选标记 分隔线
访问键 快捷键 子菜单提示符
子菜单项
-
3
主页
11. 2 菜单编辑器（知识点）
Private Sub Form_Load()
sel1 = 0
'位数标记
sel2 = ""
'运算标记
Randomize
End Sub
Private Sub Mnu11_Click()
'单击“一位数”菜单项
sel1 = 1
'设置位数标记
End Sub
Private Sub Mnu12_Click()
'单击“二位数”菜单项
内缩符号
无 1 1 1 无 1 1 1 无
热键
无
Ctrl+A Ctrl+B Ctrl+C
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
11.2.1 打包应用程序
④ 添加其他文件 。 ⑤ 选择发布类型。
6
VB程序设计与数据库应用
11.2.1 打包应用程序
⑥ 指定安装标题。 ⑦指明要建立的图标组和图标。 ⑧选择安装位置。
7
VB程序设计与数据库应用
11.2.1 打包应用程序
⑨设置共享文件 。 ⑩ 脚本与报表 。
8
VB程序设计与数据库应用
11.2.2 发布应用程序
①选择一个要发布的包 。 ② 选择发布的方法。
9
VB程序设计与数据库应用
11.2.2 发布应用程序
③ 选择发布应用程序的媒体
④脚本名称
10
VB程序设计与数据库应用
11.2.3 管理脚本
“管理脚本”选项可以完成如下功能： 查看所有打包或部署脚本的列表。 重命名一个脚本。 创建一个具有新名字的脚本副本。 删除不再需要的脚本。
11
VB程序设计与数据库应用
11.3 运行安装程序
确保在一台没有VB及应用程序所需的任何 ActiveX控件的机器上测试安装程序。还应该 在所有可用的操作系统上测试该安装程序。
12
VB程序设计与数/删除程序”来 卸载应用程序。
13
VB程序设计与数据库应用
第11章 发布Visual Basic应用程序
11.1 设置工程的版本信息 11.2 应用程序的打包和发布 11.3 运行安装程序 11.4 卸载应用程序
1
VB程序设计与数据库应用
11.1 设置工程的版本信息
通过在“工程属性”对话框中设置一些属性来 告诉用户一些重要的信息
2
VB程序设计与数据库应用
11.2 应用程序的打包和发布
打包和发布向导提供了三个选项：
– 打包 – 发布 – 管理脚本
3
VB程序设计与数据库应用
11.2.1 打包应用程序
① 启动打包和发布向导并选择工程文件。 ② 选择打包类型。
4
VB程序设计与数据库应用
11.2.1 打包应用程序
③ 建立文件夹 。
5
VB程序设计与数据库应用