Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
wolfio Участник - экстремал
Вступление в Клуб: 22.10.2012
|
Вт Дек 02, 2014 13:31  окраска контролов формы |
|
Полезность: Нет оценки
|
Здравствуйте, ув.знатоки.
пожалуйста, подскажите VB-команду, которой можно окрасить контрол(кнопку) на форме, при ее нажатии? в CSMD ничего такого не нашел, а BackColor в редакторе ЭФО чето цвета не меняет мне...
заранее благодарю. |
|
 |
Volod Эксперт
Вступление в Клуб: 19.09.2007
|
Вт Дек 02, 2014 14:58   |
|
Полезность: Нет оценки
|
Text3.BackColor = &hEBFFFF
Saldo.ForeColor=vbRed |
|
 |
wolfio Участник - экстремал
Вступление в Клуб: 22.10.2012
|
Вт Дек 02, 2014 15:18   |
|
Полезность: Нет оценки
|
Volod пишет: | Text3.BackColor = &hEBFFFF
Saldo.ForeColor=vbRed |
ошибка:
...Object doesn't support this property or method: 'LastControl.BackColor'
Другие способы есть? |
|
 |
Volod Эксперт
Вступление в Клуб: 19.09.2007
|
Вт Дек 02, 2014 15:22   |
|
Полезность: Нет оценки
|
Я про LastControl и не писал.
Задача какая? |
|
 |
wolfio Участник - экстремал
Вступление в Клуб: 22.10.2012
|
Вт Дек 02, 2014 15:27   |
|
Полезность: Нет оценки
|
ну LastControl это вроде как и есть сам контрол, который у вас Text3.
Задача: при нажатии кнопки, окрашивать ее в красный цвет.
Имя кнопки может быть любым. оно хранится в lastControl.validateName |
|
 |
Volod Эксперт
Вступление в Клуб: 19.09.2007
|
Вт Дек 02, 2014 15:41   |
|
Полезность: 1
|
Цвет кнопки не меняется. См. таблицу Свойств, событий, методов.
Но можно для кнопки применить label-"подложку", у которой менять цвет - вокруг кнопки будет цветная рамка. |
|
 |
wolfio Участник - экстремал
Вступление в Клуб: 22.10.2012
|
Вт Дек 02, 2014 15:43   |
|
Полезность: Нет оценки
|
как это сделать? можете детальный пример нарисовать? или доку дать по этой части? |
|
 |
Volod Эксперт
Вступление в Клуб: 19.09.2007
|
Вт Дек 02, 2014 15:57   |
|
Полезность: Нет оценки
|
Разместите из Панели инструментов Надпись Label1 под объектом Object1 (чтобы размер был больше кнопки)
If lastControl.validateName = "Object1" then
Label1.BackColor =vbRed
Label1.ForeColor =vbRed
end if |
|
 |
wolfio Участник - экстремал
Вступление в Клуб: 22.10.2012
|
Вт Дек 02, 2014 16:21   |
|
Полезность: Нет оценки
|
спс)
забавный финт ушами) |
|
 |
Volod Эксперт
Вступление в Клуб: 19.09.2007
|
Вт Дек 02, 2014 16:23   |
|
Полезность: Нет оценки
|
Вам ехать или шашечки  |
|
 |
|