2. Форма и компоненты

Запустите систему VB и создайте новый проект. Сохраните его в папке Светофор. На форме надо разместить объекты – лампочки светофора. Выберите на панели компонентов компонент Shape (Фигура) и нарисуйте объект на форме методом протягивания. Первую фигуру поместите в левый верхний угол формы. Новая фигура изображается в виде черной рамки. Добавьте на форму еще две фигуры. Постарайтесь чтобы у фигуры был одинаковый размер.

3. Настройка фигур

Фигуры не похожи на лампочки светофора. Лампочки должны быть круглыми, а не прямоугольными. Начнем с самой верхней фигуры. Щелкните на ней, чтобы она стала выделенной.

Сначала превратите прямоугольник, ограничивающий фигуру, в квадрат. Для этого измените значение свойств Width (Ширина) и Height (Высота). Дайте и тому и другому свойству значение 900.

Теперь задайте форму фигуры. Она задается свойством Shape (Форма). Чтобы лампочка стала круглой, выберите для этого свойства значение 3 – Circle (Круг).

Фигура состоит из контура и внутренней области, которые можно раскрасить в разные цвета. Цвет контура определяет свойство BorderColor (Цвет рамки). Щелкните на этой надписи, а затем в раскрывающей кнопке, появившейся справа, выберите вкладку Palette (Палитра) и на ней красный цвет.

Цвет внутренней части фигуры задается свойством FillCilor (Цвет заполнения). Выберите для него тот же цвет, что и для границы. Но на самой форме ничего не изменится. Потому сто есть еще одно свойство FillStyle (Способ заполнения). Оно определяет способ заполнения фигуры. Его значение, заданное по умолчанию: 1- Transparent (Прозрачный), и поэтому фигура не закрашивается. Выберите для этого свойства значение 0 – Solid (Сплошной). Фигура при этом закрашивается – лампочка «зажигается».

Точно также настройте остальные фигуры: Shape2 и Shape3. Они должны различаться только цветом. Для второй лампочки выберите желтый цвет, а для третьей – зеленый.

4. Программируем лампочки

Чтобы открыть окно кода, дважды щелкните на любой из лампочек. Окно кода откроется, но в нем ничего нет. Система VB не выберет объект автоматически и не создаст для него процедуру – обработчик. Тем более, что в раскрывающемся списке слева нет фигур. Система не считает фигуры активными элементами. Ваша программа должна сама следить за тем, как указатель мыши перемещается по форме, и в нужное время выдавать необходимый сигнал – событие. Если нельзя связать перемещение мыши с объектом, то свяжем его с другим объектом – контейнером, в котором располагается фигура. Это будет форма.

Выберите ее в левом раскрывающемся списке окна кода. В списке справа выберите событие MouseMove (Движение мыши). Оно возникает, когда указатель мыши наведен на форму.

Система VB автоматически создаст обработчик этого события – процедуру Form_MouseMove. Эта процедура отличается от других. В нее передаются параметры Button – указывает, какие кнопки мыши нажаты; Shift – указывает, не была ли при перемещении нажата клавиша клавиатуры Shift, Ctrl или Alt; X – горизонтальная координата указателя мыши; Y – вертикальная координата указателя.

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Осталось решить, какие параметры передадим в функцию.

• надо указать, для какой фигуры производится проверка;

• нужно передать в функцию координату указателя мыши.

Значение, полученное от функции, можно сразу присвоить свойству фигуры, отвечающему за способ заполнения. Включить и выключить лампочку можно так:

Shape1.FillStyle = OnShape(Shape1, X, Y)

Похожие операторы нужно записать и для двух оставшихся фигур:

Shape2.FillStyle = OnShape(Shape2, X, Y)

Shape3.FillStyle = OnShape(Shape3, X, Y)

Эти операторы и составят содержимое процедуры Form_MouseMove.