Discussion :

[trecks]

Comment utiliser VB6 pour qu'il gère les GIF animés ?

Merci

[ProgElecT]

en faisant comme cela
Recherche dans ce forum "GIF animés"

motif de l'edit:
trecks, Inscrit le jeudi 11 janvier 2007, Total message: 11, discussions ouvertes: 8, Nbr.de TAGs utilisés: 0, moyenne: 0/100, ma partitipation jusqua ce post: 1

[OhMonBato]

A ma connaissance, sans controle spécifique dédié à ça, tu ne peux pas le faire avec les controles par défaut de VB6.
La solution consiste alors à décomposer ton gif animé en autant d'images que nécessaire et de faire afficher celles ci à l'aide d'un timer par exemple.

[zazaraignée]

Cherche! C'est dans la FAQ!

[trecks]

Merci ca marche mais j'ai un gros problème : la procédure KeyDown ne fonctionne plus. Lorsque j'appuie sur une touche le personnage de mon Form ne se déplace plus.

HELP ME?

[OhMonBato]

Qu'est ce qui marche ? quelle solution as tu retenu ?
Si en plus de connaitre un peu VB il faut aussi être devin, ça va limiter les vocations

[zazaraignée]

Je ne comprends pas ce que tu demande. Il n'y a pas d'événement KeyDown pour le composant gif89.dll.

Il ressemble à quoi, le code qui ne fonctionne pas?

[trecks]

Je récapitule.

Je réalise un Mario en VB (basique). Je souhaite donc afficher des gifs animés de pièces qui tourne sur elles-mêmes.
Cependant je ne peut plus déplacer mon Mario (avec la procédure KeyDown) lorsque j'ajoute un controle gif89.
Je peut le déplacer pourtant si je remplace le contrôle gif89 par un picturebox. Mais là il n'y a plus l'animation des pièces.

J'espère être clair

[zazaraignée]

Et en mettant le Gif89 dans le pictureBox... ?

[trecks]

Ca ne marche pas!

[zazaraignée]

Chez moi, oui, pourtant. Le PictureBox est avant tout un contenneur...

Tu place un PictureBox sur ta feuille, tu le garde sélectionné, tu y dessine un contrôle Gif89 dans lequel tu place le fichier gif animé... C'est avec l'événement KeyDown du PictureBox que tu déplace ton gif animé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
      Case vbKeyRight
        Deplacer Picture1, Picture1.Width, 0
      Case vbKeyLeft
        Deplacer Picture1, -(Picture1.Width), 0
      Case vbKeyDown
        Deplacer Picture1, 0, Picture1.Height
      Case vbKeyUp
        Deplacer Picture1, 0, -(Picture1.Height)
    End Select
End Sub
 
Private Sub Deplacer(ByRef pic As PictureBox, _
                     ByVal X As Single, _
                     ByVal Y As Single)
    ' il faut ajouter une ou deux conditions (peut-être plus...)
    ' pour ne pas dépasser les limites de la Form
    pic.Left = pic.Left + X
    pic.Top = pic.Top + Y
End Sub

[Edit] P.S. Ça marche aussi sans le ByRef et ByVal. Je les avais mis par souci de clarté.

[zazaraignée]

Version finale

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Deplacer(pic As PictureBox, _
                     X As Single, _
                     Y As Single)
    If (pic.Left + X <= Me.Width - pic.Width) And (pic.Left + X >= 0) Then
        pic.Left = pic.Left + X
    End If
    If (pic.Top + Y <= Me.Height - pic.Height) And (pic.Top + Y >= 0) Then
        pic.Top = pic.Top + Y
    End If
End Sub

[trecks]

Merci ça marche impeccable!