| Вопрос: Программное создание таймера через API... | Добавлено: 09.06.03 10:13 |
Автор вопроса:  BackDoor
|
|
Подскажите пожалуйста, как создать таймер. Если не ошибаюсь, функция SetTimer :) |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа: Creator Вопросов: 11 Ответов: 61 |
Профиль | | #1 | Добавлено: 09.06.03 10:30 |
|
|
||
Послал на мыло .....|
Номер ответа: 2 Автор ответа:  BackDoor Вопросов: 2 Ответов: 1 |
Профиль | | #2 | Добавлено: 09.06.03 15:18 |
|
Спасибо всем за оперативную подсказку!!! 1). В модуле: Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, _ ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal _ lpTimerFunc As Long) As Long Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long Public Sub My_Timer(ByVal hwnd As Long, ByVal nIDEvent As Long, _ ByVal uElapse As Long, ByVal lpTimerFunc As Long) Label1.Caption=format(Time, "HH:MM:SS") End Sub 2). На форме: Label1, Private Sub Form_Load() SetTimer Me.hwnd, 0, 1, AddressOf My_Timer End Sub Private Sub Form_Unload(Cancel As Integer) KillTimer Me.hwnd, 0 End Sub **************************************************************** Ну, а дальше, всё зависит от фантазии |
||
)) Я вот немного поковырялся и всё получилось само собой:Страница: 1 |