События

[Гость]

Есть проблема общения внутреннего com сервера(ATL VC++ 6) с VBA

Вопрос как обработчику COM объекта передать нужную процедуру басика.
Код примерно такой для создания объекта....

Dim Report As Object
Set Report = CreateObject("ХХХХХ")
Report.OnTest = ???

пробывал передавать адрес процедуры басиковой и там в сях ее вызывать , типа callback, все отлично но почемуто получать параметры басиковские про цедуры отказывались, ну да ладно это конечно извращения.... но вот как все же динамически установить обработчик события?????

[tyomitch]

Как насчёт

Код: Выделить всё

Dim WithEvents Report As Object
Set Report = CreateObject("ХХХХХ")



Private Sub Report_OnTest()
    ???
End Sub


Или нужно именно динамически?

[Гость]

Как насчёт

Код: Выделить всё

Dim WithEvents Report As Object
Set Report = CreateObject("ХХХХХ")



Private Sub Report_OnTest()
    ???
End Sub


Или нужно именно динамически?

погоди не силен я в басике но по-моему Sub Report_OnTest() это просто процедура некая, а как она интресно станет ассоцироваться с конкретным событием Test экземпляра Report Я идиот! Убейте меня, кто-нибудь!?
Или Dim WithEvents Report As Object это где-то пишеться в определлном месте???

[tyomitch]

"Dim WithEvents Report As Object это пишеться в определлном месте" (а именно, вверху модуля, вне всех процедур)

[Гость]

"Dim WithEvents Report As Object это пишеться в определлном месте" (а именно, вверху модуля, вне всех процедур)

А он в ответ что это правомерно только object module
знать бы что это такое

[tyomitch]

Это форма или класс.