Klasse initialisieren mit Konstruktor

Lies diesen Artikel und viele weitere mit einem kostenlosen, einwöchigen Testzugang.

In der einfachsten Variante hat eine Klasse öffentliche Eigenschaften, mit denen Sie nach dem Initialisieren die Eigenschaften des erstellten Objekts festlegen können. Es gibt eine Alternative: Sie können eine Konstruktor-Methode für die Klasse definieren, der Sie die verschiedenen Eigenschaftswerte direkt in einer Anweisung übergeben. Dieser Artikel zeigt, wie das funktioniert.

Die einfachste Variante einer Klasse mit einigen Eigenschaften definieren wir wie folgt:

Public Class Person
     Public Property Vorname As String
     Public Property Nachname As String
     Public Property Geburtsdatum As Date
End Class

Diese deklarieren und initialisieren wir wie folgt und weisen den Eigenschaften die gewünschten Werte zu und geben diese anschließend in einem Meldungsfenster aus:

Private Sub BtnInitialisierenPerEigenschaft_Click(sender As Object, e As RoutedEventArgs)
     Dim Person As Person
     Person = New Person
     With Person
         .Vorname = "André"
         .Nachname = "Minhorst"
         .Geburtsdatum = "23.01.1971"
     End With
     MessageBox.Show("Vorname: " + Person.Vorname + vbCrLf + "Nachname: " + Person.Nachname + vbCrLf + "Geburtsdatum: " _
         + Person.Geburtsdatum.ToString)
End Sub

Das ist die herkömmliche Methode. Visual Basic bietet eine Alternative, bei der Sie eine Konstruktor-Methode verwenden. Eine Konstruktor-Methode wird beim Initialisieren eines Objekts ausgelöst. Sie können auch Parameter für die Konstruktor-Methode definieren. Und Sie können die Konstruktor-Methode auch überladen – das heißt, Sie können mehrere Konstruktor-Methoden mit verschiedenen Parametern definieren, die diese dann auf die gewünschte Weise auswerten.

Die Klasse sieht mit einem Konstruktor, der alle drei Eigenschaften als Parameter abfragt, wie folgt aus:

Public Class Person
     Public Sub New(vorname As String, nachname As String, geburtsdatum As Date)
         Me.Vorname = vorname
         Me.Nachname = nachname
         Me.Geburtsdatum = geburtsdatum
     End Sub
     Public Property Vorname As String
     Public Property Nachname As String
     Public Property Geburtsdatum As Date
End Class