Difficulté à faire défiler du texte

Question

Bonjour,
Je débute en VB avec Visual Studio 2015.

Voilà mon problème :
J'essaie de faire défiler le texte : Chaine1 , d'un label : lblChain1 , au rythme d'un timer : tmrScroll .

Le texte du label lblChain1 est : Chaine1
Je voudrais le faire défiler de la sorte :
initial : Chaine1
tick :   1Chaine
tick :   e1Chain
tick :   ne1Chai
tick :   ine1Cha
tick :   aine1Ch
tick :   haine1C
tick :   Chaine1
         [.........]

Je n'obtiens que : 
initial : Chaine1
tick :   1haine
.... Et ça ne bouge plus :/

Voilà l'extrait de mon code :

    Private Sub tmrScroll_Tick(sender As Object, e As EventArgs) Handles tmrScroll.Tick
        Dim str As String '
        Dim str1 As String
        Dim str2 As String
        Dim n As Integer
        n = lblChain1.Text.Length
        lblTest.Text = "n = " & n.ToString

str = lblChain1.Text
        str1 = str.Substring(n - 1, 1)
        str2 = str.Substring(1, n - 1)
        str = str1 & str2
        lblChain1.Text = str

End Sub


Merci d'avance de votre aide ;)

simlouf · Answer

J'ai la réponsé à ma question.
La fonction x.substring compte les lettres d'une chaîne de caractères à partir de 0, et je prélevais à partir de 1...

    Private Sub tmrScroll_Tick(sender As Object, e As EventArgs) Handles tmrScroll.Tick
        Dim str As String '
        Dim str1 As String
        Dim str2 As String
        Dim n As Integer
        n = lblChain1.Text.Length
        lblTest.Text = "n = " & n.ToString

str = lblChain1.Text
        str1 = str.Substring(n - 1, 1)
        str2 = str.Substring(0, n - 1)
        str = str1 & str2
        lblChain1.Text = str
    End Sub

Difficulté à faire défiler du texte

1 réponse

Discussions similaires

Newsletters