data8.dat

学习VB的经典资料 vb一点通 看后很快就会了 初学者的帮手

VisualBasic运行错误：
　　某些错误只在程序在运行时发生，而且是不可避免的。例如：当我们写盘时磁盘写保护，或当我们打开文件时忘记插入软盘等。普通情况Windows操作系统会弹出一个对话框并中止程序运行。那么有没有办法可以捕获到错误，而程序自己处理错误呢？
　　答案是有的。在VisualBasic中可以使用 On Error 语句捕获运行错误，而不会使程序因发生异常错误而退出。 
VisualBasic错误处理： 
1.创建错误处理器 2.关闭错误处理器 
3.错误对象Err 4.退出错误处理程序 
5.调用链中的错误处理 

创建错误处理器


在VisualBasic中，我们使用On Error语句创建错误处理程序。它有两种方法：
1.On Error Goto 标号
当发生错误时跳转到指定的标号。
2.On Error Resume Next
当发生错误时忽略错误，继续执行下一条语句。 
关闭错误处理器


错误处理要跟踪代码是否发生运行错误，很明显会降低程序运行速度，所以我们只对可能会产生错误的部分代码进行错误跟踪，而在根本不可能产生错误的代码前关闭错误处理器。
要关闭错误处理器使用：On Error Goto 0 
错误对象Err


错误对象Err对象包含最近所发生的一次错误的信息。 
属性： 
Number 错误ID号。 
Description 错误描述字符串。 
Source 产生错误的应用程序，主要用于OLE编程。
例如：当我们通过OLE访问Microsoft Excel时产生了错误，这时：
Err.Source="Excel.Application" 
方法： 
Clear 清除错误。 
Raise 引发错误。
我们使用Raise方法人为地产生一个错误，把错误传递给父过程或测试你自己编写得错误处理程序。 
退出错误处理程序


当我们使用On Error Goto标号来创建一个错误处理器时，那么该标号所指的程序我们称之为错误处理程序。当我们在错误处理程序中处理完序数据后就需要返回。返回的方法有三种： 
1.Resume 返回到出错的语句从新执行。 
2.Rusume Next 返回到出错的语句的下一条语句继续执行。 
3.Resume 标号 返回到指定标号的语句继续执行。 
调用链中的错误处理


如果一个过程没有错误处理器而又发生了错误，该错误就会传递给父过程，如果父过程也没有错误处理器，则继续向下传递，直到找到为止。如果始终未找到，则出现系统错误提示