Come creare animazioni in Visual Basic 6.0

Passaggio 1

Vai su "Start", quindi su "Tutti i programmi". Clicca su "Visual Basic 6.0". Quindi in "File", "Nuovo" e selezionare "Applicazione Windows" nella finestra di dialogo Nuovo progetto. Clicca su "Controllo immagine" e posizionalo sul modulo. Fare clic con il tasto destro del mouse sul progetto, selezionare "Proprietà", quindi accedere alla scheda "Risorse". In Gestione risorse, aggiungi due immagini di cani. È necessario che le due immagini si trovino nella stessa directory in cui si trova il progetto. In entrambe le immagini, il cane è delineato a sinistra oa destra.

Passaggio 2

Fare doppio clic sullo sfondo del modulo per aprire il gestore eventi Form_Load. Assegna l'immagine del cane che è delineato a sinistra al controllo dell'immagine. Il cane può camminare attraverso la forma da sinistra a destra o nella direzione opposta. Quindi, ci sono quattro stati per il cane: a sinistra oa destra, e camminare a sinistra oa destra. Immettere il seguente codice di enumerazione per definire i quattro stati del cane: Enum DogState FacingLeftWalkingLeft = 1 FacingLeftWalkingRight = 2 FacingRightWalkingRight = 3 FacingRightWalkingLeft = 4 End Enum

Passaggio 3

Aggiungi un timer per cambiare il movimento del cane cliccando sull'icona "Orologio" nella barra laterale generale. Imposta il timer per attivare un segno ogni 100 millisecondi. Impostare lo stato iniziale come FacingLeftWalkingLeft e la velocità di 10 pixel per passo utilizzando il seguente codice: state = DogState.FacingLeftWalkingLeft speed = 10 DogImg.Image = My.Resources.Dog

Passaggio 4

Spostare il controllo dell'immagine a sinistra con velocità fissa e modificare l'immagine. Controlla la posizione del controllo immagine quando si sposta a sinistra oa destra. Assicurati che l'immagine non lasci il modulo. Capovolgi le immagini quando raggiungi le estremità sinistra o destra. Questo può essere ottenuto attraverso la seguente clausola Case e If-Else:

Selezionare lo stato del caso Case DogState.FacingLeftLeftLegs

DogImg.Left = DogImg.Left - speed DogImg.Image = My.Resources.Dog2 If DogImg.Left> 5 Then state = DogState.FacingLeftRightLegs Else state = DogState.FacingRightLeftLegs End If