Discussion :

[ollooo]

Bonjour,

J'ai une difficulté à comprendre comment gérer le nombre de lignes d'une richtextbox.
Je ne sais pas comment récupérer la ligne courante.

Code :

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

1
2
 
rtb.Lines(rtb.GetLineFromCharIndex(rtb.GetFirstCharIndexOfCurrentLine()))

En mode wordwrap = false, cela marche très bien.
Mais si je mets wordwrap = true et dès que j'ai un retours à la ligne automatique dans mon éditeur cela me génère une exception et un dépassement du tableau.

Comment surmonter cette difficulté ?

Edit : j'ai trouvé une solution qui est très vilaine visuellement : je mets rtb.worwrap = false juste avant mon code puis je le remets sur true après. Ce n'est vraiment pas satisfaisant esthétiquement car ça crée un mouvement désagréable dans la richtextbox. Si quelqu'un a une meilleure solution, je suis preneur.

[clementmarcotte]

Bonjour,

En fait, la notion de ligne d'un RichTextBox, c'est plutôt un paragraphe qu'une ligne à strictement parler. Ceci dit, je n'ai jamais testé si le saut de ligne et le saut de paragraphe ajouté dans le code ont le même effet dans un RichTextBox.

[ollooo]

Bonjour,

En fait, la notion de ligne d'un RichTextBox, c'est plutôt un paragraphe qu'une ligne à strictement parler. Ceci dit, je n'ai jamais testé si le saut de ligne et le saut de paragraphe ajouté dans le code ont le même effet dans un RichTextBox.

Merci,

Je viens de comprendre que le problème ne venait pas de GetFirstCharIndexOfCurrentLine(), qui indique bien l'index du caractère de la ligne courante et visible de l'éditeur richtextbox. Mais la difficulté vient bien de la compréhension de la notion de ligne par la richtextbox. Si en mode wordwrap=false cela coule de source car visuel, cela n'est pas le cas en mode worwrap=true.

J'ai donc trouvé une alternative qui me satisfait. Je peux récupérer ma ligne en utilisant un genre de code comme celui-ci :

Code :

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

1
2
3
 
Dim indexcl as integer = rtb.GetFirstCharIndexOfCurrentLine
Dim submystring As String = Mid(rtb.Text, indexcl, rtb.SelectionStart)