Export (0) Print
Expand All

How to: Create Derived Classes 

The Inherits statement causes a class to inherit all the non-private members of the specified class.

To inherit from another class

  • Add an Inherits statement with the name of a class you want to use as a base class as the first statement in your derived class. The Inherits statement must be the first non-comment statement after the class statement.

Example

The following example defines two classes. The first class is a base class that has two methods. The second class inherits both methods from the base class, overrides the second method, and defines a field named 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

When you run the procedure TestInheritance, you see the following messages:

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.

See Also

Community Additions

ADD
Show:
© 2014 Microsoft