Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.09.2016, 23:02   #1
rezer7913
Новичок
Джуниор
 
Регистрация: 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
rezer7913 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как сделать чтобы в ворде автоматически вставлялись слова в текст, например через каждые пять слов 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