Discussion :

[Seto]

Et pas qu'un peu!

Je précise : j'ai créé un contrôle à base de richtextbox. Dans cette richtextbox j'ajoute de grandes (très grandes même) quantités de texte (en ligne par ligne, toute séparées par vbCrlf). Mais je constate que lorsque la quantité de texte ajouté d'un coup devient très importante, des lignes vides apparaissent dans la richtextbox(parfois en plein milieu d'un texte que je viens d'ajouter!), je suis incapable de déterminer pourquoi. Quelqu'un a t'il déjà eu un problème similaire?

[sovo]

un peut de code ne sera pas de refus. Merci

[Seto]

Il est très simple en soi le voici :

(le texte à ajouter est de type : )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
AAA
BBB
CCC

et il y a quelques milliers de lignes comme ça. L'ajout se fait ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
RTB.SelStart = 0
RTB.SelLength = 0
RTB.SelText = strMonTexte

Maintenant ce qu'il se passe à l'affichage, c'est si le texte que j'ai ajouté est très gros j'aurai parfois un affichage de ce type là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
AAA
 
BBB
CCC

Bref, l'ajout provoque l'apparition de lignes vides et je n'y comprend rien! Sachant que ma variable strMontexte est vérifiée en long en large et en travers et elle est bonne.

[sovo]

tien tien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RTB.SelText = strMonTexte

c'est pas pour selectionner un texte ca ??

et si tu essayais ceci (histoire etre plus propre)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RTB.Text = strMonTexte

[Seto]

Je vais devoir le faire quand même. Merci infiniment Sovo.

Ceci dit, je ne comprends pas pourquoi l'emploi de .seltext fait apparaître des lignes parasites dans le texte!

EDIT : et bien non, ça n'a rien changé, j'ai toujours mes lignes parasites!

[ProgElecT]

RTB.SelStart = 0
RTB.SelLength = 0
RTB.SelText = strMonTexte

On dirait que tu est dans une boucle, strMonTexte devant prendre une valeur differante pour chaque tour, un DoEvents permettrat peut être de donner au system le temps de faire le travail, sinon une solution que j'avais adopté, faire plusieurs paquets moins gros, separés par des DoEvents

[avigeilpro]

Essaye de mettre cela à la fin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
RTB.Text=Replace(RTB.Text,VbCrLf & VbCrLf,VbCrLf)

Ou, si ca ne fonctionne pas, par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
RTB.Text=Replace(RTB.Text,VbCrLf & " " & VbCrLf,VbCrLf)

Si ca ne fonctionne pas je ne vois pas

[Seto]

J'y ai bien pensé en fait j'ai trouvé un truc qui ne va pas.

Etant donné que je devais mettre en surbrillance certaines parties de mon texte, j'usai (et abusai) de modifications dans le code rtf par rajouter des \highlight et autres joyeusetés de ce genre. Bizarrement le problème ne se produit que sur des textes assez longs et je me suis demandé s'il ne s'agissait pas d'un bug de la richtextbox jamais trouvé.

Maintenant je passe par des sendmessage et plus de problèmes (je touche du bois)