Progressbar personnalisée

Soyez le premier à donner votre avis sur cette source.

Vue 11 773 fois - Téléchargée 2 296 fois

Description

ProgressBar Personnalisée Style Nero Prenium 7...

Source / Exemple :


Sub
  
 Dl.Start(Zip)

End Sub

Codes Sources

A voir également

Ajouter un commentaire Commentaires
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Modérateur Dernière intervention 23 décembre 2008 23
14 mars 2006 à 17:46
Il y a aussi quelques commentaires "déplacement vers la gauche" qui devraient être des "déplacement vers la droite".
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Modérateur Dernière intervention 23 décembre 2008 23
14 mars 2006 à 17:45
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.
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
1- il y a un effet de scintillement
2- reste à en faire un ocx
3- fun, les lunettes sur ta fiche perso ;)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.