Перехват событий из класса

[X-BOND]

Возможно я не новичок, но вопрос наверно глупый.

Как перехватывать ЭВЕНТЫ из КЛАССА

[Rainbow]

Не совсем понятен вопрос

На сколько я понимаю, у тебя в MyClass1 описаны ивенты, которые ты кидаешь. В MyClass2 у тебя определена глобальная переменная as MyClass1 и ты хочешь словить ее ивенты.

Тогда добавь в описание ключевое слово WithEvents

Пример:
Private WithEvents m_MyVar as MyCalss1

[X-BOND]

Допустим у меня есть класс clsTimer
где прописан Эвент
Public Event OnTime

Класс после запуска начинает гинерировать импульсы с интервалом в 2 сек. и при этом происходит RaiseEvent OnTime

Где и как мне прехватить это событие?

Допустим, у формы есть событие MouseMove
и если написать процедуру:
Form_MouseMove(X as ......
MsgBox "Мыша дернулась"
End Sub
то каждый раз при наведении мышки на форму будет выскакивать сообщение.

С классами что-то похожее, или там совсем другой принцип?

[Rainbow]

Ну! Все правильно.
Где ты хочешь ловить эти сообщения? Допустим на своей основной форме.
Там ты объявляешь глобальную переменную

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

Private WithEvents m_MyTimer as clsTimer

Инициализишь ее где-нить (например на загрузке формы)

У тебя в твоем комбо, где обычно перечислены контролы, от которых ты ловишь ивенты появится m_MyTimer. А в правом, как и положено, все его объявленные ивенты. Дальше ты и сам знаешь, что делать:

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

Private Sub m_MyTimer_OnTime()
    Msgbox "Словили ивент от собственного таймера!"
end sub

Все понятно или остались вопросы?

[X-BOND]

Все очень понятно.
Большое спасибо

[Rainbow]

Большое пожалуйста.
Всегда рады.
Приходите еще!