|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.09.2016, 23:02 | #1 |
Новичок
Джуниор
Регистрация: 15.09.2016
Сообщений: 1
|
Как сделать чтобы надпись меняла цвет каждые 15 секунд
Требуется обеспечить изменение цвета надписи, расположенной под кнопками Старт и Стоп через каждые 15 секунд. Надпись должна становиться синей на 5 с, а затем возвращаться к первоначальному цвету.
Dim flag As Integer Private Sub CommandButton1_Click() End Sub Private Sub Com1_Click() Com1.Enabled = False Com2.Enabled = True flag = 0 While flag = 0 Th.Text = Format(Now(), "hh") Tm.Text = Format(Now(), "n") Ts.Text = Format(Now(), "ss") DoEvents If Ts = "00" Then Lab1.Caption = "Началась новая минута" Else Lab1.Caption = "" End If Wend End Sub Private Sub Com2_Click() flag = 1 Com2.Enabled = False Com1.Enabled = True End Sub |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
как сделать чтобы в ворде автоматически вставлялись слова в текст, например через каждые пять слов | kiosaki | Microsoft Office Word | 3 | 29.04.2012 02:14 |
Как сделать, чтобы надпись была наверху? | Яр|/||< (^_^) | HTML и CSS | 0 | 23.01.2011 17:05 |
Как сделать чтобы макрос выполнялся сам каждые 10 минут? | Град | SQL, базы данных | 0 | 26.05.2008 16:12 |