PROGRESSBAR PERSONNALISÉE

Signaler
Messages postés
140
Date d'inscription
mardi 8 juillet 2003
Statut
Membre
Dernière intervention
11 décembre 2007
-
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
-
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/36529-progressbar-personnalisee

Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
19
Il y a aussi quelques commentaires "déplacement vers la gauche" qui devraient être des "déplacement vers la droite".
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
19
Private Sub Timer2_Timer()

'Deplacement de l'image vers la gauche
Image1.Left = Image1.Left - 15

'Detection de la butee de l'image sur le bord gauche
If Image1.Left = -(Image1.Width / 2) Then

'Arrete le deplacement vers la gauche
Timer2.Enabled = False

'Lance le Deplacement vers la gauche
Timer1.Enabled = True
End If
End Sub

Si on change un tout petit peu la longueur de Image1, il ne sera plus possible d'obtenir la condition "Image1.Left = -(Image1.Width / 2)"

Le plus judicieux serait d'utiliser une inégalité "<", çà fonctionnera à tous les coups.
Messages postés
140
Date d'inscription
mardi 8 juillet 2003
Statut
Membre
Dernière intervention
11 décembre 2007

1- il y a un effet de scintillement
2- reste à en faire un ocx
3- fun, les lunettes sur ta fiche perso ;)