FAIRE DEFILER UN TEXTE DANS UN LABEL

Signaler
Messages postés
3
Date d'inscription
mercredi 28 avril 2004
Statut
Membre
Dernière intervention
12 février 2006
-
Messages postés
3
Date d'inscription
mercredi 28 avril 2004
Statut
Membre
Dernière intervention
12 février 2006
-
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/70-faire-defiler-un-texte-dans-un-label

Messages postés
3
Date d'inscription
mercredi 28 avril 2004
Statut
Membre
Dernière intervention
12 février 2006

Mouais... Ne défile plus au bout du 3ème défilement!

En plus court (un label, un timer - interval 200)

Private Sub Form_Load()
Label1.Caption = " Défilement... Hop! "
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Mid(Label1.Caption, 2) & Mid(Label1.Caption, 1, 1)
End Sub

Défilement parfait pour un texte court (par rapport à la taille du label), mais pour un long texte, on y voit une p'tite coupure.
[Mais ça défile quand même]