vb.net 教程 2-11 错误处理

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
一个软件，用着用着突然出现一个错误，然后不明不白地就退出了，
大家觉得使用者会怎么看这款软件？至少会认为这个软件做的不到家，太影响体验了。

 

因此，我们在设计软件的时候，需要尽量处理可能出现的错误，防止程序崩溃，避免影响用户体验。

 

vb.net提供两种方法处理错误
1、非结构化的异常处理，这也是早期的vb中使用的异常处理方法
On Error Goto 标签  发生错误时，跳转到标签位置
On Error Resume Next    发生错误时，忽略错误，继续执行错误后面的语句

 

出现错误后，就可以调用ErrObject类，来获得具体的信息。
Description 某个错误关联的描述性字符串
Number 返回或设置一个指定错误的数值
但我猜测为了衔接之前的vb，在程序中可以直接用Err。

 

下面的例子：

    Sub main()
        Dim a As Byte
        Dim b As Byte
        Dim c As Byte

        Dim stra As String
        Dim strb As String

        On Error GoTo errcode

        Console.WriteLine("请输入数字：")
        stra = Console.ReadLine()
        a = Byte.Parse(stra)

        Console.WriteLine("请输入数字：")
        strb = Console.ReadLine()
        b = Byte.Parse(strb)

        c = a + b
        Console.WriteLine("a+b={0}", c.ToString)
        Console.ReadKey()
        Exit Sub

errcode:
        Console.WriteLine("错误的输入{0}", Err.Description)
        Console.ReadKey()
    End Sub

当发生错误的时候，程序跳转到errcode标签所在代码。

注意，我们必须在errcode前面加上exit sub，否则即使没有发生错误也会执行errcode后面的语句。

 

可以看到，当输入的不是一个数字的时候，会产生一个错误，然后执行errcode后面的代码。

 

2、结构化的异常处理语句：
Try……Catch

常用的语句格式如下：
Try
    可能出错的语句块
Catch 错误
    错误处理语句块
End Try

 

我们来看下面的例子：

    Sub main()
        Dim a As Byte
        Dim b As Byte
        Dim c As Byte

        Dim stra As String
        Dim strb As String

        Try
            Console.WriteLine("请输入数字：")
            stra = Console.ReadLine()
            a = Byte.Parse(stra)
            Console.WriteLine("请输入数字：")
            strb = Console.ReadLine()
            b = Byte.Parse(strb)

            c = a + b
            Console.WriteLine("a+b={0}", c.ToString)

        Catch ex As Exception
            Console.WriteLine("错误的输入")
        End Try
        Console.ReadKey()
    End Sub

运行时如下：

输入的数值超出了byte范围，所以返回错误。

另外一种异常处理的语句格式

Try
    可能出错的语句块
Catch 错误
    错误处理语句块
Finally
    语句块
End Try
当执行过程离开 Try...Catch 语句的任何部分时，总是会执行 Finally 中的语句块

下面的代码：

    Sub main()
        Dim a As Byte
        Dim b As Byte
        Dim c As Byte

        Dim stra As String
        Dim strb As String

        Try
            Console.WriteLine("请输入数字：")
            stra = Console.ReadLine()
            a = Byte.Parse(stra)

            Console.WriteLine("请输入数字：")
            strb = Console.ReadLine()
            b = Byte.Parse(strb)

            c = a + b
            Console.WriteLine("a+b={0}", c.ToString)

        Catch ex As Exception
            Console.WriteLine("错误的输入")
        Finally
            Console.WriteLine("必须经过此步骤")
        End Try
        Console.ReadKey()
    End Sub

 

不管出没有出错，都会输出 “必须经过此步骤”。

 

在Try……Catch语句中还可以使用  Exit Try ，跳出Try语句，当然，跳出后还是要执行Finally中的语句块

Try后面还可以接多个Catch语句，对不同的错误进行不同的处理。如下代码：

    Sub main()
        Dim a As Single
        Dim b As Single

        Dim stra As Byte
        Dim strb As Byte

        Dim flagErr As Boolean = False
        Do
            Try
                Console.WriteLine("请输入被除数：")
                stra = Console.ReadLine()
                a = Byte.Parse(stra)
                Console.WriteLine("请输入除数：")
                strb = Console.ReadLine()
                b = Byte.Parse(strb)

                Dim c As Byte
                c = a + b
                Console.WriteLine("a+b={0}", c.ToString)
                flagErr = False
            Catch ex As OverflowException
                Console.WriteLine("发生溢出" & ex.Message)
                flagErr = True
            Catch ex As InvalidCastException
                Console.WriteLine("转换失败" & ex.Message)
                flagErr = True
            Catch ex As Exception
                Console.WriteLine("错误的输入")
                flagErr = True
            End Try
        Loop Until flagErr = False

        Console.ReadKey()
    End Sub

运行时如下：

运行时，输入2222，产生OverflowException错误，输入aaa，产生了InvalidCastException错误，当然如果还有其他错误，还会引发Exception，也能够处理。

具体有哪些错误，请参阅msdn，Exception 类。

另外，Try……Catch语句可以嵌套使用，比如

Try
    可能出错的语句块
    Try
        可能出错的语句块
    Catch 错误
        错误处理语句块
    End Try

    Try
        可能出错的语句块
    Catch 错误
        错误处理语句块
    End Try
Catch 错误
    错误处理语句块
End Try

 

vb.net在处理的时候，先检查包含该错误的最里面的Catch，如果没有找到匹配的Catch语句，那就再继续搜索外层的Catch语句。

 

相比非结构化的异常处理，个人认为结构化的异常处理更简洁方便使用，避免了跳转出错的可能。大家在代码中尽量使用Try……Catch。

 

 

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

学习更多vb.net知识，请参看 vb.net 教程 目录