Мы в прошлом шаге посмотрели, как VB создает сам интерфейс. Но у нас есть возможность это дело сделать самим. Создать и описать интерфейсный класс. Есть несколько правил, которым должен этот класс удовлетворять:
В этом классе, который будет интерфейсом, определяются только методы и параметры их вызовов. Давайте создадим такой класс:
Ну и опишем его методы:
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
Готово. Можно собирать проект. После сборки, заглянув в библиотеку типов, мы можем увидеть какой у нас интерфейс для класса реализации.
Вопрос в том, зачем все это нужно. Нужно ради полиморфизма.