문자열 검색 기능

 'treeview1 node 클릭 시 검색한 결과도 Richtextbox1에서 찾기

        If TextBox1.Text <> "" Then

            Dim index1 As Integer = 0

            Dim index2 As Integer = 0

            Dim temp1 As String = RichTextBoxEx1.Rtf

            Dim temp2 As String = RichTextBoxEx2.Rtf

            RichTextBoxEx1.Rtf = ""

            RichTextBoxEx1.Rtf = temp1

            RichTextBoxEx2.Rtf = ""

            RichTextBoxEx2.Rtf = temp2

            'Richtextboxex1 검색

            While index1 < RichTextBoxEx1.Text.LastIndexOf(TextBox1.Text)

                RichTextBoxEx1.Find(TextBox1.Text, index1, RichTextBoxEx1.TextLength, RichTextBoxFinds.None)

                RichTextBoxEx1.SelectionColor = Color.Red

                RichTextBoxEx1.SelectionBackColor = Color.LightGreen

                index1 = RichTextBoxEx1.Text.IndexOf(TextBox1.Text, index1) + 1

            End While

            'Richtextboxex2 검색

            While index2 < RichTextBoxEx2.Text.LastIndexOf(TextBox1.Text)

                RichTextBoxEx2.Find(TextBox1.Text, index2, RichTextBoxEx2.TextLength, RichTextBoxFinds.None)

                RichTextBoxEx2.SelectionColor = Color.Red

                RichTextBoxEx2.SelectionBackColor = Color.LightGreen

                index2 = RichTextBoxEx2.Text.IndexOf(TextBox1.Text, index2) + 1

            End While

        End If