(20-01-20, 10:10 PM)جميل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

(20-01-20, 10:37 PM)جميل5 كتب : أنا استخدمه في أكثر من مشروع بدون مشكلة،

قد تكون غيرت بالكود أو وضعته داخل كود آخر فتسبب في هذا التعليق.

إقتباس :Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        RichTextBoxSearch(TextBox1.Text)
    End Sub

(21-01-20, 12:07 AM)جميل5 كتب : اذا كان النص الاصلي كبير جدا قد يأخذ وقتا

لكن تاكد انك لم تكرر استدعاء البحث في مكان آخر

بالنسبة للسطر الأخير RichTextBox1.SelectionLength = 0 نسيت أن أحذفه

اذا استمرت المشكلة ضع المشروع

إقتباس :بِسۡمِ ٱللَّهِ ٱلرَّحۡمَٰنِ ٱلرَّحِيمِ ١
ٱلۡحَمۡدُ لِلَّهِ رَبِّ ٱلۡعَٰلَمِينَ ٢ 
ٱلرَّحۡمَٰنِ ٱلرَّحِيمِ ٣ مَٰلِكِ يَوۡمِ ٱلدِّينِ ٤ 
إِيَّاكَ نَعۡبُدُ وَإِيَّاكَ نَسۡتَعِينُ ٥ ٱهۡدِنَا 
ٱلصِّرَٰطَ ٱلۡمُسۡتَقِيمَ ٦ صِرَٰطَ ٱلَّذِينَ أَنۡعَمۡتَ 
عَلَيۡهِمۡ غَيۡرِ ٱلۡمَغۡضُوبِ عَلَيۡهِمۡ 
وَلَا ٱلضَّآلِّينَ

إقتباس :صِرَٰطَ ٱلَّذِينَ أَنۡعَمۡتَ 
عَلَيۡهِمۡ غَيۡرِ ٱلۡمَغۡضُوبِ عَلَيۡهِمۡ 
وَلَا ٱلضَّآلِّينَ

(21-01-20, 12:07 AM)جميل5 كتب : اذا كان النص الاصلي كبير جدا قد يأخذ وقتا

لكن تاكد انك لم تكرر استدعاء البحث في مكان آخر

بالنسبة للسطر الأخير RichTextBox1.SelectionLength = 0 نسيت أن أحذفه

اذا استمرت المشكلة ضع المشروع