1. Créez un nouveau projet que vous sauvegardez sous le nom Ex_3xx.vbp.

2. Changez les propriétés suivantes de la feuille: NAME = Animation, CAPTION = Animation avec PictureBox.

3. Ajoutez un contrôle Zone d'image (PictureBox) que vous nommez IM_ANIMATION. Sa propriété AUTOSIZE a la valeur True. Ajustez ses dimensions de la façon suivante: HEIGHT = 2535, WIDTH = 2055.

4. Ajoutez aussi une minuterie (Timer) que vous nommez Minu_Anim (NAME). Réglez sa propriété Interval à 1.  À ce stade-ci, votre feuille devrait ressembler à celle ci-dessous.

5. Dans la section Explicit de la feuille, ajoutez le code suivant qui permet de déclarer une constante ainsi qu'une variable dimensionnée destinée à recevoir vos images.

Const NBRIMAGES = 7
Dim V_IMArray(1 To NBRIMAGES) As Picture 

6. Double-cliquez sur la feuille et ajoutez le code suivant dans la procédure de chargement (FORM_LOAD).

Private Sub Form_Load()
   Dim V_Fich As String  'Déclaration des variables
   Dim V_i As Integer
   For V_i = 1 To NBRIMAGES  'Boucle correspondant au nombre d'images
      V_Fich = App.Path  & "\Bébé_" &  Format(V_i) & ".bmp"   'Initialisation de V_Fich
     Set V_IMArray(V_i) = LoadPicture(V_Fich)    'Initialisation de lMarray
   Next V_i
End Sub

7. Placez enfin le script suivant dans la minuterie.

Private Sub Minu_Anim_Timer()
   Static V_N As Integer
   V_N = (V_N Mod NBRIMAGES) + 1
   IM_Animation.Picture = V_IMArray(V_N)
End Sub

8. Enregistrez votre programme en utilisant le nom donné au début (nom habituel pour la feuille) et testez-le. Notez que les images et le projet doivent se trouver dans le même répertoire pour que ça fonctionne.

Application:

• À votre tour de créer une animation sur le principe de celle ci-dessus. La meilleure façon de trouver vos images est d'aller sur un site de gifs animés et d'en capturer les images à l'aide d'un logiciel à cet effet (PhotoPaint 8 le permet). Il faut un minimum de 5 images. Sauvegardez-les en format .BMP. Ça fonctionne aussi en .GIF mais il faut ralentir l'animation. Enregistrez votre travail sous le nom  Ex_3bxx.vbp.