Връща стойност от тип Long, която представлява RGB цветен код, отговарящ на зададения номер на цвят.
Синтаксис
QBColor ( цвят )
Изискваният цветовиаргумент е цяло число в диапазона от 0 до 15.
Настройки
Аргументът цветен има тези настройки:
|
"число" |
Цвят |
"число" |
Цвят |
|
0 |
Черно |
8 |
Сиво |
|
1 |
Син |
9 |
Light Blue |
|
2 |
Зелен |
10 |
Светло зелено |
|
3 |
Циан |
11 |
Светло циан |
|
4 |
Вмъкване на символ |
12 |
Светло червен |
|
5 |
Лилава |
13 |
Светло лилаво |
|
6 |
Жълто |
14 |
Светло жълто |
|
7 |
Бял |
15 |
Ярко бяло |
Забележки
Аргументът за цвят представлява цветови стойности, използвани от по-стари версии на Basic (като Microsoft Visual Basic for MS-DOS и основния съставител). Започвайки от най-маловажния байт, върнатата стойност указва червени, зелени и сини стойности, използвани за задаване на подходящия цвят в системата 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
