Реализация события интерфейса в VBA

Question

У меня есть интерфейс IView:

 Option Explicit

Public Event OnClientSelected()

Public Property Get ClientNames() As Variant
End Property
(...)

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

Возможно ли сделать реализацию интерфейса с событиями?

Answer 1

Использовали ли вы с собой?

Я сделал следующее, добавил функцию test в ваш класс

Private WithEvents iface As clsIface

Private Sub UserForm_Initialize()
    Set iface = New clsIface
End Sub

Private Sub iface_OnClientSelected()
    '   Event subscription
End Sub

Private Sub UserForm_Click()
    iface.test
End Sub

Функция добавлена ​​в класс

Public Function test()
    RaiseEvent OnClientSelected
End Function