Faire defiler un texte dans un label

Soyez le premier à donner votre avis sur cette source.

Vue 20 841 fois - Téléchargée 2 242 fois

Description

Comment puis-je faire pour faire défiler un texte dans un Label ?

Créez un Formulaire avec un Timer (Timer 1) et un Label (Label1)
Mettez l'intervalle de votre timer à 100 (100 milisecondes) par exemple

Puis mettez ce code dans votre Formulaire :

Source / Exemple :


Private Sub Timer1_Timer()

    Static Position As Long
    Static Initialise As Boolean
    Dim LeTexte As String
    Dim LeTexteApres As String

    LeTexte = "Je Défile dans un Label !"

    If Initialise = False Then
        Initialise = True
        Position = Len(LeTexte) 
    End If

    Position = Position + 1

    If Position >= 0 Then
        LeTexteApres = Space(Position) & LeTexte
    Else
        LeTexteApres = Mid(LeTexte, Abs(Position))
        If Position < -Len(LeTexte) Then 
            Position = Len(LeTexte)
        End If
    End If

    Label1 = LeTexteApres
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

tlin27
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]

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.