FAIRE DEFILER UN TEXTE DANS UN LABEL
tlin27
Messages postés
3
Date d'inscription
mercredi 28 avril 2004
Statut
Membre
Dernière intervention
12 février 2006
-
12 févr. 2006 à 17:02
tlin27 Messages postés 3 Date d'inscription mercredi 28 avril 2004 Statut Membre Dernière intervention 12 février 2006 - 12 févr. 2006 à 17:02
tlin27 Messages postés 3 Date d'inscription mercredi 28 avril 2004 Statut Membre Dernière intervention 12 février 2006 - 12 févr. 2006 à 17:02
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
https://codes-sources.commentcamarche.net/source/70-faire-defiler-un-texte-dans-un-label
12 févr. 2006 à 17:02
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]