VB.Net So markieren Sie nur die aktuelle Zeile

Question

Ich versuche, eine Syntaxhervorhebung Feature zu meinem Textfeld hinzuzufügen, aber ich habe ein Problem. Nach stundenlanger Suche fand ich einen Post mit genau dem, wonach ich suchte. Hier ist der Code, der für Wörter in einer Liste durchsucht, und hebt sie:

 If editorBox.Text.Length > 0 Then 
     Dim selectStart As Integer = editorBox.SelectionStart 

     editorBox.Select(0, editorBox.Text.Length) 

     editorBox.SelectionColor = Color.White 


     editorBox.DeselectAll() 

     For Each oneWord As String In syntax 

      Dim pos As Integer = 0 

      Do While editorBox.Text.ToUpper.IndexOf(oneWord.ToUpper, pos) >= 0 

       pos = editorBox.Text.ToUpper.IndexOf(oneWord.ToUpper, pos) 

       editorBox.Select(pos, oneWord.Length) 

       editorBox.SelectionColor = Color.DodgerBlue 
       editorBox.SelectionFont = New Font(editorBox.SelectionFont, FontStyle.Bold) 



       pos += 1 

      Loop 

     Next 

     editorBox.SelectionStart = selectStart 

     editorBox.SelectionLength = 0 

    End If 

Ich habe durch diese Zeilen lesen, und ich verstehe das meiste davon. Ab sofort wählt es jedoch das gesamte Textfeld aus und markiert es, indem es alle Wörter erneut durchsucht und einfärbt. Nach 50 Zeilen wird es sehr schlecht und lückig. Ich dachte mir, wenn ich nur die aktuelle Zeile auswähle, wird es überhaupt nicht Laggy. Ich habe folgendes versucht, aber es scheint nicht zu funktionieren:

editorBox.Select(editorBox.GetFirstCharIndexOfCurrentLine, editorBox.Text.Length) 

Auch wenn ich ‚Raum‘ getroffen, hebt es nach wie vor alle der Textbox. Kann ich sonst noch etwas tun, um nur die aktuelle Zeile auszuwählen und hervorzuheben?

Answer 1

Sie müssen bei der aktuellen Zeile beginnen, was das tut, aber dann markieren Sie den Rest des Textes in diesem Code. Finden Sie VbNewLine von GetFirstCharIndexOfCurrentLine und verwenden Sie diese.