vb 2008: проект для создания анимации

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

* Разработайте приложение, в котором при нажатии на кнопку изображение будет перемещаться по экрану (например, по горизонтали)

К оглавлению

Инструментарий:

объект	свойство name
форма
контейнер для картинки (PictureBox)	pct
кнопка (button)	btnStart
кнопка (button)	btnExit
таймер (timer)	tmr

Выполнение:

Создайте новый проект и расположите на новой форме элементы управления PictureBox (назовите его pct) и два элемента Button: btnStart и btnExit, как показано на рисунке. Создайте также элемент управления Timer (tmr), который будет передвигать PictureBox через определенные промежутки времени.

Элемент Timer скрытый, он появляется ниже дизайна формы.

В окне свойств элемента PictureBox выберите свойство Image и в открывшемся диалоговом окне отметьте пункт Local Resource (Локальный ресурс). Нажмите кнопку Import и выберите любой файл картинки.
Для того чтобы PictureBox перемещался вправо, необходимо увеличивать его свойство Left – координату левого края элемента управления. Поэтому запрограммируйте событие Tick элемента Timer следующим образом:

Private Sub tmr_Tick(…
  pct.Left = pct.Left + 20 
End Sub

Теперь необходимо запустить Таймер. Это можно сделать нажатием кнопки Старт. Поместите следующий код в обработку события Click кнопки Старт:

Private Sub btnStart_Click(…
 tmr.Enabled = True 'запускаем таймер
 tmr.Interval = 50 'устанавливаем интервал таймера в 50 миллисекунд
End Sub

Комментарии в VB можно задавать после апострофа (‘). Среда редактирования раскрасит их в зеленый цвет.

Запустите и отладьте приложение. Сохраните его.

Дополнительное задание.

Исправьте приложение так, чтобы Графическое окно (PictureBox) не выходило за край формы (останавливалось бы у правого края окна), а при нажатии на кнопку Старт перемещалось бы в исходное положение.
Измените приложение так, чтобы при первом нажатии на кнопку Старт графическое окно начинало двигаться, а при повторном – останавливалось. При этом должна меняться надпись на кнопке: Старт – при запуске, Стоп – при остановке.

Если у Вас возникли вопросы, предлагаем просмотреть видео урок visual basic по выполнению дополнительного задания к данной лабораторной работе.
youTube

Вопросы для самоконтроля:

Каково основное назначение элемента управления PictureBox?
Для чего используется элемент управления Timer при создании анимации?
Какое свойство PictureBox необходимо изменить для того, чтобы переместить этот элемент управления по вертикали?

* При использовании материалов обязательна ссылка на источник: Майер С.Ф., «MS Visual Basic 2008» — Учебно-методическое пособие : Южный федеральный университет. – Ростов-на-Дону, 2017. – 92 с.

К оглавлению