VB6.0基础教程 错误捕捉

兔纸兄

一个好的应用程序，不仅体现在它的功能强大与容易操作，还体现在它良好完善的错误处理能力。在编写程序时，要充分考虑到程序运行时可能会遇到的错误。例如，在做除法运算时，用户输入的除数可能为O;在执行读取软盘操作时，软驱里可能没有放软盘。

    当应用程序在VH环境中运行时，遇到错误将终止程序的运行，返回到VH环境。当应用程序被编译成E}文件，在Windows环境中运行时，一旦发生运行错误，Windows将终止应用程序的执行，并将控制权交归还给Windows系统。显然，这种处理错误的方式不是所希望的。一般的应用程序都会在运行时捕捉到错误，并且给出提示，以便让用户采取行动。

    在VB中，要增加应用程序的处理错误的能力，需要做以下两步工作：

    （1）设置错误陷阱
    （2）编写错误处理程序

    VB提供了On Error语句设置错误陷阱，捕捉错误。On Error语句有3种形式，如表8.2所示。

    Resume语句应放置在出错处理程序的最后，以便错误处理完毕后，指定程序下一步做什么。Resume语句也有3种形式，如表8.3所示：

    在On Error语句捕捉到错误后，Err对象的Number属性返回错误的代号，通过错误代号即可知道引发错误的原因了。在编写错误处理程序时，一般使用“IfErr.Number=”语句或“select Cage Err.Nurnber”语句来判断错误的类型：

    VB提供的Error函数用于返回错误信息，其语法如下：

    Error（错误代号）.

    例如：

    Form.Print.Error（11）.

    语句将在窗体上显示“除数为零”。

   这里编写一个用于计算两个数相除的小程序。如果用户输入的除数为零，会弹出消息框提示用户；如果没有输入除数或被除数，也会弹出消息框提示用户。

    在窗体上放置5个标签控件、3个文本框控件和1个按钮控件。其中各对象的属性设置如表8.4所示。

   编写程序代码如下

Private Sub Commandl_Click()    On Error GoTo WW                  “ 设置错误陷阱    Text3.Text=Text1.Text / Text2.Text    Exit Sub    "错误处理代码块    WW：       If Err.Number=11 Then               “判断错误代号          MsgBox “除数不能为零，请重新输入！“，16.“错误”   Else         MsgBog“出现其他错误！”，16，“错误”   End If   Resume Next End Sub

    运行程序，输入被除数与除数，单击【结果】按钮，就会计算出它们的商。如果输入的除数是0，则弹出如图8.22所示的消息框，要求用户重新输入；如果没有输入被除数或除数，则弹出如图8.23所示的消息框，提示用户出错。