分享方式:


逐步解說:定義類別 (Visual Basic)

這份逐步解說文件示範如何定義類別,以便您用來建立物件。 內容也會說明如何將屬性和方法新增至新類別,並示範如何初始化物件。

注意

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

若要定義類別

  1. 按一下 [檔案] 功能表的 [新增專案] 來建立專案。 [新增專案] 對話方塊隨即出現。

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

  3. 按一下 [專案] 功能表的 [新增類別],將新類別新增至專案。 [加入新項目] 對話方塊隨即出現。

  4. 選取 [類別] 範本。

  5. 將新類別命名為 UserNameInfo.vb,然後按一下 [新增] 即可顯示新類別的程式碼。

    Public Class UserNameInfo
    End Class
    

    注意

    您可以使用 Visual Basic 的「程式碼編輯器」輸入 Class 關鍵字,後面接著新類別的名稱,藉此將類別新增至啟動表單。 「程式碼編輯器」會提供對應的 End Class 陳述式。

  6. ClassEnd 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」。

另請參閱