Мы в прошлом шаге посмотрели, как VB создает сам интерфейс. Но у нас есть возможность это дело сделать самим. Создать и описать интерфейсный класс. Есть несколько правил, которым должен этот класс удовлетворять:

• У него не должно быть реализации
• Он должен быть типа PublicNotCreatable

В этом классе, который будет интерфейсом, определяются только методы и параметры их вызовов. Давайте создадим такой класс:

Ну и опишем его методы:

Public Sub Test()

End Sub



Public Sub Method()

End Sub

Теперь создадим еще один класс, в котором будет реализация (coclass).

Объявим класс интерфейса:

Implements IChet

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

Implements IChet



Private Sub IChet_Method()

MsgBox "Method"

End Sub



Private Sub IChet_Test()

MsgBox "Test"

End Sub

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

Вопрос в том, зачем все это нужно. Нужно ради полиморфизма.