Gewusst wie: Erstellen abgeleiteter Klassen

Artikel
09/03/2008

Aktualisiert: November 2007

Durch eine Inherits-Anweisung erbt eine Klasse alle nicht privaten Member der angegebenen Klasse.

So wird von einer anderen Klasse geerbt

Fügen Sie der abgeleiteten Klasse eine Inherits-Anweisung mit dem Namen einer Klasse, die Sie als Basisklasse verwenden möchten, als erste Anweisung hinzu. Bei der Inherits-Anweisung muss es sich um die erste Anweisung ohne Kommentare nach der Klassenanweisung handeln.

Beispiel

Im folgenden Beispiel werden zwei Klassen definiert. Bei der ersten Klasse handelt es sich um eine Basisklasse mit zwei Methoden. Die zweite Klasse erbt beide Methoden von der Basisklasse, überschreibt die zweite Methode und definiert ein Feld mit dem Namen Field.

Class Class1
    Sub Method1()
        MsgBox("This is a method in the base class.")
    End Sub
    Overridable Sub Method2()
        MsgBox("This is another method in the base class.")
    End Sub
End Class

Class Class2
    Inherits Class1
    Public Field2 As Integer
    Overrides Sub Method2()
        MsgBox("This is a method in a derived class.")
    End Sub
End Class

Protected Sub TestInheritance()
    Dim C1 As New Class1
    Dim C2 As New Class2
    C1.Method1() ' Calls a method in the base class.
    C1.Method2() ' Calls another method from the base class.
    C2.Method1() ' Calls an inherited method from the base class.
    C2.Method2() ' Calls a method from the derived class.
End Sub

Beim Ausführen der Prozedur TestInheritance werden folgende Meldungen angezeigt:

This is a method in the base class.

This is another method in the base class.

This is a method in the base class.

This is a method in a derived class.