Défilement texte

Soyez le premier à donner votre avis sur cette source.

Vue 6 027 fois - Téléchargée 857 fois

Description

J'ai cherché en vain un programme VB ou VBA permettant le défilement d'un texte dans une fenêtre.
J'ai trouvé un bout de code VB je ne sais plus où qui ne donne pas un résultat satisfaisant, avec manip du texte avec les fonctions MID et LEFT.
Je propose donc ci-joint un code VBA tout simple qui utilise le déplacement d'un label contenant le texte à défiler, avec 2 méthodes de temporisation: la fonction SLEEP ou un timer API (puisqu'il n'existe pas de timer en VBA, sauf si on utilise mon contrôle .ocx "Timer VBA" déposé sur le site VBFrance).Je rappelle également la méthode texte pour comparaison.
On peut régler la vitesse de défilement et son sens.

Source / Exemple :


Zip joint

Conclusion :


Le programme est largement commenté et adaptable à tout besoin.
Il est aisément transposable en VB6 ou VB.Net.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
1
merci à toi (et aux autres)
Messages postés
301
Date d'inscription
lundi 27 février 2006
Statut
Membre
Dernière intervention
17 décembre 2017

Merci beaucoup, LE PIVERT, pour ton commentaire et tes compliments.
En effet, j'utilise couramment mon Timer VBA sous Excel, et je n'ai pas pensé à le déférencer dans mon programme, si bien qu'il apparait donc comme manquant pour les autres utilisateurs.
Après avoir décoché la case dans Rf, il faut sauver le programme pour ne pas avoir la rf à la réouverture.
J'espère que grâce à ton observation, personne n'aura plus de pb.
N'importe comment, je vais rééditer tout de suite une mise à jour de mon code pour supprimer la rf à mon timer, et en profiter pour le retoucher un peu.
Messages postés
7359
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
1 mai 2021
122
Bonjour,
J'ai le même probléme, je crois savoir d'où cela vient: dans Outis-Référence il y a une case cochez "Mamquant Timer VBA", il suffit de la décochez et le code fonctionne très bien.
J'en profite pour te féliciter pour ce programme.
@+ Le Pivert
Messages postés
301
Date d'inscription
lundi 27 février 2006
Statut
Membre
Dernière intervention
17 décembre 2017

Salut MAHMOUDMTKL,
Je viens d'essayer mon code avec Excel 2007, et je ne rencontre pas ton pb.
Essaie 2 choses:
1/Remplace Chr(32) par " " (un espace)
2/dans les références (menu VB Outils), vérifie que les cases suivantes sont bien cochées: Visual Basic for Applications / Microsoft Excel 12.0 Object Library (ou 11.0 pour Excel 2003) / OLE Automation / Microsoft Office 12.0 (ou 11.0) Object Library / Microsoft Forms 2.0 Object Library. Sinon cherche la manquante dans la liste et coche-la.
C'est dommage d'avoir un pb avec un code aussi simple, mais çà devrait se résoudre!
Messages postés
1
Date d'inscription
samedi 18 avril 2009
Statut
Membre
Dernière intervention
10 août 2009

Bonjour,
Je suis sur l'office 2007 et il me dit que pour space la bibliothèque est introuvable.
Aprés avoir remplacé la ligne du code
txtD = Space(Len(txt)) & Space(50) & txt
par
txtD = String(Len(txt),Chr(32)) & String(50,Chr(32))
le débogueur m'envoi un message d'erreur ou il me dit que la bibliothèque n'existe pas, et cette fois il sélectionne "Chr".
Afficher les 8 commentaires

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.