Voici comment faire défiler du texte mot par mot avec les function left() et right()
Dans le sub suivant , chaques caractère de la variable var_texte est stocké dans
la variable var_fin. La boucle (e) sert de délait pour voir clairement le texte se défiler.
Le délait est d'a peu près un quard de seconde. Nous aurions pu simplement utiliser la
function mid() kais je voulais tester si je pouvais le faire avec ces deux autres functions.
Il ne faut surtout pas oublier le DoEvents dans la procédure Private Sub text1_change
car s'il n'y est pas , lors d'un retour a la ligne , le texte qui défilera ne se verra plus.
Source / Exemple :
Sub Défiler(var_texte As String)
var_count = Len(var_texte) + 1
For a = 0 To Len(var_texte)
DoEvents
var_count = var_count - 1
var_2 = Right(var_texte, var_count)
var_fin = Left(var_2, 1)
Form1.Text2.Text = Form1.Text2.Text + var_fin
For e = 0 To 1500000
Next e
Form1.Text1.Refresh
Next a
End Sub
Conclusion :
Si vous n'aimez pas ce code , ne soyez pas trop brutales !
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.