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

نسخة كاملة : تظليل نص في TextBox
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ايها المبرمجون الكرام

كيف يمكنني أن أقوم بتظليل أي كلمة أريدها في TextBox ؟

وإذا كانت الكلمة المطلوب تظليلها متكررة في TextBox ، فهل يمكن تظليل جميع الكلمات المتكررة مرة واحدة ؟


وضعت المثال في المرفقات ؛ حتى تكون الأمور سهلة !



يوجد في المثال المرفق كلمة (سيارة) مكررة مرتين ، وكذلك كلمة (أشتري) أيضا مكررة مرتين .

أنتظر الرد الكريم ، وشكرا .
مرحبا بكم جميعا

بعد أن تأخر ردكم ، قمت بالبحث عن الكود المطلوب من خلال مواقع أجنبية

ةالحمد لله وجدته ... ولكن فقط توجد فيه ملاحظة واحدة تحتاج إلى تعديل 

الكود يستطيع البحث عن النص المطلوب وتظليله ، ولكنه لا يستطيع تظليل النص المتكرر مرة واحدة

ولكن فط عن طريق الضغط على زر Next

أنا أريده أن يظلل جميع النصوص المتكررة مرة واحدة بدون النثر على زر Next


فأرجو منكم فقط مساعدتي في تعديل هذا الكود .

* الكود وضعته في المرفقات 

وشكرا جزيلا لكم مقدمًا
و عليكم السلام و رحمة الله و بركاته

استبدل أداة TextBox بالأداة RichTextBox عندها يمكن تغيير لون او خط جميع الكلمات المطابقة للبحث معا

كود :
Option Explicit

Private Sub Form_Load()
Me.RichTextBox1.Text = "1 2 3 4 4 4 1 4 5 7 8 8 9 7 1 2 9 3 1 3 9 7 5 4 2 1 5 6"
BoldWord "4"
End Sub

Private Sub BoldWord(ByVal word As String)
   Dim start, found As Integer
   With Me.RichTextBox1
       found = .Find(word, start)
       Do While found > -1
           .SelStart = found
           .SelLength = Len(word)
           .SelBold = True
           .SelColor = vbRed
           start = found + Len(word)
           If start >= Len(.Text) Then Exit Do
           found = .Find(word, start)
       Loop
   End With
End Sub
شكرا جزيلا لك أستاذ Mohamad Anan

فكرة جيدة استخدام RichTextBox بدلا من TextBox

والكود شغال بشكل جيد .

تمنياتي لك بالتوفيق ، وشكرا .