PETITE ANIMATION AVEC DEUX IMAGES

Signaler
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014
-
Messages postés
150
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
1 mai 2012
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/7976-petite-animation-avec-deux-images

Messages postés
150
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
1 mai 2012
2
Bon ça date mais ...
Oula ... Hum ... J'aurais pas fais comme ça ...
Je dirais plutôt comme ça:

Dim ListeFiles() As String 'Tu le rempli de la façon dont tu veux
Dim IndexActu as Integer

Private Sub Form1_Load()
IndexActu = 0
End Sub

Private Sub BoutonMarcheArret_Click()
TonTimer.Enabled = Not TonTimer.Enabled
End Sub

Private Sub TonTimer_Timer()
IndexActu = IndexActu + 1
If IndexActu > UBound(ListeFiles) Then IndexActu = 0
Dim Actu As String
Actu = File1.Path & "" & ListeFiles(IndexActu)
Form1.TaPictureBox.Picture = LoadPicture(Actu)
End Sub

Sur ce ...
À la revoyure

Antho2005
Messages postés
161
Date d'inscription
jeudi 20 mars 2003
Statut
Membre
Dernière intervention
7 mai 2007

EHHH ben je savais pas comment appeler deux images qui bougent dsl
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014

C'Est pas du tout des GIF sa