удержание цвета кнопки - Microsoft Office Access

govorun1 · 25.12.2014, 10:51

Хочется сделать красиво....
Настроил вет текста и фона при нажатии на кнопку. При нажатии происходит загрузка из XLS файлов. Процесс занимает 4-5 секунд.
Можно ли сделать, что бы цвет фона и текста кнопки "удерживался как нажатый" до окончания выполнения процесса.

govorun1 · 27.12.2014, 15:02

Мот кому пригодится...

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" (посоветовали попробовать дрбрые люди), но без него не хочет работать, по-крайней мере у меня. Вот выкладываю, мот кому пригодится. Ну а если кто изволит что-то прокоментировать - буду только рад.

25.12.2014, 10:51	#1
govorun1 Форумчанин Регистрация: 08.11.2013 Сообщений: 137	удержание цвета кнопки Хочется сделать красиво.... Настроил вет текста и фона при нажатии на кнопку. При нажатии происходит загрузка из XLS файлов. Процесс занимает 4-5 секунд. Можно ли сделать, что бы цвет фона и текста кнопки "удерживался как нажатый" до окончания выполнения процесса.

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

27.12.2014, 15:02	#2
govorun1 Форумчанин Регистрация: 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" (посоветовали попробовать дрбрые люди), но без него не хочет работать, по-крайней мере у меня. Вот выкладываю, мот кому пригодится. Ну а если кто изволит что-то прокоментировать - буду только рад.