Урок 11

Цель урока. Познакомить студентов с принципами технологии Drag-and-Drop, научить работать с входными параметрами событий мыши, менять курсор мыши во время работы программы.

Обработка событий мыши

При работе любого приложения возникают различные события от мыши. VB поддерживает семь событий мыши.

Событие	Описание
Click	Происходит, когда нажимается и отпускается кнопка мыши (щелчок)
DblClick	Происходит в случае двойного щелчка
MouseMove	Генерируется при перемещении мыши
MouseDown	Происходит, когда нажимается кнопка мыши
MouseUp	Происходит при отпускании нажатой клавиши мыши (после события MouseDown)
DragDrop	Происходит в момент окончания перетаскивания объекта с помощью технологии Drag&Drop
DragOver	Генерируется в процессе перетаскивания объекта с помощью технологии Drag&Drop

С первыми тремя событиями вы уже знакомы. Но при работе с событием MouseMove мы не использовали все его возможности. У этого события есть параметры, от значений которых зависит выполнение программы. Во многих других событиях существуют аналогичные параметры.

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

Button – целое число, сообщающее о том, какие кнопки мыши нажаты.

Shift - целое число, сообщающее о том, какие из клавиш на клавиатуре нажаты.

Х –координата указателя мыши по горизонтали.

Y - координата указателя мыши по вертикали.

Значения X и Y считаются от левого верхнего угла объекта, с которым происходит событие

Параметр	Значение	Константа	Нажатая кнопка
Вutton	0		Нет
	1	VbLeftButton	Левая
	2	VbRightButton	Правая
	3	VbMiddleButton	Средняя
Shift	0		Нет
	1	VbShiftMask	Shift
	2	VbCtrlMask	Ctrl
	3	VbAltMask	Alt

Задание 1. На форме изображена папка. При щелчке она становится выделенной (синей). При щелчке по форме папка становится исходным желтым цветом. При наведении мышки на папку и нажатой левой клавише курсор принимает вид двойного крестика.

Изображение папки и других офисных ярлычков хранятся в папке

C:\Programm Files\Microsoft Studio Visual\Common\Graphics\Icons\Win95\

Изменить курсор мыши можно при помощи свойства MousePointer .

Свойство MousePointer

Константа	Значение	Указатель	Константа	Значение	Указатель
vbArrow	1		vbNoDrop	12
vbArrowHourglass	13		vbSizeAll	15
vbArrowQuestion	14		vbSizeNESW	6
vbGrosshair	2		vbSizeNS	7
vbCustom	99	Пользовательский	vbSizeNWSE	8
vbDefault	0	По умолчанию	vbSizePointer	5
vbHourglass	11		vbSizeWE	9
vbIbeam	3		vbUpArrow	10
vbIconPointer	4	Иконка

Теперь рассмотрим события Mouse и MouseUp – нажатие и отпускание клавиши мышки на объекте.

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

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

Параметры работают так же, как и в событии MouseMove

Задание 2. Добавляем в предыдущий проект. При нажатой правой клавиши появляется метка с пояснением, что это за папка. При отпускании клавиши метка исчезает. При нажатии правой клавиши и одновременно нажатой клавише Shift на клавиатуре появляется окно сообщений (например: «Не нажимай клавишу»)

Задание 3. На форме картинка. Когда курсор мыши находится в левом нижнем углу картинки, он принимает вид двойной стрелки, и если при этом двигаем мышь с нажатой левой клавишей, то картинка согласованно меняет размер.

Домашнее задание:

1. Последнее задание дополнить: аналогичные изменения курсора мыши и размера картинки в каждом углу.

2. Придумать и запрограммировать самим действия, происходящие по событиям MouseDown и MouseUp, применить входные параметры этих событий.

УРОК 12

Цель урока. Познакомить студентов с принципами технологии Drag-and-Drop, научить программировать перемещения объектов в программе в автоматическом и ручном режиме.