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