Καλησπέρα,
Έχω λοιπών ένα RitchTextBox, και θέλω να χρωματίσω πάνω του τη λέξη "Insignificant" (όταν υπάρχει) με κόκκινο χρώμα,
ενώ τη λέξη "Significant" θέλω να την υπογραμμίζω.
έγραψα λοιπών τον παρακάτω κώδικα:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Private Sub rtbIntermediate_TextChanged(sender As System.Object, e As System.EventArgs) Handles rtbIntermediate.TextChanged
Dim SelStart As Integer = -1
If rtbIntermediate.Text <> "" Then
mniExportIntermediate.Enabled = True
SelStart = rtbIntermediate.Find(txtLanguage.Lines(87))
If SelStart <> -1 Then
rtbIntermediate.SelectionStart = SelStart
rtbIntermediate.SelectionFont = New Font(rtbIntermediate.Font, FontStyle.Underline)
End If
SelStart = rtbIntermediate.Find(txtLanguage.Lines(88))
If SelStart <> -1 Then
rtbIntermediate.SelectionStart = SelStart
rtbIntermediate.SelectionColor = Color.Red
End If
Else
mniExportIntermediate.Enabled = False
End If
End Sub |
Και πράγματι μου ζωγραφίζει τις λέξεις (όταν υπάρχουν), αλλά ΜΟΝΟ την πρώτη φορά που εμφανίζονται!
Η λέξεις αυτές υπάρχουν 4 φορές μέσα στο κείμενο - δλδ ή θα είναι 4 "Significαnt" ή 4 "Insignificant" ή οποιοσδήποτε συνδυασμός τους... πως μπορώ να τα χρωματίζω όλα??