VPF::Timer - Форум программистов

Vavan

Дата 31.8.2003, 15:59 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

как заставить мигать данные в лейбле с помощью таймера
Лейбл реагирует накнопку которая выкидывает данные в лебл.

Alles

Дата 1.9.2003, 04:43 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 142
Регистрация: 26.6.2003
Где: RUSSIA

Репутация: 2
Всего: 2

Ну если по проще ..то вот так наверное. Интервал на таймере поставь 100
Надпись мигает с интервалом в 1 секунду

Private Sub Timer1_Timer()
n = Mid(Second(Time), 2, 1)
If n = 1 Or n = 3 Or n = 5 Or n = 7 Or n = 9 Then Label1.ForeColor = 0 Else Label1.ForeColor = &H8000000F
End Sub

-Mikle-

Дата 1.9.2003, 07:46 (ссылка)

(нет голосов)

Загрузка ...

Невидимка Vingrad'а

Профиль
Группа: Экс. модератор
Сообщений: 1672
Регистрация: 22.6.2003
Где: Казахстан, Астана

Репутация: 8
Всего: 59

Можно и так:
Интервал на таймере поставь 1000

Код


private sub Timer1_Timer()
   label1.Forecolor = iif(Label1.ForeColor=0, &H8000000F, 0)
end sub

Раз в секунду(интервал 1000), будет меняться цвет.

--------------------

Если тебе плюют в спину, значит ты впереди...

Alles

Дата 1.9.2003, 08:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 142
Регистрация: 26.6.2003
Где: RUSSIA

Репутация: 2
Всего: 2

Да ! я о динамике то и не подумал !!! если поставить Scroll и задавать им интервал для таймера то частоту можно изменять.

МОЛОДЕЦ ! иду ставить +

))

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »