Cómo: Crear clases derivadas

Artículo
10/07/2008

Actualización: noviembre 2007

La instrucción Inherits hace que una clase herede todos los miembros no privados de la clase especificada.

Para heredar de otra clase

Agregue una instrucción Inherits (con el nombre de una clase que desee utilizar como clase base) como primera instrucción de la clase derivada. La instrucción Inherits debe ser la primera instrucción sin comentario después de la instrucción de clase.

Ejemplo

El ejemplo siguiente define dos clases. La primera es una clase base que tiene dos métodos. La segunda hereda los dos métodos de la clase base, reemplaza el segundo método y define un campo denominado 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

Al ejecutar el procedimiento TestInheritance, aparecen los siguientes mensajes:

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.