Comment créer des animations dans Visual Basic 6.0

Étape 1

Allez dans "Démarrer", puis "Tous les programmes". Cliquez sur "Visual Basic 6.0". Puis dans "Fichier", "Nouveau" et sélectionnez "Application Windows" dans la fenêtre de dialogue Nouveau projet. Cliquez sur "Contrôle de l'image" et placez-le sur le formulaire. Faites un clic droit sur le projet, sélectionnez "Propriétés", puis entrez dans l'onglet "Ressources". Dans le gestionnaire de ressources, ajoutez deux images de chiens. Il est nécessaire que les deux images se trouvent dans le même répertoire que le projet. Dans les deux images, le chien est décrit à gauche ou à droite.

Étape 2

Double-cliquez sur l'arrière-plan du formulaire pour ouvrir le gestionnaire d'événements Form_Load. Attribuez l'image du chien qui est décrite sur la gauche au contrôle d'image. Le chien peut parcourir le formulaire de gauche à droite ou dans la direction opposée. Ainsi, il y a quatre états pour le chien: à gauche ou à droite, et marcher à gauche ou à droite. Entrez le code d'énumération suivant pour définir les quatre états de chien: Enum DogState FacingLeftWalkingLeft = 1 FacingLeftWalkingRight = 2 FacingRightWalkingRight = 3 FacingRightWalkingLeft = 4 End Enum

Étape 3

Ajoutez une minuterie pour changer le mouvement du chien en cliquant sur l'icône "Horloge" dans la barre latérale générale. Réglez le minuteur pour activer une marque toutes les 100 millisecondes. Définissez l'état initial sur FacingLeftWalkingLeft et la vitesse de 10 pixels par étape à l'aide du code suivant: state = DogState.FacingLeftWalkingLeft speed = 10 DogImg.Image = My.Resources.Dog

Étape 4

Déplacez le contrôle d’image vers la gauche à vitesse fixe et modifiez l’image. Vérifiez l'emplacement du contrôle d'image lorsqu'il se déplace vers la gauche ou la droite. Assurez-vous que l'image ne quitte pas le formulaire. Retournez les images lorsque vous atteignez les extrémités gauche ou droite. Ceci peut être réalisé à l'aide des clauses Case et If-Else suivantes:

Sélectionnez l'état de l'affaire Case DogState.FacingLeftLeftLegs

DogImg.Left = DogImg.Left - vitesse DogImg.Image = My.Resources.Dog2 Si DogImg.Left> 5 Then state = DogState.FacingLeftRightLegs sinon state = DogState.FacingRightLeftLegs End If