встроенный таймер в модуле класса

[DimPos]

Кто знает почему код в обычном модуле не работает в модуле класса
Код модуля:

Option Explicit
Private Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, _
ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) _
As Long
Private Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, _
ByVal nIDEvent As Long) As Long
Private TimerId As Long
Function StartTimer(MyInterval As Long) As Long
TimerId = SetTimer(0&, 0&, MyInterval, AddressOf TimerProc)
End Function
Sub StopTimer()
Dim f As Long
f = KillTimer(0&, TimerId)
End Sub
Sub TimerProc(ByVal MyHwnd As Long, ByVal MyMsg As Long, ByVal TimerId As Long)
On Error GoTo err:
'код
Exit Sub
err:
StopTimer
End Sub
вызов функций производится из формы
точно такой же код в модуле класса выдает ошибку

"invalid use of AddressOf operator"

[alibek]

Разумеется он не будет работать.
Об этом в справке сказано к AddressOf.

[DimPos]

Ну нет у меня MSDN и в имеющейся литературе так же нет описания этого оператора. Смутно припоминаю что он связан с субклассированием и может использоваться совместно с еще одной API для замещения функции обработки сообщений окна.(я могу ошибаться-точно уже не помню)
В общем я так понимаю что в этом виде программа работать не будет - можно не париться.
Но опять же в описании API SetTimer про последний параметр сказано - Указатель на периодически вызываемую функцию обработки таймера
Если вместо TimerProc подставить другую функцию - то она почему-то вызывается только один раз - с чем это связано?

[Viper]

Ну нет у меня MSDN и в имеющейся литературе так же нет описания этого оператора.

MSDN есть у всех, у кого есть интернет.

Смутно припоминаю что он связан с субклассированием и может использоваться совместно с еще одной API для замещения функции обработки сообщений окна.(я могу ошибаться-точно уже не помню)

Не надо ничего смутно припоминать, оператор этот предназначен для передачи адреса функции в качестве аргумента другой функции (как правило для передачи в API-функцию).

Но опять же в описании API SetTimer про последний параметр сказано - Указатель на периодически вызываемую функцию обработки таймера

Именно. И эта функция должна находиться в модуле, но никак не в классе. Есть некоторые сложности с получением адреса функции, находящейся в классе. Хотя, конечно этот адрес получить можно, но AddressOf в этом не поможет.

Если вместо TimerProc подставить другую функцию - то она почему-то вызывается только один раз - с чем это связано?

Незнаю, даром телепатии не обладаю, что за функция, как вызывается?

[DimPos]

Хотя, конечно этот адрес получить можно, но AddressOf в этом не поможет.

А что поможет?
Можно ли вообще сделать таймер внутри класса, без использования глобальных переменных проекта и не нарушая инкапсуляцию модуля?

[alibek]

Без модулей - нельзя.
Каким образом модуль нарушит автономность твоего таймера? В процедуру передается хендл окна и идентификатор таймера, по ним ты легко найдешь, твой это таймер или нет.

[DimPos]

Ладно, понятно - нельзя так нельзя
А так хотелось чтоб таймер запускался внутри класса при инициализации и останавливался при уничтожении класса без использования внешнего кода (в модуле и тд.). Абыдна...