20-01-20, 10:33 PM
(20-01-20, 10:10 PM)جميل5 كتب : يوجد كود بحث مشهور لأداة RichTextBox
ولكن يلون خلفية النتيجة كما يحدث في محرر الفيجوال ستوديو
ويتمز بأنه يلون جميع نتائج البحث حتى لو تعددت في أماكن مختلفة
وسوف يلون حتى لو أن النتيجة الواحدة كانت طويلة بأكثر من سطر
يمكنك تغيير التلوين ليقوم بتلوين الكلام بدل الخلفية بتبديل BackColor إلى ColorPHP كود :
Sub RichTextBoxSearch(txt As String)
RichTextBox1.SelectAll()
RichTextBox1.SelectionBackColor = Color.White
Dim index As Integer = 0
Do
index = RichTextBox1.Find(txt, index, RichTextBoxFinds.None)
If index = -1 Then Exit Do
RichTextBox1.SelectionBackColor = Color.LightSkyBlue
index += txt.Length
Loop
RichTextBox1.SelectionLength = 0
End Sub
مرحبا جربت الكود لكن البرامج يعلق
