如何定義VB.NET類(lèi)

這篇文章給大家分享的是有關(guān)如何定義VB.NET類(lèi)的內(nèi)容。小編覺(jué)得挺實(shí)用的，因此分享給大家做個(gè)參考，一起跟隨小編過(guò)來(lái)看看吧。

一.VB.NET類(lèi)定義

1.單擊“文件”菜單上的“新建項(xiàng)目”，創(chuàng)建一個(gè)項(xiàng)目。“新建項(xiàng)目”對(duì)話(huà)框隨即出現(xiàn)。

2.從 Visual Basic 項(xiàng)目模板列表中選擇“Windows 應(yīng)用程序”，以顯示新項(xiàng)目。

3.在“項(xiàng)目”菜單中單擊“添加類(lèi)”，將一個(gè)新類(lèi)添加到項(xiàng)目中。出現(xiàn)“添加新項(xiàng)”對(duì)話(huà)框。

4.選擇“類(lèi)”模板。

5.給新類(lèi) UserNameInfo.vb 命名，然后單擊“添加”以顯示新類(lèi)的代碼。

Visual Basic 復(fù)制代碼   Public Class UserNameInfo  End Class

注意可以使用 Visual Basic“代碼編輯器”，在新類(lèi)的名稱(chēng)之前鍵入 Class 關(guān)鍵字，將類(lèi)添加到啟動(dòng)窗體中?！按a編輯器”會(huì)提供相應(yīng)的 End Class 語(yǔ)句。

6.在 Class 和 End Class 語(yǔ)句之間加入以下代碼，為類(lèi)定義私有字段：

Visual Basic 復(fù)制代碼   Private userNameValue As String

將字段聲明為 Private 意味著該字段只能在該類(lèi)內(nèi)使用?？梢酝ㄟ^(guò)使用提供更大訪問(wèn)權(quán)限的訪問(wèn)修飾符（如 Public）來(lái)使字段得以從類(lèi)的外部進(jìn)行訪問(wèn)。有關(guān)更多信息，請(qǐng)參見(jiàn) Visual Basic 中的訪問(wèn)級(jí)別。

7.通過(guò)添加以下代碼為類(lèi)定義屬性：

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.通過(guò)添加以下代碼為類(lèi)定義方法：

Visual Basic 復(fù)制代碼   Public Sub Capitalize()'   Capitalize the value of the property.  userNameValue = UCase(userNameValue)  End Sub

9.通過(guò)添加名為 Sub New 的過(guò)程為新類(lèi)定義參數(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)建基于此類(lèi)的對(duì)象時(shí)，會(huì)自動(dòng)調(diào)用 Sub New 構(gòu)造函數(shù)。此構(gòu)造函數(shù)設(shè)置保存用戶(hù)名的字段值。

二.創(chuàng)建測(cè)試類(lèi)的按鈕

1.右擊“解決方案資源管理器”中啟動(dòng)窗體的名稱(chēng)，將啟動(dòng)窗體更改為設(shè)計(jì)模式，然后單擊“視圖設(shè)計(jì)器”。默認(rèn)情況下，“Windows 應(yīng)用程序”項(xiàng)目的啟動(dòng)窗體的名稱(chēng)為 Form1.vb。主窗體隨即出現(xiàn)。

2.在主窗體中添加一個(gè)按鈕，然后雙擊該按鈕顯示 Button1_Click 事件處理程序的代碼。添加下列代碼以調(diào)用測(cè)試過(guò)程：

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類(lèi)定義運(yùn)行應(yīng)用程序

按 F5 運(yùn)行應(yīng)用程序。單擊窗體上的按鈕以調(diào)用測(cè)試過(guò)程。它會(huì)顯示一則消息，說(shuō)明原來(lái)的 UserName 是“MOORE, BOBBY”，因?yàn)樵撨^(guò)程調(diào)用了對(duì)象的 Capitalize 方法。

單擊“確定”關(guān)閉該消息框。Button1 Click 過(guò)程會(huì)更改 UserName 屬性的值，并顯示一則消息，說(shuō)明 UserName 的新值為“Worden, Joe”。

感謝各位的閱讀！關(guān)于“如何定義VB.NET類(lèi)”這篇文章就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，讓大家可以學(xué)到更多知識(shí)，如果覺(jué)得文章不錯(cuò)，可以把它分享出去讓更多的人看到吧！