VB 8. Элемент управления Timer и PictureBox

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

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

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

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

Выполнение:

vb 2008 Анимация

Форма «Анимация»

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

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

  1. В окне свойств элемента PictureBox выберите свойство Image и в открывшемся диалоговом окне отметьте пункт Local Resource (Локальный ресурс). Нажмите кнопку Import и выберите любой файл картинки.
  2. Для того чтобы PictureBox перемещался вправо, необходимо увеличивать его свойство Left – координату левого края элемента управления. Поэтому запрограммируйте событие Tick элемента Timer следующим образом:
Private Sub tmr_Tick(…
  pct.Left = pct.Left + 20 
End Sub
  1. Теперь необходимо запустить Таймер. Это можно сделать нажатием кнопки Старт. Поместите следующий код в обработку события Click кнопки Старт:
Private Sub btnStart_Click(…
 tmr.Enabled = True 'запускаем таймер
 tmr.Interval = 50 'устанавливаем интервал таймера в 50 миллисекунд
End Sub

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

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

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

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

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

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

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

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

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

*
*

Вставить формулу как
Блок
Строка
Дополнительные настройки
Цвет формулы
Цвет текста
#333333
Используйте LaTeX для набора формулы
Предпросмотр
\({}\)
Формула не набрана
Вставить