在VB 2005中定制自己的异常
【IT168 技术文档】
本文在简要分析VB 2005所提供的异常处理机制的同时，详细讨论如何用它所提供的异常类定制自己的异常。结构化异常处理是随着.net的第一个版本的发行而加入到Visual Basic语言中的。结构化异常处理的重要性基于下面两个原因：
1. 与以前的On Error Goto...语句相比而言，通过使用一种与该语言其它部分更适应的语法从而使得代码更具有可读性。
2. 比以前的On Error Goto...语句功能更强，而且提供了更为灵活性的控制能力。
捕获并抛出异常
异常处理是用Try...Catch...Finally...End Try语句实现的，其基本语法形式如下：
Try和End Try语句都是必需的。Catch和Finally语句可以共同使用于一个Try块中，但是至少使用其中之一。而且，可以使用多个Catch语句来处理不同类型的异常。如果你有多个Catch块，可以对它们加以排序：从最具体的异常类型到最粗略的异常类型：Try '能够引发一个异常的代码 Catch '处理异常的代码 Finally '实现清理工作的代码（如关闭数据库连接，等等） End Try
Try '能够引发一个异常的代码 Catch ex As ArgumentOutOfRangeException '有可能使用一个缺省值来处理一个无效参数以便使代码继续执行 Catch ex As Exception '处理任何其它类型的异常 Finally '实现清理工作的代码（如关闭数据库连接，等等） End Try
你也可以在你的代码中抛出异常。当你在代码中执行一些清理工作时，捕获并抛出异常是很有用的-这样以来，一个更高层级的过程可以捕获它。当你创建定制异常类型时，抛出异常也很有用。
Throw New ArgumentOutOfRangeException
ArgumentOutOfRangeException告诉Throw语句要抛出什么类型的异常。这个ArgumentOutOfRangeException类型仅是.NET框架所提供的众多的类型之一。
传播异常
当一个异常出现于你的代码的某处时，你可以以三种方式传播它：
·什么也不做而让它自动地传播回调用栈（由系统自动处理）。
·捕获并再次抛出它。这可以允许你在Finally块中运行一些清理代码。
·捕获它，并使用InnerException属性在另一个异常中包装该异常，并且把这个新的异常抛回调用过程。这个InnerException属性可以让你维持原始的异常并在一个关系更为密切的异常中存放它的信息。
定制自己的异常
尽管.net框架提供了许多标准异常，但你也可以创建，抛出和捕获你自己的定制异常。一般地，微软推荐你使用由.NET框架所提供的标准异常。然而，如果你的应用程序仅使用一个标准异常不能满足需要时，你可以创建一个定制异常。
当你创建一个定制异常类型时，你就能控制所有的异常属性。你还可以把属性添加到你的定制异常类中。除了把关键数据嵌入到Message属性中外，这可以使你有另外一个地方来存储这些数据。而且，这可以使得检索关键数据非常简单而不必在Message属性外分析它们。
定制异常示例
为了理解定制异常，让我们创建一个很简单的命令行应用程序来加以具体说明。
该代码包含一个非常简单的仅含有一个表Customer的MS Access数据库。一点也不奇怪，这个Customer表包含一组顾客记录（具有CustomerID，first name，last name，address details共四个字段）。该数据库的实际内容并不重要，但是，在你的定制异常中实现数据存取是一种非常合适的选择。
对于本应用程序来说，我用VB 2005 Express IDE创建了一个新的控制台应用程序。
DatabaseException基类
Public Class DatabaseException Inherits Exception Public Sub New() End Sub Public Sub New(ByVal message As String) MyBase.New(message) End Sub Public Sub New(ByVal message As String,_ ByVal inner As Exception) MyBase.New(message， inner) End Sub End Class
这三个构造器都是System.Exception类提供的标准的构造器。第一个允许你创建一个异常而不必使用任何参数-仅需要缺省的异常属性即可。第二个允许你指定一个消息串以用作你的异常的Message属性。最后，第三个构造器也允许你指定一个消息串，但是它允许你指定一个异常作为第二个参数。System.Exception类有一个属性InnerException-当你捕获一个异常并想把它包装到一个关系更相近的异常的内部时，这个属性很有用。通过设置InnerException属性，你可以维持在原始异常中的所有信息。
定制异常：CustomerNotFoundException
第一个定制异常类是CustomerNotFoundException。当你试图在你的数据库中查找一个客户但未找到相应的匹配时你会抛出这个异常。实现代码如下所示：
Public Class CustomerNotFoundException Inherits DatabaseException Private m_CustomerID As Long Public ReadOnly Property CustomerID() As Long Get Return m_CustomerID End Get End Property Public Sub New(ByVal customerID As Long) MyBase.New("Customer ID was not found.") m_CustomerID = customerID End Sub End Class
这个类继承自你前面所创建的DatabaseException基类。它仅包含一个构造器--其参数为customerID。当调用这个构造器时，你把文本串"Customer ID was not found."传递到基类的构造器以用作Message属性。你还有一个已定义的只读属性CustomerID。你将使用这个CustomerID属性来存储要被作为一个参数传递的CustomerID的值。它是一个只读属性，因为把这个值改变为除了引发异常的值以外的值并没有什么意义。
定制异常：DatabaseUnavailableException
Public Class DatabaseUnavailableException Inherits DatabaseException Public Sub New(ByVal ex As Exception) MyBase.New("The database is not available.",ex) End Sub End Class
这个类非常相似于你的CustomerNotFoundException类。你不用为这个类定义任何其它属性，但是它们的主要区别在于，它把一个System.Exception作为一个参数并且把它传递到你的基类的构造器中。这个System.Exception参数将成为你的DatabaseUnavailableException的InnerException属性。
Customer类
Private Sub ConnectDB(ByVal database As String， _ ByRef cn As OleDbConnection) cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; _ Data Source=" & _ """" & database & """" Try cn.Open() Catch ex As Exception Throw New DatabaseUnavailableException(ex) End Try End Sub
你试图在一个Try语句内打开数据库连接。如果抛出任何异常的话，你就会捕获它并抛出一个DatabaseUnavailableException-这个异常用它的InnerException属性包装了原始的异常。
Private Sub GetCustomerData(ByVal cn As OleDbConnection， _ ByVal customerID As Long) Dim cmd As New OleDbCommand Dim reader As OleDbDataReader cmd.Connection = cn cmd.CommandText = "SELECT * FROM CUSTOMER WHERE ID = " _ & customerID reader = cmd.ExecuteReader If reader.HasRows Then reader.Read() m_id = reader.Item("ID") m_firstname = reader.Item("Firstname") m_lastName = reader.Item("Lastname") m_street = reader.Item("Street") m_city = reader.Item("City") m_state = reader.Item("State") m_zipCode = reader.Item("Zip") Else Throw New CustomerNotFoundException(customerID) End If End Sub
上面的代码中，你执行了一个SQL查询--其中使用CustomerID来指定你想要检索哪个顾客的数据。如果查询返回一个结果，那么你使用从该查询返回的值设置Customer类的属性。但是，如果你没有得到任何值的话，你将使用customerID作为构造器的参数抛出一个CustomerNotFoundException异常。这个值将用于设置你的CustomerNotFoundException对象的CustomerID属性。
总结
0
相关文章
关注我们
