3. Середина перетаскивания

Чтобы менять положение объекта, нужно следить за положением указателя мыши. Сделать это несложно, так в системе VB предусмотрено специальное событие DragOver (Перетаскивание). Оно возникает для объекта, над которым находится указатель.

Откройте окно кода. Выберите в списке слева кнопку Command1, а в списке справа – событие DragOver (Перетаскивание). В процедуру Command1_DragOver передается несколько параметров.

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

Command1.Left=Command1.Left+X-cx

Command1.Top=Command1.Top+Y-cy

Еще нужно создать обработчик перетаскивания для формы. Операторы процедуры Form_ DragOver должны быть такими:

Command1.Left=X-cx

Command1.Top=Y-cy

4. Конец перетаскивания

При отпускании кнопки мыши мы должны в последний раз изменить рисунок на кнопке. При обычном щелчке в момент отпускания кнопки мыши возникает событие MouseUp (Отпускание кнопки), но у нас идёт перетаскивание. Поэтому у нас возникает особое событие DragDrop (Бросание). Оно тоже относится к перетаскиваемой кнопке. Создайте обработчик события – процедуру Command1_DragDrop – и добавьте в нее один оператор:

Command1.Picture = LoadPicture(“C:\TEMP\pear.bmp”)

Запустите программу клавишей F5. убедитесь, что она работает, как было задумано. При перетаскивании кнопки на ней изображается яблоко, а при отпускании – груша.

Для самостоятельной работы

Создать вместо командной кнопки изображение, которое при перетаскивании изменяет свой рисунок.

Лабораторная работа № 9

«ПРОГРАММНОЕ УРАВЛЕНИЕ ОБЪЕКТАМИ»

Цель работы: Познакомиться с элементами управления Visual Basic 6.0 Label, TextBox, UpDown, научиться пользоваться элементами управления и их свойствами

Задачи: Создать по пунктам лабораторной работы текстовое поле, которое меняет размер надписи.

Ход работы:

Мы знаем, что программист может подготовить сообщение, адресованное пользователю программы с помощью объекта Надпись. Также знаем, как выбрать шрифт для надписи, его форму и размер. Вы, обратили внимание на то, что пользователь программы может надписи только читать, а изменить их он не в состоянии.

Рассмотрим, как с помощью числового поля и присоединенного к нему счётчика пользователь сможет управлять шрифтом, которым сделана надпись.

1. Подготовка к работе

Запустим систему VB и создадим новый проект. Сохраним его в папке Счётчик. В системе VB счётчик – это не основной компонент, а дополнительный. Дополнительные компоненты надо сначала подключить к системе. Для подключения нового компонента щелкните на панели компонентов правой кнопкой мыши. В открывающемся контекстном меню выберите пункт Components (Компоненты) – откроется одноименное диалоговое окно. Установите в списке флажок возле пункта Microsoft Windows Common Controls – 2 (Стандартные элементы управления Windows - 2) и щёлкните на кнопке ОК. В нижней части панели компонентов появятся дополнительные кнопки.