По сравнению со структурированными программами, Visual Basic добавляет функцию «метода» объектов. Полное освоение этого «метода», отличного от свойств объекта, чрезвычайно важно для разработки приложений визуализации. Ниже в качестве примера рассмотрим метод перемещения VB4.0, чтобы проиллюстрировать применение этого метода в анимации.
В этом примере мы хотим использовать метод перемещения для завершения процесса полета бабочки. Посредством прерывания таймера через определенные промежутки времени (в данном случае 0,2 секунды) положение бабочки на экране перемещается, а также изменяется форма бабочки (расправляя и втягивая крылья), так что временный эффект зрение используется, чтобы увидеть, как бабочка оживает. Перемещение позиции бабочки реализуется методом перемещения. Формат, используемый методом перемещения, следующий:
Object.moveleft,вверх
Среди них левая — это горизонтальная координата левой границы объекта (ось X), а верхняя — вертикальная координата верхней границы объекта (ось Y). В этом примере поле объекта (окно изображения) называется основным.
Изображение расправленных и сложенных крыльев бабочки предоставляется в растровом файле bfly1.bmpbfly2.bmp. При необходимости можно создать и другие растровые файлы полета, чтобы сделать эффект более реалистичным.
В этом примере структура формы и свойства каждого объекта заданы следующим образом:
Настройки свойств объекта
Заголовок формы, анимационный дизайн полета бабочки
Имя кадра изображенияmain
картинкаbfly1
изображениерамкаимяоткрытыекрылья
картинкаbfly1
изображениерамкаимяблизкиекрылья
картинкаbfly2
имя поля командыcommand1
заголовокВыход&выход
имя таймераtimer1
интервал200
Соответствующая программа относительно проста, ее код выглядит следующим образом:
Программа прерывания таймера:
PRivateSubTimer-Таймер()
StaticPickBmpAsInteger
Main.MoveMain.Left 20,Main.Top-5
ЕслиВыбратьBmpThen
Main.Picture=OpenWings.Picture'Отображает изображение открытой бабочки.
Еще
Main.Picture=CloseWings.Picture'отображает закрытую картинку бабочки.
КонецЕсли
PickBmp=NotPickBmp'Переключить значение.
EndSub
Кнопка выхода (выход) из программы:
PrivateSubCommand1-Клик()
Разгрузить меня
Конец
EndSub
Таким образом, можно создать более сложную анимацию, используя метод перемещения VB и другие свойства объекта. ->