Procedura: creare classi derivate

Articolo
09/12/2008

Aggiornamento: novembre 2007

L'istruzione Inherits consente a una classe di ereditare tutti i membri non privati della classe specificata.

Per ereditare da un'altra classe

Aggiungere un'istruzione Inherits indicando come prima istruzione della classe derivata il nome della classe che si desidera utilizzare come classe base. È necessario che l'istruzione Inherits sia la prima istruzione non commentata dopo l'istruzione che definisce la classe.

Esempio

Nell'esempio seguente vengono definite due classi. La prima è una classe base con due metodi. La seconda consente di ereditare i due metodi dalla classe base, eseguire l'override del secondo metodo e definire un campo denominato 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

Quando viene eseguita la routine TestInheritance, verranno visualizzati i seguenti messaggi:

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.