Передать событие из формы классу.

[Matew]

Пишу длл. Есть публичный класс. В нем такой код:

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

Public WithEvents frmMain As Form ' нельзя сразу описать тип формы

Private Sub Class_Initialize()
    Set frmMain = New frmMain1
End sub
Private Sub frmMain_evRun()
debug.print "Ура!" ' как отловить это событие?
End sub


В форме frmMain1

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

Public Event evRun()


Как отловить "свое" событие формы?

[tyomitch]

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

Public WithEvents frmMain As Form ' нельзя сразу описать тип формы


А надо.
Почему нельзя?

[Sebas]

ТЫ же написал что нельзя.

только так

Public WithEvents frmMain As frmMain1 ' можно сразу описать тип формы

[Sebas]

2tyomitch

ух, новая фича форума. Теперь он(форум) при отправке ответа предупреждает, что в тему ответили пока я писАл)

[Matew]

Нельзя Public, а мне оказывается и не надо было .
Спасибо!

[Antonariy]

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

Public WithEvents frmMain As Form ' нельзя сразу описать тип формы


А надо.
Почему нельзя?

А почему можно? Класс Form не является ActiveX-классом, он приватен для VB. Соответственно нельзя объявить его как Public.
Можно объявить в классе собственное событие и генерировать его в нужном событии формы.