События МouseDown и МouseUp

Cобытие МouseDown применимо для многих объектов VB, происходит при нажатии мышкой на этот объект. Заголовок процедуры события выглядит так (имя объекта может быть другим).

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

При возникновении этого события, четырем аргументам присваиваются определенные значения: х, y – координаты нажатой точки.

Button - равно 1, если нажата левая клавиша мыши, равно 2, если нажата правая

Shift - равно 1, если при нажатии клавиши мыши удерживалась нажатой клавиша Scift на клавиатуре, в противном случае равно 0.

Значения аргументов, если надо их использовать в программе, можно присваивать другим контейнерным или глобальным переменным (если они нужны в других процедурах). Для этого в процедуре-событии надо написать, например, a = X, b=Y. Так мы запомним, в какой точке была нажата клавиша мышки.

Cобытие МouseUp – происходит в момент отжатия клавиши мышки, работает аналогично событию МouseDown.

Элемент управления Shape

Для улучшения внешнего вида приложения или выделения объектов в поле формы можно использовать графический элемент управления Shape.С помощью этого элемента можно построить шесть различных контуров, меняя его свойство Shape.

Restangle - прямоугольник

Square - квадрат

Circle - окружность

Oval - овал

Rounded Restangle - прямоугольник со скругленными углами

Rounded Square - квадрат со скругленными углами.

Свойства объекта, влияющие на внешний вид фигуры (внутренняя заливка, толщина линий) FillStyle, FillColor, DrawWidth работают аналогично свойствам формы при рисовании графическими методами.

Упражнение1. Установить объект Shape. Меняя его свойста, получать различные фигуры с различными заливками.

Задание3. На форме с одного края (например, поверху) сделать полоску-палитру : маленькие квадратики(Shape) различных цветов. При нажатии на один из квадратиков должен запомниться цвет.(Использовать событие МouseDown и метод Point). При нажатии вне палитры на нажатом месте рисуется точка выбранного цвета. Использовать метод Scale и предусмотреть клавишу очистки экрана.

Домашнее задание: Создать свой собственный графический редактор. На форме должна быть палитра, кнопки: ‘линия’ ’прямоугольник’ ’окружность’ ’ закрашенный пр-к’ ‘круг’ и кнопка:‘стереть всё’. В момент нажатия мышки запоминаются координаты точки, потом ведем нажатую мышку, и в момент отжатия кнопки рисуется соответствующая фигура определенного размера.

Дополнительное домашнее задание: Запрограммировать дополнительные функции для графического редактора, например:

• Кнопка рисования треугольника.

• Кнопка ластик.

• Возможность изменения палитры. ( При двойном щелчке на любой из Shape открывается другая форма (аналогичная форме в задании 6), подбирается цвет, при закрытии этой формы в этот цвет окрашивается выбранный Shape).

• Вставка рисунка из библиотеки (Набор рисунков расположить на другой форме).

• Другие придуманные Вами возможности.

Контрольные вопросы:

1. Перечислите все графические методы, которые вы знаете.

2. Что означают параметры в событиях MouseMove, МouseDown и МouseUp?

3. Почему при щелчке мыши по объекту Shape происходит событие формы?

УРОК 17

Цель урока. Изучение функции случайных чисел и понятия цикла. Научить студентов составлять циклические алгоритмы, правильно применять оператор FOR - цикл со счетчиком.