Ajouter ligne suivante ListBox1.Items( ??? ) à un RichTextBox [Résolu]
cs_kanabis59
Messages postés mercredi 26 mai 2004Date d'inscription
27 juillet 2008
Dernière intervention
-
29 juin 2008 à 20:11 - Dernière réponse : cs_kanabis59
Messages postés mercredi 26 mai 2004Date d'inscription
27 juillet 2008
Dernière intervention
- 29 juin 2008 à 22:25
Bonjour,
J'aimerais savoir comment faire pour créer une sorte de boucle qui prendrait la ligne 1 de mon ListBox1 et l'ajouterait à mon RichTextBox2, puis ferais de même avec la ligne 2 du ListBox1, puis la ligne 3, ...
Je suis partis avec une truc de ce style...
RichTextBox1.Text &= ListBox1.Items( ??? )
Merci par avance aux réponses.
Bonne continuation.
Beny
Petite question.
Cette action se fait sur environ 3000 lignes de ListBox, il est for possible que le programme plante (ne réponde pas), est-il possible d'outrapasser cela ?
Merci.
For i As Integer = 0 To ListBox1.Items.Count - 1
RichTextBox1.Text &= ListBox1.Items(i) & Environment.NewLine
Next
Application.DoEvents()
RichTextBox1.SaveFile("C:\Fichier.rtf")
Ok parfait merci.
Ca fonctionne mais c'est assez long (plusieurs minutes).
Est-ce qu'a la fin, après avoir copier tout les listbox, il reviendra au début ou il s'arretera ?
PCPT13368
Messages postés lundi 13 décembre 2004Date d'inscription
3 février 2018
Dernière intervention -29 juin 2008 à 21:46
0
Merci
RichTextBox1.visible = false
For i As Integer = 0 To ListBox1.Items.Count - 1
RichTextBox1.Text &= ListBox1.Items(i) & Environment.NewLine
if (i and 127) then Application.DoEvents()
Next i
RichTextBox1.visible = true
Ok, mais pourrai-je avoir une petite explication de ces commandes svp ?
RichTextBox1.visible = false
For i As Integer = 0 To ListBox1.Items.Count - 1
RichTextBox1.Text &= ListBox1.Items(i) & Environment.NewLine
if (i and 127) then Application.DoEvents()
Next i
RichTextBox1.visible = true
PCPT13368
Messages postés lundi 13 décembre 2004Date d'inscription
3 février 2018
Dernière intervention -29 juin 2008 à 22:02
0
Merci
le fait de la rendre invisible pendant le traitement évite de dessiner la chaine, donc gain de temps.
quant au i and 127, on ne fait un DOEVENTS qu'une fois sur 128, ce qui est bien suffisant, et donc plus rapide
voir ce lien :
Q : [doc/faq.aspx#vb_doevents Code : Mon application freeze lors d'une
longue opération, comment y rémedier]
a aidé 68 internautes ce mois-ci