منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] تعديل بسيط علي الكود | انتظر احد المشرفين شكرا جزيلا - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] تعديل بسيط علي الكود | انتظر احد المشرفين شكرا جزيلا (/showthread.php?tid=30640)

الصفحات: 1 2


تعديل بسيط علي الكود | انتظر احد المشرفين شكرا جزيلا - اليوم السابع - 31-07-19

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

كود :
 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



RE: تعديل بسيط علي الكود - سعود - 31-07-19

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


RE: تعديل بسيط علي الكود - اليوم السابع - 31-07-19

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

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


RE: تعديل بسيط علي الكود - اليوم السابع - 31-07-19

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

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

للرفع Sad


RE: تعديل بسيط علي الكود | انتظر احد المشرفين شكرا جزيلا - اليوم السابع - 31-07-19

(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


RE: تعديل بسيط علي الكود | انتظر احد المشرفين شكرا جزيلا - سعود - 31-07-19

بعد اذن صاحب المشاركة اللي كنت اقصدها لكن نسيت العنوان فوجدته شارك بها لكن لهدف لا اعرفه اخفاها
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 



RE: تعديل بسيط علي الكود | انتظر احد المشرفين شكرا جزيلا - اليوم السابع - 31-07-19

(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



RE: تعديل بسيط علي الكود | انتظر احد المشرفين شكرا جزيلا - haytham.arafat - 31-07-19

هذا كودلتغير لون نص محدد من قبل اليوزر ...
PHP كود :
 RichTextBox1.SelectionColor Color.Red 

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


RE: تعديل بسيط علي الكود | انتظر احد المشرفين شكرا جزيلا - اليوم السابع - 31-07-19

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

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

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


RE: تعديل بسيط علي الكود | انتظر احد المشرفين شكرا جزيلا - ابراهيم ايبو - 31-07-19

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