Повертає значення типу Long, яке представляє код кольору RGB, що відповідає вказаному номеру кольору.
Синтаксис
QBColor(color)
Обов'язковий аргумент кольору– це ціле число в діапазоні від 0 до 15.
Параметри
Аргумент колір має такі параметри:
| число | Колір | число | Колір |
|---|---|---|---|
| 0 | Чорний | 8 | Сірий |
| 1 | Синій | 9 | Світло-блакитний |
| 2 | Зелений | 10 | Світло-зелений |
| 3 | Блакитний | 11 | Світло-блакитний |
| 4 | Вставлення символу | 12 | Світло-червоний |
| 5 | Пурпуровий | 13 | Світло-пурпуровий |
| 6 | Жовтий | 14 | Світло-жовтий |
| 7 | Білий | 15 | Яскраво-білий |
Примітки
Аргумент color представляє значення кольорів, які використовуються в попередніх версіях Basic (наприклад, Microsoft Visual Basic для MS-DOS і компіляторі Basic). Починаючи з найменш значущого байта, значення, що повертається, визначає значення червоного, зеленого та синього кольорів, які використовуються для встановлення відповідного кольору в системі 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