Программа 13. Перемещение приложений шаг за шагом.

Эта программа демонстрирует, как вводить операцию "перетащить и оставить" ваши приложения. Программа позволяет пользователю перетащить три элемента в полную корзину. При переносе огня в корзину содержимое корзины "сгорает" и корзина становится пустой.

Для выполнения этой работы потребуются файлы с расширением .ico. Под кнопкой Пуск выбираем поиск файлов *.ico и берем следующие файлы:

Копируем эти файлы в папку "Мои документы" и на время забываем о них.

1. Откройте новый проект. Щелкните на кнопке Label и создайте в верхней части формы поле по всей ее ширине.

2. С помощью средства Image создайте 6 рамок изображений (рис. 18). Проверьте, чтобы рамки изображений создавались в представленном на рисунке порядке.

Рис.18.

3. Установите свойства для объектов, согласно приведенной таблице.

Объект	Свойство	Устанавливаемое значение
Label1	Caption (Надпись)	Перетащить и оставить шаг за шагом
	Font(Шрифт)	Times New Roman, Bold, 12
Form1	Caption (Надпись)	Работа с корзиной
Image1	Stretch(Изменение размера)	True(Истина)
	Picture(Рисунок)	C:\Documents\Recyfull.ico
Image2	Stretch(Изменение размера)	True(Истина)
	Picture(Рисунок)	C:\Documents\Cdrom01.ico
	DragIcon(Значок при перетаскивании)	C:\Documents\Cdrom01.ico
	DragMode(Режим перетаскивания)	1 – Automatic(Автоматический)
Image3	Stretch(Изменение размера)	True(Истина)
	Picture(Рисунок)	C:\Documents\Fire.ico
	DragIcon(Значок при перетаскивании)	C:\Documents\Fire.ico
	DragMode(Режим перетаскивания)	1 – Automatic(Автоматический
	Tag(Тэг)	)Fire
Image4	Stretch(Изменение размера)	True(Истина)
	Picture(Рисунок)	C:\Documents\Point11.ico
	DragIcon(Значок при перетаскивании)	C:\Documents\Point11.ico
	DragMode(Режим перетаскивания)	1 – Automatic(Автоматический)
Image5	Stretch(Изменение размера)	True(Истина)
	Picture(Рисунок)	C:\Documents\Clock06.ico
	DragIcon(Значок при перетаскивании)	C:\Documents\Clock06.ico
	DragMode(Режим перетаскивания)	1 – Automatic(Автоматический)
Image6	Stretch(Изменение размера)	True(Истина)
	Picture(Рисунок)	C:\Documents\Waste.ico
	Visible(Видимость)	False(Ложь)

По завершении установки свойств ваша форма будет выглядеть так, как показано на рис. 19.

4. Дважды щелкните на объекте Image1 (Полной корзине). В окне Code появится процедура Image1_Click. Откройте список Procedure (Процедура), затем щелкните на элементе DragGrop. Введите следующие программные операторы в процедуру:

Private Sub Image1_DragDrop(Source As Control, X As Single, Y As Single)
Source.Visible = False
If Source.Tag = "Fire" Then
Image1.Picture = Image6.Picture
End If
End Sub

Рис. 19.

5. Запустите вашу программу. Перетащите значок CD-ROM на изображение корзины и отпустите кнопку мыши. Перетащите остальные значки. В последнюю очередь отправьте в корзину зажигалку. При отпускании кнопки мыши корзина становится пустой, так как содержимое корзины "сгорает".