VB6程序设计

不能。

功能上图片框比图像框强，但图像框使用的系统资源较少并且显示图形的速度较快。

设计时和运行时可以采用不同的途径把图片装入窗体、图片框和图像框中。设计时可以通过选择图片文件或粘贴剪贴板上图片方式加载图片，运行时可以使用LoadPicture函数或对象间图片的相互复制方式加载图片。

? 属性：AutoRedraw（图片框）、AutoSize（图片框）、Stretch（图像框）、

Align（图片框）等

? 事件：Click、Resize（图片框）等 ? 方法：Refresh等

2#P227[例9.7]如下图所示，选择“文件”菜单中的“打开”命令能显示“打开”对话框，从中选择图像文件可在完全窗体显示；“退出”命令可结束程序运行。如果图像太大，则可通过滚动条调整位置。

程序见2#0907

9.4.2 直线控件 9.4.3 形状控件

形状控件是图形控件，专门用于在窗体上绘制图形。利用Shape控件的一些属性设置就可以绘制出多种形状的图形，并可确定它们的颜色、填充样式、边框样式等。

9.5 应用举例

41

第五章 窗体和标准控件

第十章 程序调试与错误处理

10.1 错误类型

? 语法错误（Syntax Error） ? 运行错误（Run Time Error） ? 逻辑错误（Logic Error）

10.2 程序调试

查找并修改错误的过程称为调试。

在VB集成开发环境中，应用程序有三种工作模式：设计模式、运行模式、中断模式。

VB提供的调试工具包括断点、逐语句和逐过程执行，以及调试窗口等。

10.2.1 调试窗口

调试窗口是VB的重要调试工具，在逐条运行语句时可用调试窗口监视表达式和变量的值。有三个调试窗口：立即窗口、监视窗口和本地窗口。

10.2.2 断点调试

? 设置断点

通过菜单、工具栏上的工具、鼠标或键盘都可设置断点。 ? 使用立即窗口

直接在立即窗口输入Print（或？）方法，可获得当前程序中该参数的值，或在应用程序中使用Debug.Print语句也可以将信息直接输出到立即窗口。

10.2.3 跟踪调试

当一个应用程序的运行得不到正确的结果时，首先应估计出错的范围；再设置几个断点，将问题区域进行隔离；然后用逐语句、逐过程和跳出等调试工具，跟踪观察每个语句的执行效果。

10.3 错误处理

有一些运行错误是无法预料的，VB本身以提示错误信息并终止程序运行的方法，来处理程序运行中出现的各种错误。为了防止因运行错误而使应用程序中断，VB提供了对错误的捕获和处理能力，以防止致命错误的发生。

42

VB6程序设计

10.3.1 错误对象

在VB6.0中，提供了一个用于错误捕捉的对象Err，可通过该对象的属性和方法来实现错误的捕捉和处理。

Err对象的属性由错误源自动设置。VB可标识80多种运行错误，这些错误的代码可以在联机帮助中查到。

? Err对象的主要属性：Number、Description、Source ? Err对象的方法：Clear、Raise

10.3.2 错误陷阱

为了防止致命错误的发生，在VB应用程序中应采用错误陷阱的方法。设置错误陷阱的方法是使用命令：

On Error Goto 标号|Resume Next|Goto 0

10.3.3 错误处理程序

43

第五章 窗体和标准控件

第十一章 文件操作

在程序设计时，经常需要从磁盘上读取数据或将数据存储到磁盘上，这就需要对文件进行访问和操作。

11.1 文件系统控件

要进行文件的复制、移动等操作，必然要访问驱动器、文件夹。这就要用到文件系统控件。

11.1.1 DriveListBox控件

? 主要属性：Drive ? 主要事件：Change

11.1.2 DirListBox控件

? 主要属性：Path ? 主要事件：Change

11.1.3 FileListBox控件

? 主要属性：Archive、Hidden、Normal、ReadOnly、System、FileName、

ListIndex、ListCount、List、MultiSelect、Path、Selected ? 主要事件：PathChange、Click 例：

Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub

Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub

Private Sub File1_Click()

For i = 0 To File1.ListCount - 1 If File1.Selected(i) Then MsgBox File1.List(i) End If Next i End Sub

44