Comment : créer des classes dérivées
Mise à jour : novembre 2007
Avec l'instruction Inherits, une classe hérite de tous les membres non privés de la classe spécifiée.
Pour hériter d'une autre classe
- Ajoutez une instruction Inherits portant le nom d'une classe que vous souhaitez utiliser comme classe de base en tant que première instruction dans votre classe dérivée. L'instruction Inherits doit être la première instruction sans commentaire après l'instruction de classe.
Exemple
L'exemple suivant définit deux classes. La première classe est une classe de base comprenant deux méthodes. La seconde classe hérite des deux méthodes de la classe de base, substitue la seconde méthode et définit un champ intitulé 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
Lorsque vous exécutez la procédure TestInheritance, les messages suivants apparaissent :
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.
Voir aussi
Concepts
Substitution de propriétés et de méthodes