Страница 1 из 1

И еще один вопросик...

СообщениеДобавлено: 09.12.2004 (Чт) 12:38
Unstat
Как можно зделать так чтоб код постоянно выполнялся при запуске формы. Или есть ли здесь таймер.

СообщениеДобавлено: 09.12.2004 (Чт) 13:06
xolod
Эх, привыкли люди все-таки к Визуализации Визаульного Бэйсика..
Таймеры создаем/убиваем API-ф-ми SetTimer-KillTimer

СообщениеДобавлено: 09.12.2004 (Чт) 23:13
Unstat
Всеровно не понял как его создать.

СообщениеДобавлено: 10.12.2004 (Пт) 10:17
X-BOND
Unstat писал(а):Всеровно не понял как его создать.

Ленывый вы, однако... :)

Для начала объявляем глобальную переменную, которая определяет ID таймера, допустим так:
GLOBAL TimerID AS LONG

После создаем "субу" подобного типа:
SUB TimerProc(BYVAL HeWnd AS LONG, BYVAL nIDEvent AS LONG, BYVAL uElapse AS LONG, BYVAL lpTimerFunc AS LONG)
...
...
...
END SUB


Теперь таймер можно и запустить:
TimerID = SetTimer(HWND, 0, [интервал в милисекундах], CODEPTR(TimerProc))

Убивать так:
CALL KillTimer(HWND, TimerID)

СообщениеДобавлено: 07.02.2005 (Пн) 13:56
Unstat
Создаю я таймер ну считает он, а если мышкой по форме водить начинаешь то он несчитает перестаешь считает. Так же если маленькое время поставить считать будет, а на 1000 он ни как.