Défilement de texte mot a mot

Soyez le premier à donner votre avis sur cette source.

Vue 4 732 fois - Téléchargée 547 fois

Description

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 !

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

cs_GRenard
Messages postés
1663
Date d'inscription
lundi 16 septembre 2002
Statut
Membre
Dernière intervention
30 juillet 2008
1 -
la prochaine fois, sélectionne pas tous les components :P

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.