VB.NET經過長時間的發展，很多用戶都很了解VB.NET了，這里我發表一下個人理解，和大家討論討論。促使我們從VB6轉向VB.NET的一個***的原因就是VB.NET面向對象編程（OOP）這一概念的完全支持。然而，要運用這個功能，只學習一些新的關鍵字是遠遠不夠的。面對這么多可供選擇的新的功能，你可能會感到困惑。因此，我將在本文中說明如何在你的應用程序中運用面向對象的功能。我不會深入講述每個新的功能（要進行深入講述，用整本雜志的篇幅都不夠），另外我也提供了代碼例子，在可執行的代碼中有注釋，它們有助于你對一般概念的理解。你可能對我用的一些詞不太熟悉，因此我提供了一個最常用的OOP術語表（見工具條“OOP術語表”）。

#T#你在應用程序中可能會經常用到的***個面向對象的語言的特征是方法重載（method overloading）。VB.NET面向對象可以讓你用一個特定的名字定義多個方法或屬性，只要它們的參數定義不同；這就是說，它們的參數的數量或類型必須是不同的。例如，一個類可以定義一個GetItem方法，它帶有的參數可以是一個數字或字符串，我們根據參數類型來返回元素：

Function GetItem(ByVal index As _  
Integer) As Object  
' return an element by its index  
End Property  
 
Function GetItem(ByVal key As String) _  
As Object  
' return an element by its key  
End Property  

編譯器通過查看參數的類型來調用正確的版本：

res = obj.GetItem(1) ' numeric key  
res = obj.GetItem("Joe") ' string key 

當你有一個可以采用任何數據類型的很普通的方法時，方法重載尤其有用——例如，一個將參數值添加到一個文本文件的Log方法。你可能想定義一個采用 Object參數的單獨的版本，因為你想將任何類型的數據傳遞到這個方法： 然而，如果你將一個值類型的參數（一個數字、日期/時間、一個布爾值或一個結構）傳遞到一個Object參數，那么你就暗中強加了一個封裝操作。.NET runtime必須用一個對象來封裝值——這么做就會從托管堆（managed heap）分配內存，而且浪費了寶貴的CPU周期。

Sub Log(ByVal value As Object)  
 TW is a TextWriter object  tw.Write("LOG:" & value.ToString())  End Sub   

一個更好的方法就是為你支持的每種數據類型定義同一個方法的重載的版本。如果你不想為每種可能的參數類型寫代碼，你可以實現一個采用Long參數的版本（它可以處理Boolean、Short、Integer和Long類型的值）、一個采用Double參數的版本（它也可以處理Single類型的值）和另外兩個分別采用DateTime值和Decimal參數的重載的版本。這四種版本可以處理最常用的值類型，而讓采用一個Object參數的重載的版本來處理引用類型（如字符串）或更特殊的對象（如Person）。將一個字符串或一個特殊的對象傳遞到采用一個Object參數的版本不會增加CPU的費用，因為它沒有強加封裝操作。

VB.NET面向對象構造器提供了強大的類
在創建一個類庫時，你應該用多個重載的方法，而不要用采用可選參數的一個單獨的方法，因為有些.NET語言（C#最明顯）不能識別可選參數。記住，兩個重載的方法的不同不僅體現在它們的返回值或你用于每個參數前的ByVal/ByRef關鍵字上。（ByVal/ByRef關鍵字適用于VB.NET和其它一些.NET語言；C#可以讓你定義兩個只在ref或out關鍵字上有區別的方法。）

接下來我們要探究的一個面向對象的特征就是構造器（constructor）。VB.NET構造器是一個名為Sub New的過程，當客戶端創建類的一個實例時，就會調用這個過程。如果你的代碼不包含一個明確的構造器，VB.NET編譯器就會自動添加一個缺省的構造器 ——一個不帶任何參數的構造器。如果沒有明確的（explicit）或隱含的（implicit）構造器，你就不能實例化類。VB.NET也可以讓你定義一個帶有參數的構造器，所以你可以讓客戶端實例化在有效狀態創建對象所必需的字段：

' a read-only field can be set only  
' from inside a constructor procedure  
Public ReadOnly Filename As String  
Sub New(ByVal filename As String)  
' ensure filename isn't null  
If filename Is Nothing OrElse _  
Filename.Length = 0 Then  
Throw New ArgumentException("Invalid file name")  
End If  
' assign to the read-only field  
Me.FileName = filename 
End Sub 

帶有參數的多個構造器通常有共同的代碼——例如，驗證一個或多個參數的代碼。這時候，你就可以簡化你的類的結構，讓一個構造器調用另一個構造器：

Public ReadOnly Overwrite As Boolean  
Sub New(ByVal filename As String, _  
ByVal overwrite As Boolean)  
' a call to another constructor MUST  
' be the first executable statement  
Me.New(filename)  
' assign remaining fields  
Me.Overwrite = overwrite 
End Sub 

當你既需要缺省的構造器，也需要一個或多個帶有參數的構造器時，就會出現一個有趣的問題。在這種情況下，你必須明確聲明一個空的Sub New過程，因為編譯器不會自動為你創建它：

Sub New()  
' no need to add code here  
End Sub