Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.110
Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.110

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

Как уже отмечалось выше, объектно-ориентированное программирование предоставляет возможность присваивать

ГЛАВА 20 Т ООП (практика)

одинаковые имена различным компонентам программы. Таким образом, можно при наследовании класса использовать один и тот же метод в разных целях. То есть, сохраняя без изменения коды базового класса, достаточно внести незначительные изменения в коды унаследованного - и готова программа, выполняющая уже другую задачу. Выясним, как происходит наследование класса. Откроем новый проект и создадим файл класса, для чего выполним команду Project > Add Class. Наполним его кодами.

Public Class Classl

Private x As Integer Public Property xl() As Integer Get

xl = x End Get

Set(ByVal Value As Integer) x = Value

End Set End Property Public Sub move()

x = x + 1

End Sub

Теперь создадим унаследованный класс. Для этого используем ключевое слово Inherits и укажем имя базового класса. Откроем новый файл класса и запишем в него соответствующий код.

Public Class Class2 Inherits Classl End Class

Такой класс является точной копией базового. Он содержит те же свойства и методы и выполняет ту же программу. В таком наследовании толку мало. Главное достоинство унаследованного класса заключается в том, что в него можно добавить новые компоненты или изменить уже имеющиеся. Чтобы сделать это, придется кое-что поменять в базовом классе. Вносить изменения в методы и свойства можно только в том случае, если заменить слова Public словом Over-ridable. В унаследованном классе необходимо использовать слово. Чтобы уяснить все это, разберем пример в виде реаль-

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

но работающей программы. Задача программы: создание унаследованного класса, в котором для выполнения совершенно другой задачи будет использован тот же метод, что и в базовом. Создадим базовый класс, для чего выполним команду Project > Add Class и дадим ему имя rect. С помощью этого класса нарисуем на форме четырехугольник.

Public Class rect

Overridable Sub draw(ByVal e As PaintEventArgs) e.Graphics.DrawRectangle(New _ Pen (Color. Green, 3), 100, 100, 150, 100) End Sub


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta