演示VB.NET類定義全過程
先來說說VB.NET 類的概念，類是具有相同屬性和動作的事物的抽象，是面向?qū)ο缶幊痰淖罨竞妥詈诵牡母拍?。類封裝了對象的靜態(tài)特征（即屬性）和動態(tài)行為特征（即操作或稱為方法）。此文演示VB.NET類定義，然后使用這些類創(chuàng)建對象。同時還說明如何為新類添加屬性和方法，并演示如何初始化對象。
一.VB.NET類定義
1.單擊“文件”菜單上的“新建項目”，創(chuàng)建一個項目?！靶陆椖俊睂υ捒螂S即出現(xiàn)。
2.從 Visual Basic 項目模板列表中選擇“Windows 應(yīng)用程序”，以顯示新項目。
3.在“項目”菜單中單擊“添加類”，將一個新類添加到項目中。出現(xiàn)“添加新項”對話框。
4.選擇“類”模板。
5.給新類 UserNameInfo.vb 命名，然后單擊“添加”以顯示新類的代碼。
- Visual Basic 復(fù)制代碼
- Public Class UserNameInfo
- End Class
注意可以使用 Visual Basic“代碼編輯器”，在新類的名稱之前鍵入 Class 關(guān)鍵字，將類添加到啟動窗體中?！按a編輯器”會提供相應(yīng)的 End Class 語句。
6.在 Class 和 End Class 語句之間加入以下代碼，為類定義私有字段：
- Visual Basic 復(fù)制代碼
- Private userNameValue As String
將字段聲明為 Private 意味著該字段只能在該類內(nèi)使用?？梢酝ㄟ^使用提供更大訪問權(quán)限的訪問修飾符（如 Public）來使字段得以從類的外部進行訪問。有關(guān)更多信息，請參見 Visual Basic 中的訪問級別。
7.通過添加以下代碼為類定義屬性：
- Visual Basic 復(fù)制代碼
- 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 復(fù)制代碼
- Public Sub Capitalize()'
- Capitalize the value of the property.
- userNameValue = UCase(userNameValue)
- End Sub
9.通過添加名為 Sub New 的過程為新類定義參數(shù)化的構(gòu)造函數(shù)：
- Visual Basic 復(fù)制代碼
- Public Sub New(ByVal UserName As String)
- ' Set the property value.
- Me.UserName = UserName
- End Sub
當(dāng)創(chuàng)建基于此類的對象時，會自動調(diào)用 Sub New 構(gòu)造函數(shù)。此構(gòu)造函數(shù)設(shè)置保存用戶名的字段值。
二.創(chuàng)建測試類的按鈕
1.右擊“解決方案資源管理器”中啟動窗體的名稱，將啟動窗體更改為設(shè)計模式，然后單擊“視圖設(shè)計器”。默認情況下，“Windows 應(yīng)用程序”項目的啟動窗體的名稱為 Form1.vb。主窗體隨即出現(xiàn)。
2.在主窗體中添加一個按鈕，然后雙擊該按鈕顯示 Button1_Click 事件處理程序的代碼。添加下列代碼以調(diào)用測試過程：
- Visual Basic 復(fù)制代碼
- ' 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類定義運行應(yīng)用程序
按 F5 運行應(yīng)用程序。單擊窗體上的按鈕以調(diào)用測試過程。它會顯示一則消息，說明原來的 UserName 是“MOORE, BOBBY”，因為該過程調(diào)用了對象的 Capitalize 方法。
單擊“確定”關(guān)閉該消息框。Button1 Click 過程會更改 UserName 屬性的值，并顯示一則消息，說明 UserName 的新值為“Worden, Joe”。
【編輯推薦】
