Jak vytvořit animace v jazyce Visual Basic 6.0

Krok 1

Přejděte na "Start" a pak na "Všechny programy". Klikněte na "Visual Basic 6.0". Potom v "Soubor", "Nový" a v dialogovém okně Nový projekt vyberte "Aplikace Windows". Klikněte na "Ovládací prvek" a umístěte jej na formulář. Klepněte pravým tlačítkem myši na projekt, vyberte "Vlastnosti" a potom zadejte záložku "Zdroje". V Správci prostředků přidejte dva obrázky psů. Je nutné, aby byly dva obrázky ve stejném adresáři, ve kterém je projekt. V obou obrazech je pes nakloněn buď vlevo nebo vpravo.

Krok 2

Poklepáním na pozadí formuláře otevřete obslužný program událostí Form_Load. Přiřadte obrázek psa, který je na obrázku vlevo, na ovládací prvek obrazu. Pes může projít formulářem zleva doprava nebo v opačném směru. Existují tedy čtyři stavy pro psa: vlevo nebo vpravo a procházka doleva nebo doprava. Zadejte následující kód pro vymezení čtyř stavů psa: Enum DogState FacingLeftWalkingLeft = 1 LícováníLeftWalkingRight = 2 FacingRightWalkingRight = 3 FacingRightWalkingLeft = 4 End Enum

Krok 3

Přidejte časovač a změňte pohyb psa kliknutím na ikonu "Hodiny" na obecném postranním panelu. Nastavte časovač tak, aby aktivoval značku každých 100 milisekund. Nastavte počáteční stav jako FacingLeftWalkingLeft a rychlost 10 pixelů na krok pomocí následujícího kódu: state = DogState.FacingLeftWalkingLeft speed = 10 DogImg.Image = My.Resources.Dog

Krok 4

Přesuňte ovládací prvek obrazu doleva s pevnou rychlostí a změňte obrázek. Zkontrolujte umístění ovládacího prvku obrazu, když se pohybuje vlevo nebo vpravo. Ujistěte se, že obrázek neopustí formulář. Překlopte snímky, jakmile dosáhnete levého nebo pravého konce. To lze dosáhnout prostřednictvím následující klauzule Case a If-Else:

Zvolte případ případu Case DogState.FacingLeftLeftLegs

DogImg.Left = DogImg.Left - rychlost DogImg.Image = My.Resources.Dog2 Pokud DogImg.Left> 5 Potom state = DogState.FacingLeftRightLegs Else state = DogState.FacingRightLeftLegs End If