cs_kanabis
Messages postés59Date d'inscriptionmercredi 26 mai 2004StatutMembreDernière intervention27 juillet 2008
-
29 juin 2008 à 20:11
cs_kanabis
Messages postés59Date d'inscriptionmercredi 26 mai 2004StatutMembreDernière intervention27 juillet 2008
-
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
A voir également:
Ajouter ligne suivante ListBox1.Items( ??? ) à un RichTextBox
cs_kanabis
Messages postés59Date d'inscriptionmercredi 26 mai 2004StatutMembreDernière intervention27 juillet 2008 29 juin 2008 à 21:11
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_kanabis
Messages postés59Date d'inscriptionmercredi 26 mai 2004StatutMembreDernière intervention27 juillet 2008 29 juin 2008 à 21:28
Le Application.DoEvents() doit être placé ou ?
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")
cs_kanabis
Messages postés59Date d'inscriptionmercredi 26 mai 2004StatutMembreDernière intervention27 juillet 2008 29 juin 2008 à 21:39
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 ?
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 29 juin 2008 à 21:46
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
cs_kanabis
Messages postés59Date d'inscriptionmercredi 26 mai 2004StatutMembreDernière intervention27 juillet 2008 29 juin 2008 à 21:48
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
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 29 juin 2008 à 22:02
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]