|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.11.2009, 07:59 | #1 |
Новичок
Джуниор
Регистрация: 03.11.2009
Сообщений: 2
|
Нужно сделать изменение цвета надписи каждые 15 сек
Всем привет!
У меня возникла проблема. В Excel на рабочем листе находятся объекты: 3 текстовых поля, кнопка Старт, кнопка Стоп и надпись. В текстовых полях соответственно отображаются часы, минуты, секнды (текущее время Now), а в надписи меняется текст - в начале минуты пишется "началась новая минута", а в остальное время в ней находится текст "Идет минута". Кнопка Старт запускает время. Стоп останавливает. Требуется, чтобы цвет надписи через 15 сек становился синим (на 5 сек), а потом возвращался к исходному. Листинг того, что уже работает: Dim flag As Integer Private Sub Com1_Click() 'кнопка Старт Com2.Enabled = True Com1.Enabled = False flag = 0 'начальная установка переменной flag в 0 While flag = 0 'организация цикла до оператора Wend Th = Format(Now(), "hh") Tm = Format(Now(), "n") Ts = 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 Куда бы тут пристроить изменение цвета надписи Lab1, да еще с интервалом во времени? |
03.11.2009, 08:40 | #2 | |
Форумчанин
Регистрация: 17.10.2008
Сообщений: 239
|
Цитата:
Код:
Последний раз редактировалось Юнлинг; 03.11.2009 в 12:14. Причина: Ошибка |
|
03.11.2009, 12:09 | #3 |
Новичок
Джуниор
Регистрация: 03.11.2009
Сообщений: 2
|
Супер!
Тут правда "dim dr as date, dr as date" наверно надо было dr1 второй раз написать. А "dim color as var" - это variant что ли? Я так написала, все работает. Спасибо огромное. Всю ночь ворочалась, искала решение. |
03.11.2009, 12:20 | #4 | |
Форумчанин
Регистрация: 17.10.2008
Сообщений: 239
|
Цитата:
Только учтите, что необходимо немного доработать функция tmtosd чтобы учесть переход месяца и года. Ну это вы сами. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Изменение цвета | girz | Общие вопросы Delphi | 6 | 30.05.2009 13:43 |
БД + изменение цвета TDBCheckbox | chel83 | Помощь студентам | 1 | 27.02.2009 11:58 |
ColorBar изменение цвета | Vladya | Помощь студентам | 1 | 19.11.2008 10:09 |
Как сделать чтобы макрос выполнялся сам каждые 10 минут? | Град | SQL, базы данных | 0 | 26.05.2008 16:12 |
Изменение цвета | Artem | Общие вопросы Delphi | 5 | 12.07.2007 09:07 |