lire le nombre de lignes d'un richtextbox dans une boucle do until loop

Question

Bonjour à tous et à toutes, 
Dans le code ci-dessous:

 Do Until sr.Peek = -1

            ligne = sr.ReadLine

 RichTextBox1.AppendText("G00 X" + sr.ReadLine())
'
'
'
'
'
'

        Loop

        sr.Close()



Je voudrai compter le nombre de lignes qui s'ajoutent au fur et à mesure!
Quand j'ajoute  Label9.Text=RichTextBox1.Lines.Length - 1
dans cette boucle, celà me donne le nombre total de lignes uniquement à la fin de la boucle, et pas en même temps que les lignes s'ajoutent!!!
Comment dois-je faire?
Merci d'avance pour vos réponses.

A+
Plano

Renfield · Answer

compte le nombre de ligne avant, fais l'ajout,
compte le nombre de ligne après, fais la soustraction


Renfield - Admin CodeS-SourceS - MVP Visual Basic

Claiyah · Answer

pour compter le nombre de ligne :
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 
Private Const EM_GETLINECOUNT = &HBA 		

'dans un button par exemple

 dim lngLength  as long
 lngLength = SendMessage(tontext.hwnd, EM_LINELENGTH, lngLineIndex, 0)

Claiyah · Answer

ah dsl dans le boutton tu met:

dim lngCount as long
lngCount = SendMessage(RichTextBox1.hwnd, EM_GETLINECOUNT, 0, 0)

Lire le nombre de lignes d'un richtextbox dans une boucle do until loop

3 réponses

Votre réponse

Discussions similaires