'검색한 결과 Richtextbox1,2 에서 찾아 표기하기(RichTextBoxEx 파일 포함)

RichTextBoxEx >>> 파일(dll)

RichTextBoxEx.dll

'검색한 결과 Richtextbox1,2 에서 찾아 표기하기

    Private Sub Search_result_rtb()

        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.FromArgb(255, 255, 192)

            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.FromArgb(255, 255, 192)

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

        End While

        'End If

    End Sub