Шаг 22 - Полиморфизм в VB

Под полиморфизмом понимается ситуация, когда интерфейс реализуют несколько классов.

gif/22_1.gif (951 b)

А это позволяет использовать в клиенте для типа переменной интерфейс, а не конкретный объект. На основе этого интерфейса создавать объект и вызывать код. Ну, давайте код глянем для лучшего понимания. Создаем обычный EXE.

gif/22_2.gif (1518 b)

Объявляем переменную типа интерфейса на уровне формы:

Dim interface As IChet

Теперь при нажатии на кнопку мы будем создавать разные объекты разных классов, но с одним интерфейсом.

Private Sub Command1_Click()
Set interface = New ClassChet
interface.Method
Set interface = Nothing
End Sub

Private Sub Command2_Click()
Set interface = New ClassChet1
interface.Method
Set interface = Nothing
End Sub

Вот код совершенно одинаковый, только меняется название класса, к которому мы обращаемся. Это очень важная возможность. Именно внедрение полиморфизма в жизнь и явилось основой для средств быстрой разработки, например VB очень интенсивно использует эти возможности (просто от Вас все это скрыто).


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем - 29.08.2001