[جميل5]

يوجد كود بحث مشهور لأداة RichTextBox
ولكن يلون خلفية النتيجة كما يحدث في محرر الفيجوال ستوديو
ويتمز بأنه يلون جميع نتائج البحث حتى لو تعددت في أماكن مختلفة
وسوف يلون حتى لو أن النتيجة الواحدة كانت طويلة بأكثر من سطر

PHP كود :

   Sub RichTextBoxSearch(txt As String)
        RichTextBox1.SelectAll()
        RichTextBox1.SelectionBackColor = Color.White
        Dim index As Integer = 0
        Do
            index = RichTextBox1.Find(txt, index, RichTextBoxFinds.None)
            If index = -1 Then Exit Do
            RichTextBox1.SelectionBackColor = Color.LightSkyBlue
            index += txt.Length
        Loop
        RichTextBox1.SelectionLength = 0
    End Sub 


يمكنك تغيير التلوين ليقوم بتلوين الكلام بدل الخلفية بتبديل BackColor إلى Color