|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.12.2014, 10:51 | #1 |
Форумчанин
Регистрация: 08.11.2013
Сообщений: 137
|
удержание цвета кнопки
Хочется сделать красиво....
Настроил вет текста и фона при нажатии на кнопку. При нажатии происходит загрузка из XLS файлов. Процесс занимает 4-5 секунд. Можно ли сделать, что бы цвет фона и текста кнопки "удерживался как нажатый" до окончания выполнения процесса. |
27.12.2014, 15:02 | #2 |
Форумчанин
Регистрация: 08.11.2013
Сообщений: 137
|
Мот кому пригодится...
Private Sub Кнопка1_Click() Me.Кнопка1.Caption = "Ожидайте..." Me.Кнопка1.BackColor = RGB(255, 242, 0) Me.Кнопка1.HoverColor = RGB(255, 242, 0) Me.Кнопка1.ForeColor = RGB(237, 28, 36) Me.Кнопка1.HoverForeColor = RGB(237, 28, 36) Me.Кнопка1.Requery DoEvents DoCmd.RunMacro "Загрузка" Me.form2.Requery Me.form3.Requery Me.Кнопка1.Caption = "Загрузка данных" Me.Кнопка1.BackColor = RGB(236, 236, 236) Me.Кнопка1.HoverColor = RGB(236, 236, 236) Me.Кнопка1.ForeColor = RGB(0, 0, 0) Me.Кнопка1.HoverForeColor = RGB(29, 151, 64) End Sub Сразу после нажатия на кнопку (без вышеуказанного кода) кнопка иногда теряла фокус, а иногда и нет. Поэтому прописал изменение цветов на свободный режим и под фокусом. Не совсем понял, что такое "DoEvents" (посоветовали попробовать дрбрые люди), но без него не хочет работать, по-крайней мере у меня. Вот выкладываю, мот кому пригодится. Ну а если кто изволит что-то прокоментировать - буду только рад. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
изменение цвета объекта при нажатии кнопки мыши | con | Visual C++ | 0 | 10.06.2012 02:56 |
Изменение цвета кнопки при ее нажатии | RedRec | Microsoft Office Excel | 2 | 04.08.2011 09:11 |
Удержание фокуса на форме | megachuhancer | Общие вопросы Delphi | 2 | 09.09.2009 14:09 |
Удержание клавиши | BuT@JL | Общие вопросы Delphi | 8 | 22.07.2009 17:10 |