Предыдущая страница реферата | 1  2  3 | Следующая страница реферата

Picture1.Left = Picture1.Left – 15  ‘ передвижение вперед

Next        ‘ завершение цикла

Цикл For-To-Next выполнит строку «Picture1.Left = Picture1.Left – 15» пятьсот раз, что приведет к постепенному передвижению картинки влево, так как координата его по горизонтали каждый раз будет уменьшаться на 15 единиц (или на один пиксель экрана).

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

Picture1.Left = 7920  ‘ возврат на стартовую позицию

Left – это одно из многочисленных свойств объекта Picture1, задающее значение координаты левого края этого объекта. Для изменения расположения по вертикали существует свойство Top, отвечающее за значение верхнего края объекта. Этими свойствами обладают и другие объекты в Visual Basic.

Запустите приложение. Заставьте автомобиль исчезнуть за пределами окна Вашего приложения. Щелкните по свободному полю окна – автомобиль немедленно займет стартовую позицию. Подумайте, как это осуществляет строка в процедуре Form_Click, которая обрабатывается при одиночном щелчке указателем мыши на форму. Вновь приведите автомобиль в движение и верните его в исходное состояние. Закройте приложение. Сохраните проект Вашей программы в папке Lesson12. Создайте исполняемый файл и сохраните его в той же папке. Приложение готово. На следующем уроке Вы озвучите это приложение.

Для вызова окна проекта в меню Window (Окно) выполните команду Project (Проект). В этом окне Вы получите сведения о составе проекта приложения, а при необходимости с помощью кнопок «View Form» (Просмотр формы) и «View Code» (Просмотр программного кода) можете вызвать на экран форму приложения и ее программный код.

Рассмотрим еще один анимационный прием – масштабирование изображения. Для виндовских «резиновых» метафайлов с расширением WMF (Электронные картинки) можно использовать объект Picture (Рисунок) или объект Image (Образ), а для файлов точечных рисунков с расширением BMP масштабирование возможно лишь посредством объекта Image (Образ).

Создайте папку Lesson13 для Вашего следующего приложения. Запустите Visual Basic. В окне свойств формы Form1 выберите свойство BackColor (Цвет формы) и установите для него значение цвета – серый. Для этого щелкните два раза по свойству BackColor и в появившемся окне палитры цветов выберите серый цвет.

Для размещения объекта Image1 (Образ) на форме приложения щелкните по значку объектов типа Image (Образ) в окне объектов. Затем нажмите мышкой на поле Вашей формы и, не отпуская кнопки, переместите указатель в произвольном направлении по диагонали. Отпустите мышку. В окне свойства объекта выберите свойство Stretch (Изменение размера) и установите для него значение True (Истина). Здесь же выберите свойство Picture (Рисунок) и щелкните по нему два раза. Через появившееся окно загрузите рисунок из файла 02.bmp в форму Form1.

В окне объектов щелкните по значку «Командная кнопка», затем установите электронную командную кнопку Command1 на форму и подберите подходящие для нее размеры. Данные операции похожи на действия над объектами Picture (Рисунок) и Image (Образ). Щелкните указателем мыши по вновь созданному объекту два раза и в процедуру Command1_Click впишите программные утверждения:

Image1.Width = Image1.Width * 1.25  ‘ увеличение ширины

Image1.Height = Image1.Height * 1.25  ‘ увеличение высоты

Первая строка при одиночном щелчке по командной кнопке увеличит значение свойства Width (Ширина) объекта Image1 в 1,25 раза. Вторая строка сработает таким же образом для свойства Height (Высота). В результате размеры изображения увеличатся на 25%.

В окне свойств объекта Command1 выберите свойство Caption (Заголовок) и придайте ему значение «Увеличить», а свойству FontBold (Жирный шрифт) значение False (Ложь). Аналогичным образом создайте еще две командные кнопки: «Уменьшить» и «Выход». Для кнопки Command2 в процедуру Command2_Click впишите строки, которые будут уменьшать размеры фотографии на 25%:

Image1.Width = Image1.Width / 1.25  ‘ уменьшение ширины

Image1.Height = Image1.Height / 1.25 ‘ уменьшение высоты

Для кнопки Command3 в процедуру Command3_Click запишите программное утверждение:

End   ‘ завершение работы приложения

Это утверждение при одиночном щелчке по командной кнопке «Выход» будет завершать работу Вашего приложения.

Запустите программу. Поочередно, по несколько раз понажимайте на кнопки «Увеличить» и «Уменьшить», наблюдая за изменением размеров фотографии. Для окончания работы приложения щелкните по созданной Вами электронной кнопке «Выход». Сохраните проект приложения и создайте для него исполняемый EXE-файл. Проверьте этот файл в работе.

Домашнее задание

1. Изготовьте приложение, в котором мяч будет подпрыгивать вверх и затем возвращаться обратно при нажатии на электронную кнопку.

2. Создайте приложение, в котором какой-либо рисунок будет уменьшаться в размерах при нажатии на него указателем мыши и увеличиваться при нажатии на свободное от этого рисунка поле окна формы.

Рекомендуем скачать другие рефераты по теме: красный диплом, рефераты по предметам.



Предыдущая страница реферата | 1  2  3 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки