共用方式為

逐步解說：定義類別 （Visual Basic）

本逐步解說示範如何定義類別，然後可用來建立物件。 它也會示範如何將屬性和方法新增至新類別，並示範如何初始化物件。

備註

您的電腦可能會在下列指示中顯示某些 Visual Studio 使用者介面元素的不同名稱或位置。 您擁有的 Visual Studio 版本，以及您所使用的設定會決定這些元素。 如需詳細資訊，請參閱 個人化 IDE。

定義類別

  1. 按兩下 [檔案] 選單上的 [新增專案] 來建立專案。 [新增專案] 對話方塊隨即出現。

  2. 從 Visual Basic 專案範本清單中選取 [Windows 應用程式]，以顯示新的專案。

  3. 單擊 [專案] 功能表上的 [ 新增類別 ]，將新類別新增至 專案 。 [加入新項目] 對話方塊隨即出現。

  4. 選取 [類別 ] 範本。

  5. 將新類別 UserNameInfo.vb命名為 ，然後按兩下 [ 新增 ] 以顯示新類別的程式代碼。

    Public Class UserNameInfo
End Class

    備註

    您可以使用 Visual Basic Code 編輯器 將類別新增至啟動表單，方法是輸入 Class 關鍵詞，後面接著新類別的名稱。 程式 代碼編輯器 會為您提供對應的 End Class 語句。

  6. 在 Class 和 End Class 語句之間新增下列程式代碼，以定義類別的私人欄位：

    Private userNameValue As String

    將欄位宣告為 Private ，表示它只能在 類別內使用。 您可以使用如 Public 等存取修飾詞來使類別外部能夠存取欄位，這樣可以提供更多存取權。 如需詳細資訊，請參閱 Visual Basic中的存取層級。

  7. 藉由新增下列程式代碼來定義 類別的屬性：

    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. 藉由新增下列程式代碼來定義 類別的方法：

    Public Sub Capitalize()
    ' Capitalize the value of the property.
    userNameValue = UCase(userNameValue)
End Sub

  9. 新增名為 Sub New的程式，以定義新類別的參數化建構函式：

    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。 新增下列程式代碼以呼叫測試程式：

    ' 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)

執行您的應用程式

  1. 按 F5 執行您的應用程式。 按兩下表單上的按鈕以呼叫測試程式。 它會顯示訊息，指出原始 UserName 是「MOORE, BOBBY」，因為程序呼叫了該物件的 Capitalize 方法。

  2. 按兩下 [確定 ] 關閉消息框。 此 Button1 Click 程式會變更 屬性的值 UserName ，並顯示訊息，指出 的新值為 UserName “Worden， Joe”。

另請參閱