Pour cet exemple, dans un formulaire, j'ai placé un textbox (Text1),un bouton (command1), un timer (Timer1) et dans chacun d'eux les codes suivants :
Source / Exemple :
Option Explicit
Public strTexte As String
Public ctrTexte As Control
Private Sub Command1_Click()
strTexte = "Voyez le brick géant que j'examine près du wharf. "
If Timer1.Enabled = False Then
Set ctrTexte = Text1
Timer1.Enabled = True
Command1.Caption = "Stop"
Else
Timer1.Enabled = False
Command1.Caption = "Début"
End If
End Sub
Private Sub Timer1_Timer()
'Mettre l'interval de temps à 100.
Static intPos As Integer
Dim intLenTexte As Integer
intLenTexte = Len(strTexte)
ctrTexte = Right(strTexte, intLenTexte - intPos) & Left(strTexte, intPos)
If intPos = intLenTexte Then intPos = 0
intPos = intPos + 1
End Sub
Conclusion :
Ceci est optimisable, en plaçant les commandes de lancement dans une procédure, et un compteur de répétition dans le Timer.
ce qui permet dans une application de lancer la séquence avec un texte différent, pour un temps limité, à partir d'endroit différent.
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.