VB==容错处理策略(全)[1]

' 如果用户选择了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 sub

openerror:
    ’打开文件失败，询问用户是否再次打开
    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 sub

readerror:
    msgbox "error" & _
        str$(err.number) & _
        " reading file " & filename & "." & _
        vbcrlf & err.description

    '关闭文件
    close fnum
    exit sub

closeerror:
    ' 关闭文件发生错误
    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 sub

invaliddate:
    ' 如果日期非法，就使用当前日期
    start_date = date
    resume next
end 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 sub

invaliddate:
   ' 如果日期非法，就告诉用户，然后退出
    msgbox "the start date """ & _
        date_string & _
        """ is invalid. please enter a new one."
    exit sub
end 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]

　　 number

错误代码。为了在类模块中建立一个新的错误代码，将 vbobjecterror 加上实际的代码。
比如： vbobjecterror + 1001。

　　 source

产生错误的对象或者应用的名字。对于对象，使用project.class格式。对于程序，使用project.routine格式。比如，myprogram.loaddata.

　　

　　 description

关于错误的描述字符串。

　　 helpfile

关于错误详细信息的帮助文件名字。error.

　　 helpcontext

帮助文件中对应这个错误的上下文id。

          错误信息处理策略