End Sub

Show

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

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

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

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

Колір	Значення	Колір	Значення
Чорний		Сірий
Синій		Світло-синій
Зелений		Ясно-зелений
Блакитний		Ясно-блакитний
Червоний		Світло-червоний
Рожевий		Ясно-рожевий
Жовтий		Ясно-жовтий
Білий		Насичений білий

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

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

Private Sub Form_Load()

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

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

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

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

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

Властивості BackColor, FillColor і ForeColor

У вікні Властивості в списку властивостей форми є три властивості, які визначають колір: BackColor — визначає колір тла форми, FillColor — визначає колір внутрішньої заливки фігур, створених графічними методами, і ForeColor — задає колір ліній і контурів фігур.

Приклад 4. Визначальні колір властивості об'єктів

У листингу 4 показано код програми, що малює на жовтій формі синє коло, залите червоним кольором. Синій колір (vbBlue), заданий разом з методом Circle, переміг зелений колір (vbGreen), заданий в коді властивістю ForeColor. У свою чергу, заданий в коді зелений колір перемагає колір, який може бути заданий властивістю ForeColor у вікні властивостей.

Листинг 4. Властивості об'єктів і колір

Private Sub Form_Load() Show

DrawWidth = 5

BackColor = vbBlue 'синій колір форми

FillStyle = 0 'заливка круга

FillColor = vbRed 'червоний колір заливки

Circle (1000, 1000), 500, vbCyan 'коло блакитного кольору

ForeColor = QBColor(15) 'білий колір напису

FontSize = 12: Print Spc(5); "Завдання кольору"

<== попередня сторінка	\|	наступна сторінка ==>
Завдання кольору в Visual Basic 6.0	\|	End Sub

Не знайшли потрібну інформацію? Скористайтесь пошуком google:

Генерація сторінки за: 0.004 сек.