События в DLL

[drronnie]

Госопда есть ДЛЛка которая имеет класс. В классе в процедуре Load включается таймер (SetTimer) и ему как процедура по AddressOf передаётся указатель на процедуру которая живёт в обычном модуле (передать указатель на процедуру из класса не полусается) в таймере при некоторых условиях должно возникать событие.
Вопрос как из простого модуля при помощи RaiseEvent сгенерировать событие модуля класса?

[Amed]

Не проверял, предположение.

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

Public Event test()
Public Event test2()

Public Sub RaiseClassEvent(index As Long)
Select Case index
    Case 0:
        RaiseEvent test
    Case 1:
        RaiseEvent test2
End Select
End Sub

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

Sub main()
Dim x As Class1
Set x = New Class1

x.RaiseClassEvent 0
End Sub

[ANDLL]

Вопрос как из простого модуля при помощи RaiseEvent сгенерировать событие модуля класса?

Никак, разумеется. Что за глупость?
События они на то и события что бы генерироваться ВНУТРИ класса. Ну разве что то что Amed написал... Но это просто переливание из пустого в порожнее.

[Antonariy]

Никак, разумеется? Что за глупость.

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

module1:
public lClass1 as Class1

sub TimerCallback()
    lClass1.FireEvent()
end sub

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

class1:

public event Event1()

private sub Class_Initialize()
    Set lClass1 = Me
end sub

friend sub FireEvent()
    raiseevent Event1()
end sub

[GSerg]

И в чём отличие от кода Amed'а?

[Antonariy]

1. В том, что у него экземпляр почему-то создается внутри коллбэка (если sub main это коллбэк), и кто же будет ловить событие?
2. У него Public Sub RaiseClassEvent, а нужно Friend, чтобы снаружи за него не дергали.

[drronnie]

Спасибо.... Я так понял, что лучше через SendMessage сообщения кидать... вместо событий