Wieder einmal eine Klassenfrage

13/12/2007 - 14:53 von Harald Bacik | Report spam
Hallo NG

Ich habe bis jetzt immer nur mit "flachen" Klassen gearbeitet (also selbst
geschrieben).
Wie z.B.
Dim mcls As New meineKlasse
mcls.Nachname = "Mayer"
mcls.Vorname = "Kurt"

Jetzt würde ich diese Klasse gern erweitern & zwar, dass ich folgendes
machen kann:
Dim mcls As New meineKlasse
mcls.Onkel.Nachname = "Mayer"
mcls.Onkel.Vorname = "Hans"

So, & wenn das geschafft ist, möchte ich die Klasse noch so erweitern, dass
ich sie als Array benutzen kann:
Dim mcls As New meineKlasse
mcls.Onkel(0).Nachname = "Mayer"
mcls.Onkel(0).Vorname = "Hans"
mcls.Onkel(1).Nachname = "Bierbaumer"
mcls.Onkel(1).Vorname = "Werner"

Wie geht das? - Bitte um ein Codebeispiel. -DANKE!!!!
 

Lesen sie die antworten

#1 Samaschke, Karsten
13/12/2007 - 16:00 | Warnen spam
Harald Bacik schrieb:

Wie geht das? - Bitte um ein Codebeispiel. -DANKE!!!!



Ähm, ist das jetzt Dein Ernst?

Public Class MeineKlasse

Private _onkel As New Onkel

Public ReadOnly Property Onkel As Onkel
Get
Return _onkel
End Get
End Property

End Class

Und den Rest kannst Du dir mit den Schlüsselworten "Eigenschaften",
"Vererbung", "Kapselung" und "Array" selbst zusammengooglen.

Mit freundlichen Gruessen / Best regards,

Karsten Samaschke
IT-Consulting, IT-Development, IT-Training
Homepage: http://www.ksamaschke.de
Blog: http://www.karsan.de
Family: http://www.familyblogger.de
Smartphone-Blogger: http://smart.karsan.de

Sent via MacBook / Windows Vista

Ähnliche fragen