ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Interior.Color и системные цвета
10 сообщений из 10, страница 1 из 1
Interior.Color и системные цвета
    #34279862
lustig
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lustig
Участник
Доброго времени суток!
Подскажите как правильно использовать системные цвета (если это возможно) в VBA для объекта Interior.

Пишу:
Код: plaintext
1.
2.
3.
    With Selection.Interior
        .Color = - 2147483643 
    End With

в примере цвет окна, а получаю черный, пробывал и другие цвета, цвет подсказки, например, а получаю все-равно черный.
Как быть? Спасибо.
...
Рейтинг: 0 / 0
24.01.2007, 17:48:33
| Ответить | Цитировать | Написать  
Interior.Color и системные цвета
    #34279880
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
http://www.sql.ru/forum/actualthread.aspx?tid=384258
...
Рейтинг: 0 / 0
24.01.2007, 17:53:57
| Ответить | Цитировать | Написать  
Interior.Color и системные цвета
    #34279981
lustig
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lustig
Участник
2vbapro:
Прочитал по ссылке. Но не понял как это относится к моей теме. С произвольными RGB цветами у меня проблем нет. Мне нужен системный цвет. Чтобы цвет заливки был цветом окна в винде (не конкретным белым, серым и т.д., а тем, что указан в системе) или цветом виндового хинта, тем, который указан в системе.

Вот из справки к аксу про эти цвета:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
Настройка системных цветов Microsoft Windows в значениях свойств

Свойства Цвет фона (BackColor), Цвет границы (BorderColor) и Цвет текста (ForeColor) позволяют указать использование в Microsoft Access цветовой гаммы, соответствующей используемой в других приложениях Windows. Это особенно удобно при разработке приложения, с которым будет работать большое количество пользователей. Указание системных цветов Windows позволяет использовать на разных компьютерах различные цветовые гаммы, выбираемые каждым пользователем на панели управления Windows.

 1 	Откройте форму в режиме конструктора.
 2 	Для раздела или элемента управления откройте окно свойств.
 3 	В окне свойств укажите свойства Цвет фона (BackColor), Цвет границы (BorderColor) или Цвет текста (ForeColor).
 4 	Введите в ячейку свойства одно из чисел, приведенных в следующей таблице. Например, чтобы цвет фона формы совпадал с системным цветом фона Windows, задайте для свойства Цвет фона (BackColor) значение - 2147483643 , соответствующее значению элемента «Окно».

Элемент экрана	
Значение
  
Полоса прокрутки	- 2147483648 
Рабочий стол	- 2147483647 
Заголовок активного окна	- 2147483646 
Заголовок неактивного окна	- 2147483645 
Строка меню	- 2147483644 
Окно	- 2147483643 
Рамка окна	- 2147483642 
Текст меню	- 2147483641 
Текст окна	- 2147483640 
Текст заголовка	- 2147483639 
Граница активного окна	- 2147483638 
Граница неактивного окна	- 2147483637 
Фон приложения	- 2147483636 
Выделение	- 2147483635 
Выделенный текст	- 2147483634 
Объемная поверхность	- 2147483633 
Объемная тень	- 2147483632 
Серый цвет текста (недоступный элемент)	- 2147483631 
Текст кнопки	- 2147483630 
Текст заголовка неактивного окна	- 2147483629 
Объемное выделение	- 2147483628 
Объемная темная тень	- 2147483627 
Объемная светлая тень	- 2147483626 
Текст всплывающей подсказки	- 2147483625 
Фон всплывающей подсказки	- 2147483624 
Примечания   

·	Системные цвета Windows могут применяться только к перечисленным свойствам экранных элементов, их нельзя присваивать объектам. Например, свойство поля Цвет фона (BackColor) позволяет задать для поля цвет фона, совпадающий с цветом полосы прокрутки, рабочего стола или любого другого элемента экрана Windows.
·	Значения цветов экранных элементов Windows всегда одни и те же, независимо от конкретных цветов, задаваемых пользователем.
·	Кроме того, значения системынх цветов Windows могут быть заданы для свойств Цвет фона (BackColor), Цвет границы (BorderColor) и Цвет текста (ForeColor) в программе Visual Basic для приложений.
...
Рейтинг: 0 / 0
24.01.2007, 18:21:48
| Ответить | Цитировать | Написать  
Interior.Color и системные цвета
    #34280056
Ffffffffffffffff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ffffffffffffffff
Гость
Форма где? В Acc или в Excel-е ?
...
Рейтинг: 0 / 0
24.01.2007, 18:46:18
| Ответить | Цитировать | Написать  
Interior.Color и системные цвета
    #34280071
lustig
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lustig
Участник
Макрос в excel.
...
Рейтинг: 0 / 0
24.01.2007, 18:52:56
| Ответить | Цитировать | Написать  
Interior.Color и системные цвета
    #34280100
