Faire defiler un texte dans un label


Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

Du même auteur (Nix)