Как да направите анимации в Visual Basic 6.0

Стъпка 1

Отидете на "Старт", след това "Всички програми". Кликнете върху "Visual Basic 6.0". След това в "Файл", "Нов" и изберете "Приложение на Windows" в диалоговия прозорец Нов проект. Кликнете върху "Image control" и го поставете във формуляра. Кликнете с десния бутон на мишката върху проекта, изберете "Properties" и след това въведете раздела "Resources". В Мениджъра на ресурсите добавете две изображения на кучета. Необходимо е двете изображения да са в една и съща директория, в която е проектът. И в двете изображения кучето се очертава наляво или надясно.

Стъпка 2

Щракнете двукратно върху фона на формуляра, за да отворите манипулатора за събития Form_Load. Задайте изображението на кучето, което е очертано отляво, на контрола на изображението. Кучето може да мине през формата от ляво на дясно или в обратна посока. По този начин има четири състояния за кучето: отляво или отдясно и да се върви наляво или надясно. Въведете следния код за изброяване, за да дефинирате четирите състояния на куче: Enum DogState FacingLeftWalkingLeft = 1 FacingLeftWalkingRight = 2 FacingRightWalkingRight = 3 FacingRightWalkingLeft = 4 End Enum

Стъпка 3

Добавете таймер, за да промените движението на кучето, като кликнете върху иконата "Часовник" в общата странична лента. Задайте таймера, за да активирате марка на всеки 100 милисекунди. Задайте началното състояние като FacingLeftWalkingLeft и скоростта от 10 пиксела на стъпка, като използвате следния код: state = DogState.FacingLeftWalkingLeft speed = 10 DogImg.Image = My.Resources.Dog

Стъпка 4

Преместете контрола на изображението наляво с фиксирана скорост и променете изображението. Проверете местоположението на контрола на изображението, когато се движи наляво или надясно. Уверете се, че изображението не напуска формуляра. Превъртете изображенията, когато стигнете до левия или десния край. Това може да бъде постигнато чрез следната клауза Case and If-Else:

Изберете Case Case Case CaseState.FacingLeftLeftLegs

DogImg.Left = DogImg.Left - скорост DogImg.Image = My.Resources.Dog2 Ако dogImg.Left> 5 Тогава state = DogState.FacingLeftRightLegs Други състояния = DogState.FacingRightLeftLegs End Ако