一个软件，用着用着突然出现一个错误，然后不明不白地就退出了，
大家觉得使用者会怎么看这款软件？至少会认为这个软件做的不到家，太影响体验了。 @H_301_2@

@H_301_2@

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

@H_301_2@

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

@H_301_2@

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

@H_301_2@

下面的例子： @H_301_2@

    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标签所在代码。 @H_301_2@

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

@H_301_2@

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

@H_301_2@

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

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

@H_301_2@

我们来看下面的例子： @H_301_2@

    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

运行时如下： @H_301_2@

@H_301_2@

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

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

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

下面的代码： @H_301_2@

    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

@H_301_2@

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

@H_301_2@

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

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

    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

运行时如下： @H_301_2@

@H_301_2@

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

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

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

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

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

@H_301_2@

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

@H_301_2@

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

@H_301_2@ @H_301_2@