如何定義VB.NET類

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

公司主營業(yè)務(wù)：成都網(wǎng)站設(shè)計、網(wǎng)站建設(shè)、外貿(mào)網(wǎng)站建設(shè)、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)公司是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)公司推出托克托免費做網(wǎng)站回饋大家。

一.VB.NET類定義

1.單擊“文件”菜單上的“新建項目”，創(chuàng)建一個項目?！靶陆椖俊睂υ捒螂S即出現(xiàn)。

2.從 Visual Basic 項目模板列表中選擇“Windows 應用程序”，以顯示新項目。

3.在“項目”菜單中單擊“添加類”，將一個新類添加到項目中。出現(xiàn)“添加新項”對話框。

4.選擇“類”模板。

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

Visual Basic 復制代碼   Public Class UserNameInfo  End Class

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

6.在 Class 和 End Class 語句之間加入以下代碼，為類定義私有字段：

Visual Basic 復制代碼   Private userNameValue As String

將字段聲明為 Private 意味著該字段只能在該類內(nèi)使用?？梢酝ㄟ^使用提供更大訪問權(quán)限的訪問修飾符（如 Public）來使字段得以從類的外部進行訪問。有關(guān)更多信息，請參見 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 的過程為新類定義參數(shù)化的構(gòu)造函數(shù)：

Visual Basic 復制代碼   Public Sub New(ByVal UserName As String)  ' Set the property value.  Me.UserName = UserName  End Sub

當創(chuàng)建基于此類的對象時，會自動調(diào)用 Sub New 構(gòu)造函數(shù)。此構(gòu)造函數(shù)設(shè)置保存用戶名的字段值。

二.創(chuàng)建測試類的按鈕

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

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

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 運行應用程序。單擊窗體上的按鈕以調(diào)用測試過程。它會顯示一則消息，說明原來的 UserName 是“MOORE, BOBBY”，因為該過程調(diào)用了對象的 Capitalize 方法。

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

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

當前文章：如何定義VB.NET類
分享地址：http://m.jiaotiyi.com/article/phdccg.html