+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [سؤال] تظليل نص في TextBox (/showthread.php?tid=37779)
تظليل نص في TextBox - أبو خالد الشكري - 13-02-21
السلام عليكم ايها المبرمجون الكرام
كيف يمكنني أن أقوم بتظليل أي كلمة أريدها في TextBox ؟
وإذا كانت الكلمة المطلوب تظليلها متكررة في TextBox ، فهل يمكن تظليل جميع الكلمات المتكررة مرة واحدة ؟
وضعت المثال في المرفقات ؛ حتى تكون الأمور سهلة !
يوجد في المثال المرفق كلمة (سيارة) مكررة مرتين ، وكذلك كلمة (أشتري) أيضا مكررة مرتين .
أنتظر الرد الكريم ، وشكرا .
RE: تظليل نص في TextBox - أبو خالد الشكري - 16-02-21
مرحبا بكم جميعا
بعد أن تأخر ردكم ، قمت بالبحث عن الكود المطلوب من خلال مواقع أجنبية
ةالحمد لله وجدته ... ولكن فقط توجد فيه ملاحظة واحدة تحتاج إلى تعديل
الكود يستطيع البحث عن النص المطلوب وتظليله ، ولكنه لا يستطيع تظليل النص المتكرر مرة واحدة
ولكن فط عن طريق الضغط على زر Next
أنا أريده أن يظلل جميع النصوص المتكررة مرة واحدة بدون النثر على زر Next
فأرجو منكم فقط مساعدتي في تعديل هذا الكود .
* الكود وضعته في المرفقات
وشكرا جزيلا لكم مقدمًا
RE: تظليل نص في TextBox - Mohamad Anan - 17-02-21
و عليكم السلام و رحمة الله و بركاته
استبدل أداة 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 SubRE: تظليل نص في TextBox - أبو خالد الشكري - 17-02-21
شكرا جزيلا لك أستاذ Mohamad Anan
فكرة جيدة استخدام RichTextBox بدلا من TextBox
والكود شغال بشكل جيد .
تمنياتي لك بالتوفيق ، وشكرا .