Платные хостинги     Раскрутка сайта     Книги по программированию

Timer, Timer + Label

- Ну если по проще ..то вот так наверное. Интервал на таймере поставь 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 = &H8000000FEnd Sub

- Можно и так:Интервал на таймере поставь 1000Код private sub Timer1_Timer()   label1.Forecolor = iif(Label1.ForeColor=0, &H8000000F, 0)end subhighlightSyntax('vbNGNhNT','vb');Раз в секунду(интервал 1000), будет меняться цвет.

- Да ! я о динамике то и не подумал !!! если поставить Scroll и задавать им интервал для таймера то частоту можно изменять. МОЛОДЕЦ ! иду ставить + ))

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD