تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تظليل نص في TextBox
#1
Lightbulb 
السلام عليكم ايها المبرمجون الكرام

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

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


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



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

أنتظر الرد الكريم ، وشكرا .


الملفات المرفقة
.rar   MyTest.rar (الحجم : 1.64 ك ب / التحميلات : 28)
الرد }}}
تم الشكر بواسطة: سعود
#2
مرحبا بكم جميعا

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

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

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

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

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


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

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

وشكرا جزيلا لكم مقدمًا


الملفات المرفقة
.rar   Find Text.rar (الحجم : 1.89 ك ب / التحميلات : 21)
الرد }}}
تم الشكر بواسطة: سعود , سعود
#3
و عليكم السلام و رحمة الله و بركاته

استبدل أداة 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
الرد }}}
تم الشكر بواسطة: سعود
#4
شكرا جزيلا لك أستاذ Mohamad Anan

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

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

تمنياتي لك بالتوفيق ، وشكرا .
الرد }}}
تم الشكر بواسطة: Mohamad Anan , سعود , سعود



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم