منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : تعديل بسيط علي الكود | انتظر احد المشرفين شكرا جزيلا
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
محتاج عند كتابه كلمه من ضمن الكلمات اللي موجوده في الكود داخل الريتش بوكس يتغير لون الكلمه الي اللون الاحمر

كود :
 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
فيه مثال او نقاش في هذا القسم  ابحث عنه نسيت عنوانه.

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

اكتب ايه في العنوان  Big Grin Smile Smile

للرفع Sad
(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

Sad
بعد اذن صاحب المشاركة اللي كنت اقصدها لكن نسيت العنوان فوجدته شارك بها لكن لهدف لا اعرفه اخفاها
PHP كود :
​ 
PHP كود :
Dim Rgx As New Regex(TextBox1.TextRegexOptions.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.TextRegexOptions.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
هذا كودلتغير لون نص محدد من قبل اليوزر ...
PHP كود :
 RichTextBox1.SelectionColor Color.Red 

اترك لك طريقة البحث عن طريقة نحديد النص برمجيا اذا اردت
(31-07-19, 09:49 AM)haytham.arafat كتب : [ -> ]هذا كودلتغير لون نص محدد من قبل اليوزر ...
PHP كود :
 RichTextBox1.SelectionColor Color.Red 

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

ولكن هذا الكود يعمل تحديد علي جميع النصوص الاخره التي تكون بعد النص الموجود
السلام عليكم ورحمة الله وبركاته
صباح الخير على جميع اعضاء المنتدى الكرام
في العام الماضي عملت مثال لتلوين الكود من كلمات محجوزة بلون ازرق والتعليقات بلون اخضر وهكذا
والمثال بحاجة الى تطوير ثم تحويله الى مكتبة DLL
ارجو الاستفادة منه ثم الافادة
الصفحات : 1 2