Мы в прошлом шаге посмотрели, как 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

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

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