Scrolling d'un caption

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 837 fois - Téléchargée 69 fois

Contenu du snippet

Permet de faire défilé du texte dans un Caption d'une fenetre ou d'un Label.
Sur une fenetre, placer un Timer1 et un Label1 puis placer le code...
Pour le Timer1, mettre Interval à 200

Source / Exemple :


'déclarations
Dim msg As String   'pour le message
Dim i As Integer    'index pour le message

Private Sub Form_Load()
'j'adore les Twingo !!!
msg = "CouCou je m'appel Vincent et j'adore les Twingo !!!! "
End Sub

Private Sub Timer1_Timer()
If i = 0 Then
    i = Len(msg)
End If
'On prends tous les caractères à droite puis on en prend de moins en moins
'ensuite on ajoute tous les caractèresdu début non affiché et on les remet à la fin
'C'est pas plus compliqué!!!!
Label1.Caption = Right(msg, i) + Left(msg, Len(msg) - i)
i = i - 1

'pour le fun, dans la barre de la fenêtre...mais dans l'autre sens !
Form1.Caption = Right(msg, Len(msg) - i) + Left(msg, i)

'PS : avec un richText, je croix que l'on peut mettre une couleur pour chaque lettres...
End Sub

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.