演示VB.NET類定義全過程
先來說說VB.NET 類的概念，類是具有相同屬性和動作的事物的抽象，是面向對象編程的最基本和最核心的概念。類封裝了對象的靜態特征（即屬性）和動態行為特征（即操作或稱為方法）。此文演示VB.NET類定義，然后使用這些類創建對象。同時還說明如何為新類添加屬性和方法，并演示如何初始化對象。
一.VB.NET類定義
1.單擊“文件”菜單上的“新建項目”，創建一個項目。“新建項目”對話框隨即出現。
2.從 Visual Basic 項目模板列表中選擇“Windows 應用程序”，以顯示新項目。
3.在“項目”菜單中單擊“添加類”，將一個新類添加到項目中。出現“添加新項”對話框。
4.選擇“類”模板。
5.給新類 UserNameInfo.vb 命名，然后單擊“添加”以顯示新類的代碼。
- Visual Basic 復制代碼
- Public Class UserNameInfo
- End Class
注意可以使用 Visual Basic“代碼編輯器”，在新類的名稱之前鍵入 Class 關鍵字，將類添加到啟動窗體中。“代碼編輯器”會提供相應的 End Class 語句。
6.在 Class 和 End Class 語句之間加入以下代碼，為類定義私有字段：
- Visual Basic 復制代碼
- Private userNameValue As String
將字段聲明為 Private 意味著該字段只能在該類內使用。可以通過使用提供更大訪問權限的訪問修飾符（如 Public）來使字段得以從類的外部進行訪問。有關更多信息，請參見 Visual Basic 中的訪問級別。
7.通過添加以下代碼為類定義屬性：
- Visual Basic 復制代碼
- Public Property UserName() As String
- Get
- ' Gets the property value.
- Return userNameValue
- End Get
- Set(ByVal Value As String)
- ' Sets the property value.
- userNameValue = Value
- End Set
- End Property
8.通過添加以下代碼為類定義方法：
- Visual Basic 復制代碼
- Public Sub Capitalize()'
- Capitalize the value of the property.
- userNameValue = UCase(userNameValue)
- End Sub
9.通過添加名為 Sub New 的過程為新類定義參數化的構造函數：
- Visual Basic 復制代碼
- Public Sub New(ByVal UserName As String)
- ' Set the property value.
- Me.UserName = UserName
- End Sub
當創建基于此類的對象時，會自動調用 Sub New 構造函數。此構造函數設置保存用戶名的字段值。
二.創建測試類的按鈕
1.右擊“解決方案資源管理器”中啟動窗體的名稱，將啟動窗體更改為設計模式，然后單擊“視圖設計器”。默認情況下，“Windows 應用程序”項目的啟動窗體的名稱為 Form1.vb。主窗體隨即出現。
2.在主窗體中添加一個按鈕，然后雙擊該按鈕顯示 Button1_Click 事件處理程序的代碼。添加下列代碼以調用測試過程：
- Visual Basic 復制代碼
- ' Create an instance of the class.
- Dim user As New UserNameInfo("Moore, Bobby")
- ' Capitalize the value of the property.
- user.Capitalize()
- ' Display the value of the property.
- MsgBox("The original UserName is: " & user.UserName)
- ' Change the value of the property.
- user.UserName = "Worden, Joe"
- ' Redisplay the value of the property.
- MsgBox("The new UserName is: " & user.UserName)
三.VB.NET類定義運行應用程序
按 F5 運行應用程序。單擊窗體上的按鈕以調用測試過程。它會顯示一則消息，說明原來的 UserName 是“MOORE, BOBBY”，因為該過程調用了對象的 Capitalize 方法。
單擊“確定”關閉該消息框。Button1 Click 過程會更改 UserName 屬性的值，并顯示一則消息，說明 UserName 的新值為“Worden, Joe”。
【編輯推薦】
