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 教程 目录

 

展开阅读全文
©️2020 CSDN 皮肤主题: 技术黑板 设计师: CSDN官方博客 返回首页
实付0元
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值