Visual Basic .NET中的异常处理简介（上）

Imports System

Public Class GardenException

Inherits System.ApplicationException

Public Sub New（）

End Sub

@# 为异常创建 Sub New，允许在发生异常时

@# 设置消息属性。

Public Sub New（Message As String）

MyBase.New（Message）

End Sub

@# 创建 Sub New，用于在需要包含内部

@# 异常时使用。

Public Sub New（Message As String, Inner As Exception）

MyBase.New（Message）

End Sub

End Class

注意：将远程功能与用户定义的异常组合使用时，必须确保在远程执行代码时可以获取用户定义异常的元数据，包括在应用程序域之间发生的异常。

结构化异常处理示例

此代码示例是一个简单的 Try...Catch 块，它先检查 ArithmeticException，然后检查普通异常。

Imports System

Sub Main（）

Dim x As Integer = 0

Try

Dim y As Integer = 100 / x

Catch ex As ArithmeticException

MessageBox.Show（ex.Message）

Catch ex As Exception

MsgBox（ex.Message）

End Try

End Sub @#Main