SetTimer trouble

[MAXIS]

Вопрос следующего плана. Существует функция-обработчик таймера, находящаяся в коде модуля. С помощью конструкции в модуле формы:

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

SetTimer Me.hWnd, 0, 0, AddressOf func_timer

Таймер запускается в модуле. Код:

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

Sub func_timer(byVal hWnd as long)
           .......
End Sub

Необходимо обратиться из этого кода к переменной, находящейся в модуле формы типа Form1.perem зная в модуле только контекст окна. КАК? Неохота перечислять все контексты окон и сравнивать с переданым в модуль значением, так как это отдельный ресурс.

[BV]

Во-первых, у цикла таймера аргументов поболее будет.
Во-вторых, а что, собственно, не нравится в перечислении окон проекта?

[EUGY]

пишу по памяти

Call Setprop(Me.hwnd, "myobjptr", Objptr(Me))
SetTimer Me.hWnd, 0, 0, AddressOf func_timer

Таймер запускается в модуле. Код:
Код:
Sub func_timer(byVal hWnd as long)

dim f As Form
call copymemory(f, Getprop(hwnd, "myobjptr"), 4)
debug.print f.caption
// очистка
call copymemory(f, 0&, 4)
.......
End Sub

[MAXIS]

Я знаю, что
ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long
Просто писать поленился...

Не нравиться сохранять указатели на формы. Если их порядка 100, то это большой ресурс памяти. Плюс время на перечисление. Это важнее всего.

[MAXIS]

EUGY

Спасибо, сча буду пытаться. А после SetProp нужно освобождать память на укакзатель?

Хм, нашел только что RemoveProp.

[EUGY]

RemoveProp для стиля обязателен, но не сразу после SetProp, у тебя же таймер,а во время выгрузки формы. Вообще конечно BV прав, безопаснее перечисление. Basic не любит пользователей, работаюших с памятью, чуть что не так, сразу валит.