ANIMATION D'IMAGES

Signaler
Messages postés
14800
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
19 juin 2021
-
Messages postés
7421
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
19 juin 2021
-
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/47440-animation-d-images

Messages postés
7421
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
19 juin 2021
124
Comme la source me paraissait légère j'ai ajouté une animation dans un bouton en me servant des données existantes, rien de bien sorcier, mais qui peut intéresser certaines personnes.
Messages postés
7421
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
19 juin 2021
124
Le but de cette source est bien sur de voir les deux modes de fonctionnement. Il est bien évident qu'en l'état elle ne sera jamais utilisée.
Merci à vous deux de votre intérêt pour une si petite source.
@+
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
43
j'aurais peut-être plus vu quelque chose de ce genre :

Private Sub btnarret_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnarret.Click, btnstop.Click Dim oTimer As Timer IIf(sender.name.ToString "btnarret", tmrAnimation, tmrImage)
oTimer.Enabled = Not oTimer.Enabled
sender.Text = IIf(oTimer.Enabled, "&Stop", "&Start")
oTimer = Nothing
End Sub

après y'a pas non plus besoin de 2 timers, ni même réellement de le désactiver en fait...

enfin bon, tel quel au moins on voit bien les 2 modes de fonctionnement
je maintiens que çà me semble très léger... :(

ps : normal que GR ne soit pas détruit/libéré?
Messages postés
14800
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
19 juin 2021
156
Un truc genre
Private Sub btnstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnstop.Click,btnarret.Click
if sender if btnstop then
If tmrImage.Enabled = True Then
btnstop.Text = "&Start"
tmrImage.Stop()
Else
btnstop.Text = "&Stop"
tmrImage.Start()
End If
else sender is btnarret then
If tmrAnimation.Enabled = True Then
btnarret.Text = "&Start"
tmrAnimation.Stop()
Else
btnarret.Text = "&Stop"
tmrAnimation.Start()
End If
End if
End Sub

Enfin il y a peut être plus court, mais cela évite déjà d'avoir 2 subs.
Afficher les 7 commentaires