Практическое руководство. Создание производных классов

Статья
11/05/2008

Обновлен: Ноябрь 2007

Инструкция Inherits заставляет класс наследовать все незакрытые члены заданного класса.

Наследование из другого класса

В качестве первой инструкции добавьте в производный класс инструкцию Inherits с именем класса, который необходимо использовать в качестве базового класса. Инструкция Inherits должна быть первой инструкцией (не считая комментариев) после инструкции определения класса.

Пример

В следующем примере определяются два класса. Первый класс является базовым классом, имеющим два метода. Второй класс наследует оба метода из базового класса, переопределяет второй метод и определяет поле с именем 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

При выполнении процедуры TestInheritance появится следующее сообщение:

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.