Difficulté à faire défiler du texte
simlouf
Messages postés
40
Date d'inscription
Statut
Membre
Dernière intervention
-
simlouf Messages postés 40 Date d'inscription Statut Membre Dernière intervention -
simlouf Messages postés 40 Date d'inscription Statut Membre Dernière intervention -
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 :
Merci d'avance de votre aide ;)
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 ;)
A voir également:
- Difficulté à faire défiler du texte
- Texte de chanson gratuit pdf - Télécharger - Vie quotidienne
- Transcription audio en texte word gratuit - Guide
- Excel cellule couleur si condition texte - Guide
- Texte barré whatsapp - Guide
- Texte a lenvers - Guide
1 réponse
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...
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
