Форма и основные элементы управления
Содержание:
Проверить свои знания.
Практическая работа.
Создание проекта "Горящая корзина".
Создание проекта "Горящая корзина".
Программа, которую вы составите, позволит удалить с формы лишние объекты посредством их перетаскивания в корзину, в которой они сгорают.
1. Запустите систему VB, в диалоговом окне New Project выберите значок Standard EXE и нажмите ОК.
2. Поместите на форме в ее верхней части надпись.
3. С помощью средства управления Image (Рисунок) создайте шесть рамок рисунков, расположив их в соответствии с рис. 1.
1. Запустите систему VB, в диалоговом окне New Project выберите значок Standard EXE и нажмите ОК.
2. Поместите на форме в ее верхней части надпись.
3. С помощью средства управления Image (Рисунок) создайте шесть рамок рисунков, расположив их в соответствии с рис. 1.
Рис. 1. Расположение элементов управления на форме.
4. Установите значения свойств объектов согласно указанным ниже:
| Объект | Свойство | Значение |
| Form1 | Name Caption BackColor |
Frm1 Горящая корзина Белый |
| Label1 | Name Caption BackColor Alignment |
Lbl1 Горящая корзина Белый 2 - Center |
| Image1 | Picture DragMode DragIcon |
Банан.ico 1- Automatic Банан.ico |
| Image2 | Picture DragMode DragIcon |
Банан.ico 1- Automatic Банан.ico |
| Image3 | Picture DragMode DragIcon |
Насос.ico 1- Automatic Насос.ico |
| Image4 | Picture DragMode DragIcon Tag |
Огонь.ico 1- Automatic Огонь.ico Огонь |
| Image5 | Picture DragMode DragIcon |
Корзина2.ico 1- Automatic Корзина2.ico |
| Image6 | Picture Strech |
Корзина1.ico True |
Private Sub Image6_DragDrop(Source As Control, x As Single, y As Single)
Source.Visible = False
If Source.Tag = "Огонь" Then
Image6.Picture = Image5.Picture
End If
End Sub
Source.Visible = False
If Source.Tag = "Огонь" Then
Image6.Picture = Image5.Picture
End If
End Sub
5. Двойным щелчком на объекте Image6 (пустой корзине) откройте окно кода, в котором появится событийная процедура Image6_Click.
6. Откройте список событийных процедур и выберите событие DragDrop или просто замените _Click на _DragDrop.
Появившаяся процедура Image6_DragDrop имеет три аргумента: Source, X и Y. Аргумент Source при выполнении процедуры имеет значение имени перетаскиваемого объекта. Аргументы X и Y в разрабатываемой процедуре применяться не будут.
6. Откройте список событийных процедур и выберите событие DragDrop или просто замените _Click на _DragDrop.
Появившаяся процедура Image6_DragDrop имеет три аргумента: Source, X и Y. Аргумент Source при выполнении процедуры имеет значение имени перетаскиваемого объекта. Аргументы X и Y в разрабатываемой процедуре применяться не будут.
Первая строка тела процедуры делает невидимым перетаскиваемый объект при его "сбросе" на объект Image6 (условие наступления для корзины события DragDpop). Строки 2 – 4 обеспечивают замену изображения корзины в поле объекта Image1 на изображение горящей корзины (свойство Picture объекта Image6), если свойство Tag объекта, "сбрасываемого" на объект Image6 имеет значение "Огонь".
7. Сохраните проект и запустите созданное приложение. Убедитесь в том, что при перетаскивании любого объекта в корзину, его изображение исчезает из окна приложения, а перетаскивание спички приводит к появлению изображения горящей корзины.Сравните свой проект с образцом.
7. Сохраните проект и запустите созданное приложение. Убедитесь в том, что при перетаскивании любого объекта в корзину, его изображение исчезает из окна приложения, а перетаскивание спички приводит к появлению изображения горящей корзины.Сравните свой проект с образцом.
В своём проекте добавьте облако дыма, которое будет перемещаться из горящей корзины.
Для этого поместите на форме над объектом Image6 поле рисунка Image7, а также поместите таймер в левом нижнем углу формы (рис. 2).
Рис. 2. Новый вид формы с новыми элементами управления.
Введите программный код процедуры Timer1_Timer:
Private Sub Timer1_Timer()
If Image7.Top + 0.5 * Image7.Height > 0
Then
Image7.Move Image7.Left – 50,Image7.Top – 75
Else Image7.Visible = False
Timer1.Enabled = False
End If
End Sub
Private Sub Timer1_Timer()
If Image7.Top + 0.5 * Image7.Height > 0
Then
Image7.Move Image7.Left – 50,Image7.Top – 75
Else Image7.Visible = False
Timer1.Enabled = False
End If
End Sub
Самостоятельно измените свойства для новых элементов управления, не забывая о том, что оба они должны быть невидимы до определенного момента времени.
Вы так же можете изменить изображения всех элементов, получив красивый проект.
*
*
Ученику
Учителю
Дополнительно
*
*
*
*
*
*
*
*