Управление цветом. Функции цвета

Свойство ForeColor - задает цвет текста, BackColor - заливку, BorderColor - цвет линий. Эти свойства можно установить непосредственно, нажав на объект и установив соответствующие значения из окна свойств или используя цветовую палитру.

Цвет текста, линий и заливки, в процессе выполнения программы, можно задать тремя способами.

Используя один из восьми констант, определяющих цвет:

vbBlack - черный; vbBlue - синий; vbGreen - зеленый; vbCyan - голубой; vbRed - красный; vbMagenta - сиреневый; vbYellow - желтый; vbWhite - белый.

Например BorderColor = vbGreen

С помощью функции QBColor(номер цвета из приведенных ниже значений).

0 - черный; 1 - синий; 2 - зеленый; 3 - бирюзовый; 4 - красный; 5 - пурпурный; 6 - желтый; 7 - белый; 8 - серый; 9 - светло-синий (голубой); 10 - светло-зеленый (салатный); 11 - светло-бирюзовый; 12 - светло-красный (алый); 13 - светло-пурпурный; 14 - светло-желтый; 15 - ярко-белый.

Например: Form1.BackColop = QBColor(3).

С помощью функции RGB(ИнтКр,ИнтЗел,ИнтСин).

RGB(255,255,255) - белый; RGB(255,0,0) - красный; RGB(0,255,0) - зеленый; RGB(0,0,255) - синий; RGB(0,255,255) - бирюзовый; RGB(255,0,255) - пурпурный; RGB(255,255,0) - желтый; RGB(192,192,192) - серый.

Например Form1.BackColop = RGB (0,255,255)

Оператор условия

Для реализации алгоритма с ветвлением (см. выше) необходим оператор условия. Его конструкция может иметь одну или несколько строк.

Одна строка:

If условие Then группа операторов 1 [Else группа операторов 2]

Несколько строк:

If условие Then

Группа операторов 1

[Else

Группа операторов 2 ]

End If

Квадратные скобки не ставятся, а лишь показывают то, что находящееся между ними содержимое можно опустить в случае ненадобности.

Работает этот оператор следующим образом:

1. Проверяется условие

2. Если условие истинно, то исполняется группа операторов 1

3. Если условие ложно, то исполняется группа операторов 2

В качестве условия может быть использовано любое логическое выражение со знаком > (больше), < (меньше), = (равно), > = (больше либо равно), < = (меньше либо равно).

Например:

If x>0 Then

MsgBox "Число положительное"

Else

MsgBox "Число отрицательное"

End If

Примеры условий:

x > y

a > = 5 + b

8 + 13 * y < 15 + x

Также в качестве условия можно использовать переменную или арифметическое выражение. Если его результат будет равен 0, то это расценивается как "ложь", остальные значения - "истина":

If a Then

MsgBox "Не равно 0"

Else

MsgBox "Равно 0"

End If

Оператор цикла

Для организации цикла в программе используют оператор цикла.

Общий вид оператора:

For Счетчик = Начальное значение To конечное значение [Step Шаг].

Операторы тела цикла (выполняются несколько раз)

Next Счетчик

Условные обозначения:

1. Счетчик - это переменная, которая содержит текущее значение цикла. При каждом обороте цикла Счетчик увеличивается на Шаг.

2. Начальное значение, Конечное значение, Шаг - это могут быть числа, выражения, переменные или свойства объектов, содержащие соответствующие числовые значения.

3. Счетчик начинает отсчет от Начального значения, но не может превысить Конечного значения.

4. Шаг можно опустить, тогда он будет равен 1.

5. Шаг может быть < 0, тогда значение Счетчика будет убывать, а Начальное значение должно быть больше Конечного значения.

Работа оператора:

1. При выполнении строки 1 переменная Счетчик принимает Начальное значение.

2. Выполняются операторы тела цикла.

3. При выполнении 3-ей строки Счетчик увеличивается на Шаг.

4. Если Счетчик меньше или равен Конечному значению, то снова выполняются операторы цикла, Счетчик увеличивается (см. пункты 2, 3).

5. Если Счетчик превысил Конечное значение, то выполняется строка, следующая за строкой Next.

Пример:

For i=1 To 10 Step 2

Print i

Next i

Такой цикл повторится 5 раз. Переменная i будет принимать значения от 1 до 10 с шагом 2, то есть 1, 3, 5, 7, 9. Эти числа будут напечатаны на форме с помощью оператора Print.