VB的容错处理（完整）

' 如果用户选择了cancel，就产生一个错误

dlgOpenfile.CancelError = True

' 忽视错误的发生

On Error Resume Next

' 显示对话框

dlgOpenfile.ShowOpen

' 判断是否有错误

If Err.Number = cdlCancel Then 

' 如果是用户canceled，就什么也执行 

 Exit Sub

ElseIf Err.Number <> 0 Then 

' 如果是未知错误，就采取另外的行为 :

End If

' 恢复正常的错误处理

On Error GoTo 0

Private Sub DoSomething() 

' 安装错误处理代理 

On Error GoTo UnexpectedError 

' 日常 *** 作 : 

' 使程序不进入下面的错误处理代理程序 

Exit Sub

UnexpectedError: 

'将错误信息描述给用户 

MsgBox "Unexpected error" & _

 Str$(Err.Number) & _ 

 " in subroutine DoSomething." & _ 

 vbCrLf & _ 

 Err.Description 

Exit Sub

End Sub

如何离开错误处理程序

Private Sub LoadData(ByVal filename As String)

Dim fnum As Integer 

'打开文件 

fnum = Freefile 

On Error GoTo OpenError 

Open filename For input As fnum 

' 读取数据 

On Error GoTo ReadError : 

 ' 关闭文件 

On Error GoTo CloseError 

 Close fnum 

Exit SubOpenError: 

’打开文件失败，询问用户是否再次打开 

If MsgBox("Error" & _ 

 Str$(Err.Number) & _

 " opening file " & filename & "." & _

 vbCrLf & Err.Description & vbCrLf & _

 "Check that the disk is properly " & _ 

 "inserted and click the Retry button.",_ 

 vbRetryCancel,_ 

 "Error opening file") = vbRetry _ Then 

 '再次打开文件 

 Resume 

End If 

’否则，选择Cancel退出这个过程 

Exit SubReadError: 

MsgBox "Error" & _ 

 Str$(Err.Number) & _ 

 " reading file " & filename & "." & _ 

 vbCrLf & Err.Description 

 '关闭文件 

Close fnum 

Exit SubCloseError: 

' 关闭文件发生错误 

MsgBox "Error" & _ 

 Str$(Err.Number) & _ 

 " closing file " & filename & "." & _ 

 vbCrLf & Err.Description 

Exit Sub

End Sub

Resume Next

　　 执行Resume Next命令使程序在发生错误那条命令后继续执行，这对于程序和用户不能合理地修正错误时很有意义，但同时程序可能执行不完整。

　　 比如，下面的代码使用cdate函数转换一个字符串为日期格式，如果失败了，错误处理代理程序就分配给start_date变量的值为当前的日期： 　　

Private Sub ValIDateStartDate(ByVal date_string As String)Dim start_date As Date ' 安装错误处理代理 On Error GoTo InvalIDDate ' 转换字符串为日期格式 start_date = cdate(date_string) ' 执行关于这个日期的一些 *** 作 : ' 不进入下面的错误处理代理程序中 Exit SubInvalIDDate: ' 如果日期非法，就使用当前日期 start_date = Date Resume NextEnd Sub

　　 请注意，尽量不要使用这种方法处理错误，因为它采取了“安静”的方式，而不是明显地告诉用户发生了错误。应该是这样，当用户输入了非法日期后，就提示他发生了错误，并要求输入一个新的数值。

　　 Exit Sub/Function/Property

　　 如果程序不能继续它的任务，可以立即使用 Exit Sub、 Exit Function 或者 Exit Property 实现退出。下面的代码是上面那段程序的一个新版本，如果日期字符串非法，就告诉给用户，然后退出程序：

Private Sub ValIDateStartDate(ByVal date_string As String)Dim start_date As Date ' 安装错误处理代理 On Error GoTo InvalIDDate ' 转换字符串为日期 start_date = cdate(date_string) ' 执行关于这个日期的一些 *** 作 : ' 不进入下面的错误处理代理程序中 Exit SubInvalIDDate: ' 如果日期非法，就告诉用户，然后退出 MsgBox "The start date """ & _ date_string & _ """ is invalID. Please enter a new one." Exit SubEnd Sub

　　 按照这种方式退出程序，调用的程序就不可能告诉用户错误发生了。这意味着：不管程序是否成功，调用程序能够合适地继续执行时，才适于采用这个方法。如果调用者必须要知道错误发生了，那么代码中就必须要使用Err.Raise命令来简短地进行一下描述。

End Sub、 End Function End Property

　　 如果错误处理代理程序最后接触到程序的 End Sub、 End Function 或者 End Property 语句，就会产生自然执行Exit命令的效果。比如，上面那段代码的最后部分可以这么编写：

InvalIDDate: ' 如果日期非法，就告诉用户，然后退出 MsgBox "The start date """ & _ date_string & _ """ is invalID. Please enter a new one."End Sub

