Scrolling , defilement de texte

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

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.