Mam aplikację, do której chciałbym dodać "wyszukiwarkę tekstu".
Tzn, po wpisaniu do TextBox wyrazu "przykladowy tekst", miałaby przeszukać wszystkie istniejące RichTexBoxy i odtworzyć zakładkę w której się znajdzie ten "przykladowy tekst".
Wiem, że muszę użyć tablic chyba, ale jestem początkujący w VB i nie za bardzo wiem jak to zrobić ;/
79763424252f8af076d444.png
co dodać do tego kodu?
Tzn, po wpisaniu do TextBox wyrazu "przykladowy tekst", miałaby przeszukać wszystkie istniejące RichTexBoxy i odtworzyć zakładkę w której się znajdzie ten "przykladowy tekst".
Wiem, że muszę użyć tablic chyba, ale jestem początkujący w VB i nie za bardzo wiem jak to zrobić ;/
79763424252f8af076d444.png
co dodać do tego kodu?
Kod php:
Dim searchstring As String = TextBox1.Text
' The word you're looking for
Dim count As New List(Of Integer)()
For i As Integer = 0 To RichTextBox1.Text.Length - 1
If RichTextBox1.Text.IndexOf(searchstring, i) <> -1 Then
'If the word is found
'Add the index to the list
count.Add(RichTextBox1.Text.IndexOf(searchstring, i))
End If
Next
Try
For i As Integer = 0 To count.Count - 1
RichTextBox1.[Select](count(i), searchstring.Length)
RichTextBox1.SelectionColor = Color.Red
RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
count.RemoveAt(i)
Next
Catch
End Try
RichTextBox1.[Select](RichTextBox1.Text.Length, 0)
RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Italic)