　　 可是有时候，这么处理会带来一些混淆。因为，也可能要处理新的错误，那么再随后添加新的错误处理代理程序时，就有可能注意不到上一个错误处理代理程序没有使用Exit语句做为结尾，这样，就会发生上一个错误处理代理程序直接执行到下一个代码段中。比如，下面的代码段中，如果遇到一个非法日期，将会显示2段出错提示信息，而不是实际应该存在的1个：

InvalIDDate: ' 如果日期非法，就告诉用户，然后退出 MsgBox "The start date """ & _ date_string & _ """ is invalID. Please enter a new one."ReadfileError: '读取文件错误 MsgBox "Error reading the data." :End Sub

　　 因此，为了避免这种错误的发生，不要让错误处理代理程序直接接触到过程的End命令做为结束。要使用Exit命令完成离开程序的功能！

　　 Err.Raise

　　 Err对象提供了一个Raise方法，它允许程序产生一个新错误，或者再次产生上一次的错误。它的语法如下：

Err.Raise Number,[Source],[Description],[Helpfile],[Helpcontext]

错误信息处理策略

' 定义应用程序错误常量Private Const myappErrNoinputfile = vbObjectError + 1000 :'定义Visual Basic错误常量Private Const vbErrfileNotFound = 53 :Private Sub ReadinputData(ByVal file_name As String)Dim file_number As Integer '打开文件 file_number = Freefile On Error GoTo fileOpenError Open file_name For input As file_number '  *** 作文件出错 On Error GoTo fileReadError : '  *** 作文件 : '关闭文件 Close file_number Exit SubfileOpenError: ' 打开文件错误 If Err.Number = vbErrfileNotFound Then '如果文件没有找到，转换错误信息为myappErrNoinputfile. Err.Raise myappErrNoinputfile,_ "MyApp.ReadinputData",_ "Could not open input file """ & _ file_name & """." Else '其他错误处理 Err.Raise Err.Number,_ Err.source,_ Err.Description,_ Err.Helpfile,_ Err.HelpContext End If Exit SubfileReadError: '读取文件错误 : Exit SubEnd Sub

  On Error GoTo DatainputError ReadinputData "c:mydata.dat" Exit SubDatainputError: ‘装载数据错误 MsgBox "Error" & Str$(Err.Number) & _ " loading the input data." & vbCrLf & _ Err.Description

Err.Raise myappErrNoinputfile,_ "Error" & Str$(myappErrNoinputfile) & _ " opening the input file."

Public Const rayErrorBase = 45300Public Const rayParametersNotSet = rayErrorBase + 1Public Const rayInvalIDSphereFormat = rayErrorBase + 2Public Const raylightAtEye = rayErrorBase + 3 :

Private Sub LoadData(ByVal filename As String)Dim fnum As Integer ‘文件还没有打开 On Error GoTo fileIsClosed ’打开文件 fnum = Freefile Open filename For input As fnum ‘文件被打开了 On Error GoTo fileIsOpen ’读取数据 : 进入错误处理代理，关闭文件 On Error Resume NextfileIsOpen: ‘关闭文件 Close fnumfileIsClosed: ’执行其他任务 : ‘结束程序End Sub

理解错误处理程序的作用范围

当程序遇到错误时，Visual Basic检查在当前程序段中是否安装了错误处理代理程序。如果安装了，控制将转移到那个程序段中。如果没有发现，Visual Basic上移到调用堆栈中的调用相应，检查是否在那个程序段中安装了错误处理代理程序。如果安装了，系统将在那个错误代理中恢复执行。如果仍没有发现，就一直上移，直到找到一个安装的错误处理代理程序。如果最终没有找到，程序将崩溃。

　　 因此，所有Visual Baisc代码执行时，开始要设有一个事件处理代理或者一个Main程序。这意味着，如果在每个事件处理和Main程序中放置错误处理代理程序，就能防御所有的错误发生。然后，不管程序在哪里发生错误，控制最终都能转移到这里。 不要嵌套使用错误处理程序

　　 错误处理代理程序运行上与其他程序有些不同，在一段错误处理代理的代码中，不可能激活另外的错误处理代理程序。换言之，一段错误处理代理程序中不能使用On Error GoTo来定义扑捉它自身错误的代码。如果其中使用了这个语句，只有当这个错误处理代理程序执行完成并返回到主代码中时，新的错误处理代理程序才可能发生效果。

　　 嵌套使用错误代理的事情非常容易使人困惑。在下面的代码中，如果Subroutine2产生一个错误，就不能确定是否控制将转移到Error1还是Error2中。如果Subroutine1运行正确，控制将转到Error1，但是当Subroutine1发生错误时，控制将转移到Error2： 　　

  On Error GoTo Error1 Subroutine1 Subroutine2 Exit SubError1: On Error GoTo Error2 MsgBox "Error1:" & Str$(Err.Number) & "." & vbCrLf & _ Err.Description Resume NextError2: MsgBox "Error2:" & Str$(Err.Number) & "." & vbCrLf & _ Err.Description Resume Next

　　 因此，不要在一段错误处理代理程序中使用On Error语句，应该将所有的错误处理代理程序段按照顺序编写。