[Easy4ever]

أخي الكريم لو نظرت للمشاركة الأخيرا كنت ستجد مبتغاك

انت تريد أختيار كلمات خاصة بك
يوجد في المشاركة رقم 20# للأخ myalsailamy
وضع لنا كود + رابط للشرح
المهم عشان أختصر لك الأمر
هذا كود ضعه في حدث

PHP كود :

Dim rx As New Regex("Imports|Public|Class|Private|Sub|End|ByVal|As|Handles|MyBase|Dim|New|For |Each|In |Next")
        For Each m As Match In rx.Matches(RichTextBox1.Text)
            RichTextBox1.SelectionStart = m.Index
            RichTextBox1.SelectionLength = m.Value.Length
            RichTextBox1.SelectionColor = Color.Blue
        Next
        rx = New Regex(""".+""")
        For Each m As Match In rx.Matches(RichTextBox1.Text)
            RichTextBox1.SelectionStart = m.Index
            RichTextBox1.SelectionLength = m.Value.Length
            RichTextBox1.SelectionColor = Color.Tomato
        Next 


واستبدل الكلمات الموجودة في السطر الاول بالكلمات المراد انت تلوينها
ومن السطر التالي

PHP كود :

rx = New Regex(""".+""") 


أحذفه لو ما تبي تلون ما بين علامة التنصيص

بالتوفيق أخي الكريم