Глава 12. Графические средства vb 6.

12.1. Управление цветом.

Самый простой способ задать на этапе проектирования цвет объекта (формы или элемента управления) – это воспользоваться его свойствами BackColor и ForeColor. Свойство BackColor задает цвет фона объекта, а ForeColor – цвет текста на объекте. После щелчка справа в строке этих свойств появляется значок треугольника. Щелчок на нем открывает окно палитры.

Выбор в этом окне любого цвета приводит к немедленному окрашиванию объекта или текста на нем.

Окно палитры имеет 2 вкладки: Система и Палитра. Вкладка

Система содержит набор цветов, используемых операционной системой. Вкладка Палитра предоставляет более широкий набор цветов, хотя и он не особенно велик.

На этапе выполнения приложения цвет объекта можно задать тремя способами:

1. Воспользоваться встроенными в VB константами цвета:

Label1.BackColor=vbMagenta

Таких констант всего 8: vbBlack, vbBlue, vbCyan, vbGreen, vbMagenta, vbRed, vbYellow, vbWhite.

2. Если требуется более широкая палитра цветов, то можно за-

дать цвет с помощью создания собственной константы цвета.

Цвет в Visual Basic задается с помощью структурированной целочисленной константы, имеющей тип Long. Она обычно представляется в 16 – ричной системе счисления. Эта константа соответствует цвету, составленному из 3 компонентов: красного (red), зеленого (green) и синего (blue). В соответствии с этим константа справа налево разбивается побайтно. Правый байт задает красный цвет, следующий байт – зеленый,

Третий слева байт – синий. Так, например, в константе 00C0E0FF красную компоненту общего цвета задает число FF, зеленую – E0 и синюю – C0. Крайний левый байт константы не используется для задания цвета и поэтому остается нулевым.

Чтобы в тексте программы указать, что число является кодом цвета, перед ним ставят символы “&H” и неиспользуемый для задания цвета крайний левый байт числа не указывают. Так в тексте программы для задания этого цвета в качестве фона, например, метки следует записать оператор:

Label1.BackColor = &HC0E0FF

3. На этапе выполнения приложения цвет объекта или текста на нем можно задать с помощью функции RGB.

В соответствии со структурой цветовой константы функция RGB имеет 3 аргумента: RGB(r,g,b), где r – это насыщенность красного цвета, g - зеленого и b – синего. Каждый из этих аргументов выражается десятичным числом типа Byte, т.е. может принимать значения от 0 до 255. Приведенный выше оператор можно заменить следующим:

Label1.BackColor = RGB(255,224,192),

т.к. 16 – ричному числу FF, определяющему насыщенность красной компоненты результирующего цвета, соответствует десятичное число 255, числу E0 зеленой компоненты – соответствует десятичное 224 и числу синей компоненты C0 – десятичное число 192.

В общем случае задать цвет программным путем можно следующим образом:

Dim x As Byte, y As Byte, z AS Byte

x = InputBox(“Введите насыщенность красной компоненты”)

y = InputBox(“Введите насыщенность зеленой компоненты”)

z = InputBox(“Введите насыщенность синей компоненты ”)

Label1.BackColor = RGB(x,y,z)

Перебор различных значений переменных позволяет получить более 16 млн. различных цветов.