Comment : créer des classes dérivées

Article
09/12/2008

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.