Връща стойност от тип Long, представляваща RGB цветови код, съответстващ на указания номер на цвят.
Синтаксис
QBColor ( цвят )
Необходимият цвятаргумент е цяло число в диапазона от 0 до 15.
Настройки
Аргументът цвят има следните настройки:
"число" |
Цвят |
"число" |
Цвят |
0 |
Черно |
8 |
Сиво |
1 |
Син |
9 |
Светлосиньо |
2 |
Зелен |
10 |
Светлозелено |
3 |
Циан |
11 |
Светъл циан |
4 |
Вмъкване на символ |
12 |
Светлочервено |
5 |
Магента |
13 |
Светла магента |
6 |
Жълто |
14 |
Светложълто |
7 |
Бял |
15 |
Ярко бяло |
Забележки
Аргументът "цвят " представя стойностите за цвят, използвани от по-стари версии на Basic (например Microsoft Visual Basic за MS-DOS и basic compiler). Започвайки с най-малко значимия байт, върнатата стойност задава стойностите в червено, зелено и синьо, използвани за задаване на подходящия цвят в RGB системата, използвана от Visual Basic for Applications.
Пример
Забележка: Примерите по-долу илюстрират използването на тази функция във Visual Basic for Applications (VBA). За повече информация относно работата с VBA изберете Справочни материали за разработчици в падащия списък до Търсене и въведете един или няколко термина в полето за търсене.
Този пример използва функцията QBColor , за да промени свойството BackColor на формуляра, предаден като MyForm , до цвета, посочен от ColorCode. QBColor приема цели стойности между 0 и 15.
Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form) MyForm.BackColor = QBColor(ColorCode) End Sub