ca serait beau mais dans mon application j'ai besoin d'un defilement et non d'un affichage
et dire que je pensais que c'etais la chose la plus simple au monde et de lire un fichier text
ca serait beau mais dans mon application j'ai besoin d'un defilement et non d'un affichage
et dire que je pensais que c'etais la chose la plus simple au monde et de lire un fichier text
Je comprends pas ce que tu veux faireEnvoyé par koseta
Explique-nous plus clairement sinon on y arrivera pas
@+
Théo
Forums VB : lire la notice
La touche existe pour être utilisée
Pensez au tag
Pour ceux n'ayant pas l'aide installée :
- Aide MSDN pour VB6
- Aide MSDN pour VBA
Je ne réponds pas aux questions techniques par MP. Merci d'utiliser le forum fait pour çà.
Merci à tous pour vos reponses
pour les api ;le kernel je ne le maitrise pas vraiment pour la solution d'avec le tempo je viens de l'executer j'ai l'erreur un objet est requis l'reeur apparais au niveau de l'istruction
Application.Wait Tempo
comment declarer cet objet?
Re,
Si tu as besoin d'avoir toutes les lignes séparée, tu peux faire comme cela alors :
Pour l'écriture, tu passes soit par :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Dim fs, f Dim Content Dim monTableau() Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile("C:\test.txt", 1, False, 0) Content = f.Readall f.Close monTableau = Split(Content, vbCrLf)
soit par :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Text1.MultiLine = True 'Forçage au multiligne Text1.ScrollBars = 2 'Scrollbar verticale Text1.Text = Content
Voilà
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Text1.MultiLine = True 'Forçage au multiligne Text1.ScrollBars = 2 'Scrollbar verticale Text1.Text = "" 'Initialisation de la TextBox For i=LBound(monTab) to UBound(monTab) Text1.Text = Text1.Text & vbCrLf & monTab(i) Next i
Théo
Forums VB : lire la notice
La touche existe pour être utilisée
Pensez au tag
Pour ceux n'ayant pas l'aide installée :
- Aide MSDN pour VB6
- Aide MSDN pour VBA
Je ne réponds pas aux questions techniques par MP. Merci d'utiliser le forum fait pour çà.
Pourtant, le truc de Xo avait l'air super bien-simple et tout. Une ligne à rajouter en début de module, et après, tu n'as plus qu'à faire "Sleep 1000" et tu as une pause de 1 seconde...
C'est re-moi
Je viens de relire ton premier post car je me demandais si je faisais pas du hors-sujet au vu de ta réponse précédente ...
J'ai trouvé le problème de ton code ... (il serait temps tu me diras)Envoyé par koseta
Cela vient de la ligne suivante :
Tu écrases le contenu de ta TextBox à chaque itération ..
Code : Sélectionner tout - Visualiser dans une fenêtre à part Text1.Text = ligne
Il faut pour corriger cela faire comme ceci :
Et il faut penser à initialiser la TextBox avant la boucle
Code : Sélectionner tout - Visualiser dans une fenêtre à part Text1.Text = Text1.Text & vbCrLf & ligne
Voilà
Code : Sélectionner tout - Visualiser dans une fenêtre à part Text1.Text=""
@+
Théo
Forums VB : lire la notice
La touche existe pour être utilisée
Pensez au tag
Pour ceux n'ayant pas l'aide installée :
- Aide MSDN pour VB6
- Aide MSDN pour VBA
Je ne réponds pas aux questions techniques par MP. Merci d'utiliser le forum fait pour çà.
avec Text1.Text = Text1.Text & vbCrLf & ligne et Text1.Text = "" il m'a tous afficher toute les lignes mon probleme et le defilement des linges l'une apres l'autre
Oui, Théo, tu es revenu au début du post.
Mais alors bon, le sleep de Xo (non, y'a pas de jeu de mot, je n'oserais pas... ) ne te convient pas?
Ca fait bien ce que tu veux, ça, non?
je cherche encore et encore je lis ....
je viens de lire qu'avec le timer et le doevents je peux resoudre le probleme
Mais j'ai vraiment l'impression que tu as tout ce qu'il te faut:
Tu mets
C'est ton code du début, avec en plus une pause de 1 seconde (1000 millisecondes),
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Dim File As TextStream Dim Path_File As String Dim ligne As String Dim i As Integer i = 0 ligne = 0 Path_File = "c:\test.txt " Set File = SystemeFichier.OpenTextFile(Path_File, ForReading) While Not File.AtEndOfStream line = File.ReadLine i = i + 1 Text1.Text = ligne Sleep 1000 Wend File.Close
et au début de ton module, hors de ta procédure, tu rajoutes la ligne
Ca doit bien faire défiler ligne par ligne, toutes les 1 secondes, ton fichier texte dans ton textbox, non ?!!??
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dites, je me décide enfin à tester ce code... Mais pour utiliser un textstream, il faut rajouter quelle référence dans le module, déjà?
runtime
Bon, je vais regarder ça plus précisemment.
Mais qu'est-ce qui ne marche pas si tu mets la version "sleep" de Xo?
C'est pas à moi, on peut parler de la fonction Sleep sur ce topic sans me citerEnvoyé par Megaxel
surtout si c'est pour faire des calembours discutables ...
"Ce que l'on conçoit bien s'énonce clairement,
Et les mots pour le dire arrivent aisément." Nicolas Boileau
"Expliquer empêche de comprendre si cela dispense de chercher"
Quiz Oracle : venez tester vos connaissances !
La FAQ Oracle : 138 réponses à vos questions
Aidez-nous à la compléter
Bonjour,
une question, Pourquoi veux tu utiliser un controle textbox pour faire "defiler" tes lignes?
je ne crois pas pas que cela soit le bon controle.
Personnellement pour un defilement type fil de l'eau, j'utiliserai un controle listbox. Tu le remplis, puis à chaque ligne ajoutée, tu enleves la plus ancienne.
Avec un refresh, cela devait ressembler à un defilement.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager