comment faire défilé un label en boucleRésolu

Question

Bonjour, 
 je trouvé ce code qui fait défilé le texte d'un label .
le souci qu'il fonctionne une seule fois puis plus rien .
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick        Static Position As Long        Static Initialise As Boolean        Dim LeTexte As String        Dim LeTexteApres As String        LeTexte = "Bonjour  ........................ !"        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, Math.Abs(Position))            If Position < -Len(LeTexte) Then                Position = Len(LeTexte)            End If        End If        Label1.Text = LeTexteApres           End Sub
iElle ou l'erreur svp . 
--

ucfoutu · Answer

Bon jour, 
Ta manière de coder montre que tu te sers finalement en VB.Net de fonctions de VB6 ...
Tu ne devrais alors avoir aucune difficulté à transposer en VB.Net le code que j'ai mis dans cette discussion :
http://codes-sources.commentcamarche.net/forum/affich-1599712-defilement-de-texte
Il est très facilement compréhensible et transposable.
A toi de jouer un peu, s'il te plait.

cs_Le Pivert · Answer

Bonjour,

Voir ceci en VB.Net

http://codes-sources.commentcamarche.net/source/53734-amusons-nous-avec-un-label

ucfoutu · Answer

Veux-tu alors bien libérer cette discussion (un clic sur le tag RESOLU) au niveau de son ouverture ?
Merci.
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Comment faire défilé un label en boucle

3 réponses

Votre réponse

Discussions similaires