Процедура поиска в RichTextBox всех вхождений искомой строки. Если строки найдены, процедура выделяет их цветом.
| VB.NET | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Public Class VBNET_Text_Search
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim startText As Integer = 0
Dim endText As Integer
endText = RichTextBox1.Text.LastIndexOf(TextBox1.Text)
RichTextBox1.SelectAll()
RichTextBox1.SelectionBackColor = Color.White
While startText < endText
RichTextBox1.Find(TextBox1.Text, startText, RichTextBox1.TextLenght, RichTextBoxFinds.MatchCase)
RichTextBox1.SelectionBackColor = Color.Brown
startText = RichTextBox1.Text.IndexOf(TextBox1.Text, startText) + 1
End While
End Sub
End Class |
|
|
