PETITE ANIMATION AVEC DEUX IMAGES
cs_max12
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014
-
20 juil. 2003 à 16:32
cs_antho2005 Messages postés 150 Date d'inscription samedi 8 avril 2006 Statut Membre Dernière intervention 1 mai 2012 - 12 nov. 2008 à 15:15
cs_antho2005 Messages postés 150 Date d'inscription samedi 8 avril 2006 Statut Membre Dernière intervention 1 mai 2012 - 12 nov. 2008 à 15:15
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
https://codes-sources.commentcamarche.net/source/7976-petite-animation-avec-deux-images
12 nov. 2008 à 15:15
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
20 juil. 2003 à 16:58
20 juil. 2003 à 16:32