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