PROGRESSBAR PERSONNALISÉE
odan71
Messages postés
140
Date d'inscription
mardi 8 juillet 2003
Statut
Membre
Dernière intervention
11 décembre 2007
-
14 mars 2006 à 08:04
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 - 14 mars 2006 à 17:46
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 - 14 mars 2006 à 17:46
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
https://codes-sources.commentcamarche.net/source/36529-progressbar-personnalisee
14 mars 2006 à 17:46
14 mars 2006 à 17:45
'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.
14 mars 2006 à 08:04
2- reste à en faire un ocx
3- fun, les lunettes sur ta fiche perso ;)