Scrolling , defilement de texte

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 365 fois - Téléchargée 82 fois

Contenu du snippet

Voici un code pour faire defiler un texte qui me parait plus simple que celui deja proposé
1 creez un timer avec interval a 100
2 un label (label1 pour ce code)

"60" ici correspond a la vitesse
"-2800" a l'extreme gauche de l'ecran MOINS la taille de label de facon a ce que le texte disparaisse de l'ecran

"4500" correspond a l'endroit d'ou debute le scrolling donc a l'extrem droit de l'ecran

Source / Exemple :


Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 60
If Label1.Left <= -2800 Then Label1.Left = 4500
End Sub

Conclusion :


code a mettre dans le sub timer (double click sur l'icone timer)

A voir également

Ajouter un commentaire

Commentaires

z980x
Messages postés
898
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
26 juillet 2007
2 -
Trop cool ! Merci ! Je mets 10 sans hesitation !
stryknin
Messages postés
5
Date d'inscription
mardi 28 janvier 2003
Statut
Membre
Dernière intervention
1 janvier 2006
-
Bien pensé :)

on peut aussi faire :

lblTitre.Left = lblTitre.Left - 60
If lblTitre.Left <(lblTitre.Width * -1) Then lblTitre.Left Me.Width
If lblTitre.Left > Me.Width Then lblTitre.Left = Me.Width
founess
Messages postés
1
Date d'inscription
samedi 1 mai 2004
Statut
Membre
Dernière intervention
14 janvier 2006
-
intelligent!
j'ai bien apprecié l'idée et j'ai pensé a défiler
aussi bien texte et photos (pictures)chargeable
d'un dossier (mes images en c: ,par exemple)...,me
suggeres tu qque chose ds ce sens?
cs_Onin42
Messages postés
41
Date d'inscription
mardi 22 janvier 2008
Statut
Membre
Dernière intervention
13 février 2012
-
Sympa xD.
Merci d'avoir partagé !

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.