Hvordan lage animasjoner i Visual Basic 6.0

January 22

VB 6.0 er en av de mest brukte utviklingsspråk for utviklere. VB blir ofte brukt til å lage grafiske brukergrensesnitt applikasjoner og gi tilgang til databaser. Videre kan du lage animasjoner med VB 6.0 fordi kontrollene har X og Y-stillinger, som kan endres for å skape bevegelser under kjøring.

Bruksanvisning

1 Gå til "Start" og deretter "Alle programmer." Klikk på "Visual Basic 6.0." Klikk på "File" og deretter "Ny" og velg "Windows Application" i dialogboksen Nytt prosjekt. Klikk på "Image Control" og plassere den på skjemaet. Høyreklikk på prosjektet, velg "Properties" og klikk på "Ressurser" -kategorien. I Resource Manager, legge til to hundebilder. Hunden bildene må være i samme katalog som prosjektet er. I de to bildene, er hunden enten mot venstre eller mot høyre.

2 Dobbeltklikk skjemaet bakgrunn for å få opp Form_Load hendelsesbehandling. Gi hunden bildet som er mot venstre til bildekontroll. Hunden kan gå langs form fra venstre til høyre eller i motsatt retning. Dermed er det fire stater for hunden: mot venstre eller høyre og vandre venstre eller høyre. Skriv inn følgende oppregning kode for å definere hundens fire stater:

Enum DogState

FacingLeftWalkingLeft = 1

FacingLeftWalkingRight = 2

FacingRightWalkingRight = 3

FacingRightWalkingLeft = 4

slutt Enum

3 Legg en timer for å endre hundens bevegelser ved å klikke på "Clock" -ikonet på generalsidepanelet. Sett timeren til å utløse en hake hver 100 millisekunder. Sett den første staten som FacingLeftWalkingLeft og hastighet som 10 piksler per tick, ved hjelp av følgende kode:

state = DogState.FacingLeftWalkingLeft

speed = 10

DogImg.Image = My.Resources.Dog

4 Flytt bildekontroll til venstre med fast hastighet, og endre bildet. Sjekk plasseringen av bildekontroll når den beveger seg mot venstre eller høyre. Pass på at bildet ikke gå av skjemaet. Vend bildene når den når den venstre eller høyre kant. Du kan oppnå dette ved å bruke følgende sak og If-Else klausul:

Velg Sak tilstand

Case DogState.FacingLeftLeftLegs

DogImg.Left = DogImg.Left - speed

DogImg.Image = My.Resources.Dog2

Hvis DogImg.Left> 5 Da

statlige = DogState.FacingLeftRightLegs

Ellers

statlige = DogState.FacingRightLeftLegs

Slutt om