Guten Abend,
ich habe einen Text aus einer Datei in ein StringArray geladen und diesen in eine RichTextBox geladen. Den Inhalt der RichTextBox möchte ich danach zeilenweise färben. Dafür habe ich folgenden Code verwendet:
Nur habe ich hier ein kleines Problem. Ist die Breite der RichTextBox kleiner als mancher Breite von einer Zeile, wird das einfärben des Textes einer Zeile total falsch. Passt eine Zeile ohne visuellen/optischen Zeilenumbruch perfekt in die RTB, gibt es hierbei keine Probleme.
Was muss ich also an meinem Code bearbeiten, damit das ganze Problemlos laufen kann?
Gruß,
Tim
ich habe einen Text aus einer Datei in ein StringArray geladen und diesen in eine RichTextBox geladen. Den Inhalt der RichTextBox möchte ich danach zeilenweise färben. Dafür habe ich folgenden Code verwendet:
VB.NET-Quellcode
- For i = 0 To RichTextBox1.Lines.Count - 1
- Dim _from As Integer = RichTextBox1.GetFirstCharIndexFromLine(i)
- Dim _to As Integer = RichTextBox1.Lines(i).Length
- RichTextBox1.Select(_from, _to)
- If RichTextBox1.Lines(i).StartsWith("["c) Then
- RichTextBox1.SelectionColor = Color.ForestGreen
- ElseIf RichTextBox1.Lines(i).StartsWith("bam.exe") Then
- RichTextBox1.SelectionColor = Color.Blue
- ElseIf RichTextBox1.Lines(i).StartsWith("Kom") Then
- RichTextBox1.SelectionColor = Color.Black
- Else
- RichTextBox1.SelectionColor = Color.Red
- End If
- RichTextBox1.Select(RichTextBox1.Text.Length, 0)
- Next
Nur habe ich hier ein kleines Problem. Ist die Breite der RichTextBox kleiner als mancher Breite von einer Zeile, wird das einfärben des Textes einer Zeile total falsch. Passt eine Zeile ohne visuellen/optischen Zeilenumbruch perfekt in die RTB, gibt es hierbei keine Probleme.
Was muss ich also an meinem Code bearbeiten, damit das ganze Problemlos laufen kann?
Gruß,
Tim