Objekte können auch Unterobjekte haben, mit wieder eigenen Eigenschaften
und Methoden. Und natürlich können Unterobjekte weitere Unterobjekte haben. Ein
Unterobjekt ist einfach nur eine Eigenschaft des Hauptobjekts, das als Datentyp
einen Objekttyp hat. Deswegen verwendet IntelliSense auch dafür das
Eigenschaften-Symbol.
Stellen wir uns Radio
als Unterobjekt von Auto
vor, das
wiederum die Methode einschalten
besitzt. Diese Methode würde man etwa
mit Auto.Radio.einschalten
aufrufen. Für das Radio benötigt man wieder
eine eigene Klasse namens Radio
:
Radio |
---|
Public Function einschalten() As Boolean MsgBox "Sie hören jetzt Radio" End Function
In der Klasse Auto
benötigen wir lediglich folgenden zusätzlichen
Code:
Auto |
---|
Public Kenwood As New Radio
Damit steht das Radio als Unterobjekt des Autos zur Verfügung. Es lässt sich wie folgt einschalten:
Modul1 |
---|
Public Sub Musik() Dim Opel As New Auto Opel.Kenwood.einschalten End Sub