МОЛОДЕЦ ! иду ставить +
)) | Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > VB6 > Timer |
| Автор: Vavan 31.8.2003, 15:59 |
| как заставить мигать данные в лейбле с помощью таймера Лейбл реагирует накнопку которая выкидывает данные в лебл. |
| Автор: Alles 1.9.2003, 04:43 |
| Ну если по проще ..то вот так наверное. Интервал на таймере поставь 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 | ||
| Можно и так: Интервал на таймере поставь 1000
Раз в секунду(интервал 1000), будет меняться цвет. |
| Автор: Alles 1.9.2003, 08:51 |
| Да ! я о динамике то и не подумал !!! если поставить Scroll и задавать им интервал для таймера то частоту можно изменять. МОЛОДЕЦ ! иду ставить + )) |