Нужно создать класс у которого есть Event. - VB

Формулировка задачи:

Подскажите плз. Никогда до этого сильно с VB не работал. Нужно создать класс у которого есть Event. Это событие генериться внутри класса по таймеру.

'Эта функция вызывается по таймеру
Public Sub GenerateEvent()
        RaiseEvent OnTimer
End Sub

на форме пытаюсь отловить его, но оно как будто не происходит (но в самом классе точно отрабатывает RaiseEvent). Заранее благодарен.

Решение задачи: «Нужно создать класс у которого есть Event.»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Public timer As CTimer
 
Public Function fTimerCallBack(ByVal lnghwnd As Long, ByVal lngMessage As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    
    Set timer = New CTimer
    timer.RaiseTimer
    Set timer = Nothing
End Function
                        

Оцени полезность:

6 голосов , оценка 4.167 из 5

Похожие ответы