Ffffffffffffffff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ffffffffffffffff
Гость
Ну, дак это и есть цвета Windows. Они и настраиваются из Windows.
Если нужно закрасить ячейки, запусти запись макроса и посмотри результат.
Для формы есть окно свойств. Установи и посмотри в отладчике ,
что получилось.
...
Рейтинг: 0 / 0
24.01.2007, 19:03:37
| Ответить | Цитировать | Написать  
Interior.Color и системные цвета
    #34280120
lustig
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lustig
Участник
Ffffffffffffffff Если нужно закрасить ячейки, запусти запись макроса и посмотри результат.
Нужно не просто закрасить ячейки, а системным цветом винды. Как красить ячейку я написал еще в первом посте, но если указывать константы системных цветов, то получается черный. Мне нужно не для формы, а для ячейки листа excel.
...
Рейтинг: 0 / 0
24.01.2007, 19:13:30
| Ответить | Цитировать | Написать  
Interior.Color и системные цвета
    #34280145
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
Option Explicit

Public Declare Function GetSysColor Lib "user32" (ByVal color_index As Integer) As Long
Const COLOR_SCROLLBAR =  0 
Const COLOR_BACKGROUND =  1 
Const COLOR_ACTIVECAPTION =  2 
Const COLOR_INACTIVECAPTION =  3 
Const COLOR_MENU =  4 
Const COLOR_WINDOW =  5 
Const COLOR_WINDOWFRAME =  6 
Const COLOR_MENUTEXT =  7 
Const COLOR_WINDOWTEXT =  8 
Const COLOR_CAPTIONTEXT =  9 
Const COLOR_ACTIVEBORDER =  10 
Const COLOR_INACTIVEBORDER =  11 
Const COLOR_APPWORKSPACE =  12 
Const COLOR_HIGHLIGHT =  13 
Const COLOR_HIGHLIGHTTEXT =  14 
Const COLOR_BTNFACE =  15 
Const COLOR_BTNSHADOW =  16 
Const COLOR_GRAYTEXT =  17 
Const COLOR_BTNTEXT =  18 
Const COLOR_INACTIVECAPTIONTEXT =  19 
Const COLOR_BTNHIGHLIGHT =  20 

Const COLOR_3DDKSHADOW =  21 
Const COLOR_3DLIGHT =  22 
Const COLOR_INFOTEXT =  23 
Const COLOR_INFOBK =  24 

Const COLOR_HOTLIGHT =  26 
Const COLOR_GRADIENTACTIVECAPTION =  27 
Const COLOR_GRADIENTINACTIVECAPTION =  28 




Sub b()
    ActiveSheet.Range("A1").Interior.Color = GetSysColor(COLOR_ACTIVECAPTION)
    ActiveSheet.Range("A2").Interior.Color = GetSysColor(COLOR_INACTIVECAPTION)
End Sub
...
Рейтинг: 0 / 0
24.01.2007, 19:22:42
| Ответить | Цитировать | Написать  
Interior.Color и системные цвета
    #34280974
lustig
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lustig
Участник
2White Owl:
Спасибо за предложенное решение. Многие из цветов отображаются корректно, но COLOR_WINDOW остался черный (должен быть оттенок серого), почему - загадка.
Решение не в полной мере решает проблему, даже если все цвета будут нормально отображаться. Тут, как я понял, в текущий момент времени определяется какой RGB цвет соответствует указанному системному и красится этим RGB цветом (например COLOR_INFOBK - желтый, ячейка стала желтая). Но если открыть этот файл на компе, где COLOR_INFOBK - фиолетовый, то ячейка останется желтой. Т.е. для excel ячейка все-равно не будет окрашена в системный цвет в полном смысле этого слова.
...
Рейтинг: 0 / 0
25.01.2007, 10:35:34
| Ответить | Цитировать | Написать  
Interior.Color и системные цвета
    #34283164
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
lustig2White Owl:
Спасибо за предложенное решение. Многие из цветов отображаются корректно, но COLOR_WINDOW остался черный (должен быть оттенок серого), почему - загадка.Потому что на машине на которой ты запустил скрипт стандартный цвет окна - черный. И он не должен быть оттенком серого кстати :) Со времен Win95 стандартный цвет окна белый.

lustigРешение не в полной мере решает проблему, даже если все цвета будут нормально отображаться. Тут, как я понял, в текущий момент времени определяется какой RGB цвет соответствует указанному системному и красится этим RGB цветомДа, верно. Это макрос. Он работает "здесь и сейчас". Если хочешь перекрашивать ячейки автоматически при переносе книги на другие компьютеры, помести этот макрос в workbook_open и перекрашивай ячейки при каждом открытии книги.
...
Рейтинг: 0 / 0
25.01.2007, 18:27:11
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Interior.Color и системные цвета
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?desktop=1&fid=61&tid=2183571]:
 0ms
get settings:
 8ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 26ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 197ms
total:  316ms
созд. / загр.: 316ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]