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

@potekhin · Регистрация: 14.10.2009

Подскажите плз.

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

Visual Basic

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

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

Заранее благодарен.

25.01.2011, 11:37

Переменную класса объявил в форме с WithEvents ?

@potekhin · 25.01.2011, 11:56 **[ТС]**

Да

25.01.2011, 15:25

Событие OnTimer объявил в классе как Public ?

@potekhin · 25.01.2011, 19:19 **[ТС]**

У класса есть событие и процедура вызывающая его.

Visual Basic

Public Event timer()
 
Public Static Sub RaiseTimer()
    RaiseEvent timer
End Sub

Эту процедуру должна вызывать callback функция которая должна быть расположена в другом модуле(AddressOf так работает если я не ошибаюсь)
Я делал так, но это не правильно т.к. событие произойдет в этом же модуле, а не в форме как это требуется.

Visual Basic

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

Подскажите есть ли какой то выход из этой ситуации?

25.01.2011, 20:56

В форме у тебя один инстанс твоего класса (объявленный с WithEvents), а в callback-функции - создаётся ДРУГОЙ! и именно в этом другом экземпляре происходит событие - есс-с-сно форма его не отловит!

Т.е. в callback-функции нужно вызывать процедуру (метод) RaiseTimer 'от контекста' того самого таймера, который объявлен в форме, а не создавать новый.

Выход - объявлять в форме переменную класса как PUBLIC (Public WithEvents classInstance As YourClassName), и в callback-функции вызывать Form1.YourClassName.RaiseTimer.

Тогда ты обратишься именно к тому экземпляру, отлов событий которого и происходит в форме (в classInstance_timer).

25.01.2011, 20:58

Пардон, ошибся:

вместо 'и в callback-функции вызывать Form1.YourClassName.RaiseTimer'

должно быть:

'и в callback-функции вызывать Form1.classInstance.RaiseTimer'.

Comanche
	25.01.2011, 11:37	2
	Переменную класса объявил в форме с WithEvents ?

@potekhin 2 / 2 / 2 Регистрация: 14.10.2009 Сообщений: 100
	25.01.2011, 11:56 [ТС]	3
	Да 0

Comanche
	25.01.2011, 15:25	4
	Событие OnTimer объявил в классе как Public ?

Comanche
	25.01.2011, 20:56	6
	В форме у тебя один инстанс твоего класса (объявленный с WithEvents), а в callback-функции - создаётся ДРУГОЙ! и именно в этом другом экземпляре происходит событие - есс-с-сно форма его не отловит! Т.е. в callback-функции нужно вызывать процедуру (метод) RaiseTimer 'от контекста' того самого таймера, который объявлен в форме, а не создавать новый. Выход - объявлять в форме переменную класса как PUBLIC (Public WithEvents classInstance As YourClassName), и в callback-функции вызывать Form1.YourClassName.RaiseTimer. Тогда ты обратишься именно к тому экземпляру, отлов событий которого и происходит в форме (в classInstance_timer).

Comanche
	25.01.2011, 20:58	7
	Пардон, ошибся: вместо 'и в callback-функции вызывать Form1.YourClassName.RaiseTimer' должно быть: 'и в callback-функции вызывать Form1.classInstance.RaiseTimer'.

Опции темы