Texte défilant

Question

Bonjour &#224; tous, je (tente) code en VB6.



Je suis &#224; la recherche d'une bout
de code me permettant de faire d&#233;filer un texte de fa&#231;on horizontale &#224;
partir d'un fichier qui contient le texte sans limitation du nombre de carract&#232;res.



MERCI pour votre aide.

jannoman · Answer

dim a as string, f as integer
dim n as integer, k as integer
dim t as currency

'on ouvre ton fichier texte
f = freefile()
open "C:\chemindufichier.txt" for input as #f
line input #f, a 'on lit la premiere ligne
close #f

n = len(a)
for k = 1 to n
me.label1.caption = mid(a, k, n + 1 - k) 'on affiche dans le label le texte privé des k premieres lettres
me.label1.refresh

'ici on attend 0.1 secondes
t = timer
do
loop until (timer - t) > .1

next k

et voila !

A+.
Thomas.

by2k · Answer

Merci pour ta r&#233;ponse rapide mais je n'ai rien &#224; l'&#233;cran.

jannoman · Answer

ben il faut une ligne de texte dans ton fichier
poru vérifier que la lecture est bonne, fais juste

dim a as string,  f as integer

f = freefile()
open "C:\chemindufichier.txt" for input as #f
line input #f, a 'on lit la premiere ligne
close #f

me.label1.caption = a

Texte défilant

3 réponses

Discussions similaires