Procedura: creare classi derivate
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.
Vedere anche
Concetti
Override di proprietà e metodi