在VBA中实现接口的事件

Question

I have an interface IView:

 Option Explicit

Public Event OnClientSelected()

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

But I am not able to implement the event in my user form. Properties and subs are allowed to implement, but event not.

Is it possible to make interface implementation with events?

Answer 1

Did you use withevents?

I've done the following, added a test function to your class

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

Function added to class

Public Function test()
    RaiseEvent OnClientSelected
End Function