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.<\/b><\/p>\n
Die einfachste Variante einer Klasse mit einigen Eigenschaften definieren wir wie folgt:<\/p>\n
Public Class<\/span> Person\r\n Public <\/span>Property Vorname As String<\/span>\r\n Public <\/span>Property Nachname As String<\/span>\r\n Public <\/span>Property Geburtsdatum As Date<\/span>\r\nEnd Class<\/span><\/pre>\nDiese deklarieren und initialisieren wir wie folgt und weisen den Eigenschaften die gewünschten Werte zu und geben diese anschließend in einem Meldungsfenster aus:<\/p>\n
Private Sub <\/span>BtnInitialisierenPerEigenschaft_Click(sender As Object<\/span>, e As <\/span>RoutedEventArgs)\r\n Dim <\/span>Person As <\/span>Person\r\n Person = New<\/span> Person\r\n With<\/span> Person\r\n .Vorname = \"André\"\r\n .Nachname = \"Minhorst\"\r\n .Geburtsdatum = \"23.01.1971\"\r\n End With<\/span>\r\n MessageBox.Show(\"Vorname: \" + Person.Vorname + vbCrLf<\/span> + \"Nachname: \" + Person.Nachname + vbCrLf<\/span> + \"Geburtsdatum: \" _\r\n + Person.Geburtsdatum.ToString)\r\nEnd Sub<\/span><\/pre>\nDas 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.<\/p>\n
Die Klasse sieht mit einem Konstruktor, der alle drei Eigenschaften als Parameter abfragt, wie folgt aus:<\/p>\n
Public Class<\/span> Person\r\n Public <\/span>Sub New(vorname As String<\/span>, nachname As String<\/span>, geburtsdatum As Date<\/span>)\r\n Me.Vorname = vorname\r\n Me.Nachname = nachname\r\n Me.Geburtsdatum = geburtsdatum\r\n End Sub\r\n Public <\/span>Property Vorname As String<\/span>\r\n Public <\/span>Property Nachname As String<\/span>\r\n Public <\/span>Property Geburtsdatum As Date<\/span>\r\nEnd Class<\/span><\/pre>\nMöchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t