Freigeben über

Exemplarische Vorgehensweise: Definieren von Klassen (Visual Basic)

In dieser exemplarischen Vorgehensweise wird veranschaulicht, wie Klassen definiert werden, die Sie dann zum Erstellen von Objekten verwenden können. Außerdem wird gezeigt, wie Sie der neuen Klasse Eigenschaften und Methoden hinzufügen und wie ein Objekt initialisiert wird.

Hinweis

Auf Ihrem Computer werden möglicherweise unterschiedliche Namen oder Speicherorte für einige der Visual Studio-Benutzeroberflächenelemente in den folgenden Anweisungen angezeigt. Die Visual Studio-Edition, über die Sie verfügen, und die Einstellungen, die Sie verwenden, bestimmen diese Elemente. Weitere Informationen finden Sie unter Personalisierung der IDE.

So definieren Sie eine Klasse

  1. Erstellen Sie ein Projekt, indem Sie im Menü "Datei" auf "Neues Projekt" klicken. Das Dialogfeld Neues Projekt wird angezeigt.

  2. Wählen Sie windows-Anwendung aus der Liste der Visual Basic-Projektvorlagen aus, um das neue Projekt anzuzeigen.

  3. Fügen Sie dem Projekt eine neue Klasse hinzu, indem Sie im Menü "Projekt" auf "Klasse hinzufügen" klicken. Das Dialogfeld Neues Element hinzufügen wird angezeigt.

  4. Wählen Sie die Klassenvorlage aus.

  5. Benennen Sie die neue Klasse UserNameInfo.vb, und klicken Sie dann auf "Hinzufügen" , um den Code für die neue Klasse anzuzeigen.

    Public Class UserNameInfo
End Class

    Hinweis

    Sie können den Visual Basic Code-Editor verwenden, um Ihrem Startformular eine Klasse hinzuzufügen, indem Sie das Class Schlüsselwort gefolgt vom Namen der neuen Klasse eingeben. Der Code-Editor stellt eine entsprechende End Class Anweisung für Sie bereit.

  6. Definieren Sie ein privates Feld für die Klasse, indem Sie den folgenden Code zwischen den Anweisungen Class und End Class hinzufügen.

    Private userNameValue As String

    Wenn das Feld als Private deklariert wird, bedeutet das, dass es nur innerhalb der Klasse verwendet werden kann. Sie können Felder außerhalb einer Klasse verfügbar machen, indem Sie Zugriffsmodifizierer verwenden, wie Public, die mehr Zugriff bieten. Weitere Informationen finden Sie unter Access-Ebenen in Visual Basic.

  7. Definieren Sie eine Eigenschaft für die Klasse, indem Sie den folgenden Code hinzufügen:

    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. Definieren Sie eine Methode für die Klasse, indem Sie den folgenden Code hinzufügen:

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

  9. Definieren Sie einen parametrisierten Konstruktor für die neue Klasse, indem Sie eine Prozedur mit dem Namen Sub Newhinzufügen:

    Public Sub New(ByVal UserName As String)
    ' Set the property value.
    Me.UserName = UserName
End Sub

    Der Sub New Konstruktor wird automatisch aufgerufen, wenn ein Objekt basierend auf dieser Klasse erstellt wird. Dieser Konstruktor legt den Wert des Felds fest, das den Benutzernamen enthält.

So erstellen Sie eine Schaltfläche zum Testen der Klasse

  1. Ändern Sie das Startformular in den Entwurfsmodus, indem Sie im Projektmappen-Explorer mit der rechten Maustaste auf den Namen des Formulars klicken und dann Designeransicht anzeigen wählen. Standardmäßig heißt das Startformular für Windows-Anwendungsprojekte Form1.vb. Das Hauptformular wird dann angezeigt.

  2. Fügen Sie dem Hauptformular eine Schaltfläche hinzu, und doppelklicken Sie darauf, um den Code für den Button1_Click Ereignishandler anzuzeigen. Fügen Sie den folgenden Code hinzu, um die Testprozedur aufzurufen:

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

So führen Sie Ihre Anwendung aus

  1. Führen Sie Ihre Anwendung aus, indem Sie F5 drücken. Klicken Sie auf die Schaltfläche im Formular, um die Testprozedur aufzurufen. Es wird eine Meldung angezeigt, die besagt, dass das Original UserName "MOORE, BOBBY" lautet, da die Prozedur die Capitalize Methode des Objekts aufgerufen hat.

  2. Klicken Sie auf 'OK ', um das Meldungsfeld zu schließen. Die Button1 Click Prozedur ändert den Wert der UserName Eigenschaft und zeigt eine Meldung an, dass der neue Wert von UserName "Worden, Joe" lautet.

Siehe auch