Завдання кольору в Visual Basic 6.0

Значення кольору мальованої фігури при записі коду програми можна задавати різними способами.

• Простий спосіб завдання — це використання констант. Відповідність констант восьми основним кольорам дана в таблиці. 1. Червону крапку на формі поставить такий запис:

Pset (100, 100), vbRed.

• Більше шістнадцяти мільйонів кольорів і відтінків можна отримати, використовуючи функцію RGB.

Її синтаксис:

RGB(Red, Green, Blue)

де кожен аргумент функції визначає інтенсивність основного цве­та і може набувати значень від 0 до 255. Для здобуття восьми основних кольорів аргументи функції RGB повинні набувати значень, вказаних в таблиці 1.

• Використання функції color що знайомо працював з графікою мов QBasic і Quick Basic. Синтаксис цієї функції:

QBColor(color)

де color— ціле число з діапазону від 0 до 15. Назви і значення кольорів приведені в таблиці 2.

2. Квадрат світло-червоного кольору створить на формі такий запис:

Line (100,100) - (500,500), QBColor (12).

• Можна використовувати шістнадцяткове представлення коду кольору. Такий запис можна спостерігати у вікні Властивості в правій колонці рядка властивостей, що визначають колір. Запис обрамовують лідируючим і замикаючим символом амперсенда (&) і починається з букви H. Значення основних кольорів приведені в таблиці 1. Значення кольорів палітри можна виписати з вікна Властивості.

Таблиця 1. Завдання кольору

Колір	Константа	Значення в шістнадцятковій системі	Функція RGB
			R	G	B
Чорний	VbBlack	&HO	0	0	0
Червоний	VbRed	&HFF	255	0	0
Зелений	VbGreen	&HFF00	0	225	0
Жовтий	VbYellow	&HFFFF	255	255	0
Синій	VbBlue	&HFF0000	0	0	255
Рожевий	VbMagenta	&HFF00FF	255	0	255
Блакитний	VbCyan	&HFFFF00	0	255	255
Білий	VbWhite	&HFFFFFF	225	255	255

Таблиця 2. Значення параметра функції QBColor

Колір	Значення	Колір	Значення
Чорний	0	Сірий	8
Синій	1	Світло-синій	9
Зелений	2	Ясно-зелений	10
Блакитний	3	Ясно-блакитний	11
Червоний	4	Світло-червоний	12
Рожевий	5	Ясно-рожевий	13
Жовтий	6	Ясно-жовтий	14
Білий	7	Насичений білий	15

Приклад 3. Способи завдання кольору

У листингу 3 приведений код додатка, в якому при завантаженні форми за допомогою графічного методу Line на формі відображуються чотири зафарбованих різними способами квадрата.

Листинг 3. Способи фарбування фігур

Private Sub Form_Load()

Show

Line (500,500) -(1000,1000), vbBlue, BF

Line (1500, 500) -(2000, 1000), RGB(255, 255, 255), BF

Line (2500, 500) -(3000, 1000), QBColor(13), BF

Line (3500,500) -(4000, 1000) &HFC00&, BF

End Sub

У першому квадраті для зафарбовування квадрата використана константа з таблиці 1.

Другий квадрат закрашений за допомогою функції RGB. Змінюючи значення параметрів функції RGB (Red, Green, Blue), можна отримувати квадрати різного кольору (у програмі він білий).

Третій квадрат закрашений за допомогою функції QBColor (номер кольору). Номери кольорів приведені в таблиці 2.

У четвертому квадраті використаний спосіб безпосередньої установки кольору за допомогою шістнадцятиричного номера кольору. Квадрат закрашений ясно-зеленим кольором з номером &HFC00& (колір узятий з графічного редактора Paint, його десятковий номер — 64 512 — був отриманий за допомогою функції Point).