Faire défiler un message dans un textbox.

Commenter

Contenu du snippet

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.

A voir également

S'inscrire maintenant

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.