[RaggiTech]

لنرى كيف نبحث عن نص وعندما نجده نقوم بتظليله

كود :

[/b][/FONT][/COLOR]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ' نقوم بتعريق متغير نصي ونسند له قيمة نص نبحث عنه
        Dim SearchStr As String = "ABC"


        ' نقوم بتعريق متغير رقمي وسيحمل قيمة مكان النص الذى نحصل عليه من البحث
        Dim FindPost As Integer


        ' قمنا بعملية البحث عن طريق الأمر Find
        ' اعطينا موضع النتيجة للبحث للمتغير


        FindPost = RichTextBox1.Find(SearchStr)




        If FindPost > -1 Then


            ' قمنا بعمل تحديد للنص من بدايته حتى طوله الحرفي
            RichTextBox1.Select(FindPost, SearchStr.Length)


            RichTextBox1.Focus()




        End If



    End Sub[COLOR=#0000FF][FONT=arial][b]