[اليوم السابع]

محتاج عند كتابه كلمه من ضمن الكلمات اللي موجوده في الكود داخل الريتش بوكس يتغير لون الكلمه الي اللون الاحمر

كود :

 Dim Rgx As New Regex("'hidden' assets|100% free|100% satisfied|50% off")

        If Rgx.IsMatch(RichTextBox1.Text) Then

[size=small][font=Monaco, Consolas, Courier, monospace]'كيف اكمل الكود بيحث يغير لون الكلمه الموجوده [/font][/size]
        End If

[سعود]

إستخدم RichTextbox بدل TextBox
فيه مثال او نقاش في هذا القسم ابحث عنه نسيت عنوانه.

[اليوم السابع]

(31-07-19, 04:58 AM)سعود كتب : إستخدم RichTextbox بدل TextBox
فيه مثال او نقاش في هذا القسم  ابحث عنه نسيت عنوانه.

اكتب ايه في العنوان 

[اليوم السابع]

(31-07-19, 05:02 AM)اليوم السابع كتب :

(31-07-19, 04:58 AM)سعود كتب : إستخدم RichTextbox بدل TextBox
فيه مثال او نقاش في هذا القسم  ابحث عنه نسيت عنوانه.

اكتب ايه في العنوان 

للرفع

[اليوم السابع]

(31-07-19, 04:45 AM)اليوم السابع كتب :

محتاج عند كتابه كلمه من ضمن الكلمات اللي موجوده في الكود داخل الريتش بوكس يتغير لون الكلمه الي اللون الاحمر

كود :

 Dim Rgx As New Regex("'hidden' assets|100% free|100% satisfied|50% off")

        If Rgx.IsMatch(RichTextBox1.Text) Then

[size=small][font=Monaco, Consolas, Courier, monospace]'كيف اكمل الكود بيحث يغير لون الكلمه الموجوده [/font][/size]
        End If

[سعود]

بعد اذن صاحب المشاركة اللي كنت اقصدها لكن نسيت العنوان فوجدته شارك بها لكن لهدف لا اعرفه اخفاها

PHP كود :

​ 


PHP كود :

Dim Rgx As New Regex(TextBox1.Text, RegexOptions.IgnoreCase)
       RichTextBox1.SelectAll()
       RichTextBox1.SelectionBackColor = RichTextBox1.BackColor
       For Each m As Match In Rgx.Matches(RichTextBox1.Text)
           RichTextBox1.SelectionStart = m.Index
           RichTextBox1.SelectionLength = m.Length
           RichTextBox1.SelectionBackColor = Color.Yellow
       Next 


[اليوم السابع]

(31-07-19, 07:22 AM)سعود كتب : بعد اذن صاحب المشاركة اللي كنت اقصدها لكن نسيت العنوان فوجدته شارك بها لكن لهدف لا اعرفه اخفاها

PHP كود :

​ 


PHP كود :

Dim Rgx As New Regex(TextBox1.Text, RegexOptions.IgnoreCase)
       RichTextBox1.SelectAll()
       RichTextBox1.SelectionBackColor = RichTextBox1.BackColor
       For Each m As Match In Rgx.Matches(RichTextBox1.Text)
           RichTextBox1.SelectionStart = m.Index
           RichTextBox1.SelectionLength = m.Length
           RichTextBox1.SelectionBackColor = Color.Yellow
       Next 


كتبت الكود فأصبح بهذا الشكل فعطاني خطأ سوف ارفق المشروع في المرفقات حتي تطلع عليه 

كود :

Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged

       Dim m As New Regex("'hidden' assets|100% free|100% satisfied|50% off")

       If m.IsMatch(RichTextBox1.Text) Then
           Dim Rgx As New Regex(RichTextBox1.Text, RegexOptions.IgnoreCase)
           RichTextBox1.SelectAll()
           RichTextBox1.SelectionBackColor = RichTextBox1.BackColor
           For Each m As Match In Rgx.Matches(RichTextBox1.Text)
               RichTextBox1.SelectionStart = m.Index
               RichTextBox1.SelectionLength = m.Length
               RichTextBox1.SelectionBackColor = Color.Yellow
           Next


       End If
   End Sub

[haytham.arafat]

هذا كودلتغير لون نص محدد من قبل اليوزر ...

PHP كود :

 RichTextBox1.SelectionColor = Color.Red 


اترك لك طريقة البحث عن طريقة نحديد النص برمجيا اذا اردت

[اليوم السابع]

(31-07-19, 09:49 AM)haytham.arafat كتب : هذا كودلتغير لون نص محدد من قبل اليوزر ...

PHP كود :

 RichTextBox1.SelectionColor = Color.Red 


اترك لك طريقة البحث عن طريقة نحديد النص برمجيا اذا اردت

ولكن هذا الكود يعمل تحديد علي جميع النصوص الاخره التي تكون بعد النص الموجود

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته

صباح الخير على جميع اعضاء المنتدى الكرام

في العام الماضي عملت مثال لتلوين الكود من كلمات محجوزة بلون ازرق والتعليقات بلون اخضر وهكذا

والمثال بحاجة الى تطوير ثم تحويله الى مكتبة DLL

ارجو الاستفادة منه ثم الافادة