تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيف يمكنني البحث على نص و تلوينه بلون احمر
#1
السلام عليكم
اريد كود للبحث عن نص في اداة richtextbox
و تلوينه بلون احمر
انا اعرف كيف ابحث عن كلمة او جملة و تلوينها بشرط ان تكن في سطر واحد مثل التي لونتها بالون الازرق و  لا اعرف كيف ابحث عن نص يتكون من عدة اسطر مثل هدا النص الملون بالاحمر

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

مرحبا جربت الكود لكن البرامج يعلق
الرد
تم الشكر بواسطة: جميل5 , asemshahen5 , ابراهيم ايبو
#4
أنا استخدمه في أكثر من مشروع بدون مشكلة،

قد تكون غيرت بالكود أو وضعته داخل كود آخر فتسبب في هذا التعليق.
الرد
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#5
مرات البرنامج يعمل و مرات يعلق وبكن عندما اختار نص اكثر من سطر لا يعلق فقط
ممكن تعمل مثال

(20-01-20, 10:37 PM)جميل5 كتب : أنا استخدمه في أكثر من مشروع بدون مشكلة،

قد تكون غيرت بالكود أو وضعته داخل كود آخر فتسبب في هذا التعليق.

وضعته هاكدا
إقتباس :Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        RichTextBoxSearch(TextBox1.Text)
    End Sub
الرد
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#6
اذا كان النص الاصلي كبير جدا قد يأخذ وقتا

لكن تاكد انك لم تكرر استدعاء البحث في مكان آخر

بالنسبة للسطر الأخير RichTextBox1.SelectionLength = 0 نسيت أن أحذفه

اذا استمرت المشكلة ضع المشروع
الرد
تم الشكر بواسطة: asemshahen5 , al9atl , ابراهيم ايبو
#7
(21-01-20, 12:07 AM)جميل5 كتب : اذا كان النص الاصلي كبير جدا قد يأخذ وقتا

لكن تاكد انك لم تكرر استدعاء البحث في مكان آخر

بالنسبة للسطر الأخير RichTextBox1.SelectionLength = 0 نسيت أن أحذفه

اذا استمرت المشكلة ضع المشروع

مرحبا اخي عرفت اين المشكلة الكود يعمل المشكلة في انص الدي عندي غير ملتصق مع بعضه
لكن هل يمكن حل مشكلة
لان انصوص التي عندي مثل هده
إقتباس :بِسۡمِ ٱللَّهِ ٱلرَّحۡمَٰنِ ٱلرَّحِيمِ ١
ٱلۡحَمۡدُ لِلَّهِ رَبِّ ٱلۡعَٰلَمِينَ ٢ 
ٱلرَّحۡمَٰنِ ٱلرَّحِيمِ ٣ مَٰلِكِ يَوۡمِ ٱلدِّينِ ٤ 
إِيَّاكَ نَعۡبُدُ وَإِيَّاكَ نَسۡتَعِينُ ٥ ٱهۡدِنَا 
ٱلصِّرَٰطَ ٱلۡمُسۡتَقِيمَ ٦ صِرَٰطَ ٱلَّذِينَ أَنۡعَمۡتَ 
عَلَيۡهِمۡ غَيۡرِ ٱلۡمَغۡضُوبِ عَلَيۡهِمۡ 
وَلَا ٱلضَّآلِّينَ


اريد تلوين مثلا هده 
إقتباس :صِرَٰطَ ٱلَّذِينَ أَنۡعَمۡتَ 
عَلَيۡهِمۡ غَيۡرِ ٱلۡمَغۡضُوبِ عَلَيۡهِمۡ 
وَلَا ٱلضَّآلِّينَ

بالبحث عليها بنص ملتصق مثل هدا  =>   صِرَٰطَ ٱلَّذِينَ أَنۡعَمۡتَ عَلَيۡهِمۡ غَيۡرِ ٱلۡمَغۡضُوبِ عَلَيۡهِمۡ وَلَا ٱلضَّآلِّينَ

هل يمكن التعرف عليها و تلوينها
الرد
تم الشكر بواسطة: جميل5 , asemshahen5 , ابراهيم ايبو
#8
الا يمكن او ارفق لكم مشروع حتى تفهمو قصدي جيدا اد لم اشرح جيدا !!
الرد
#9
السلام عليكم 
اسف على عدم متابعت سؤالي كثيرا بسبب نقص في الانترناث
انا ارفقت لكم مشروع و يبقى التعديل على الكود ليناسب برنامجي
ان شاء الله تجدون لي الحل

https://www.mediafire.com/file/aauh6dy8g8br764/90763/file

(21-01-20, 12:07 AM)جميل5 كتب : اذا كان النص الاصلي كبير جدا قد يأخذ وقتا

لكن تاكد انك لم تكرر استدعاء البحث في مكان آخر

بالنسبة للسطر الأخير RichTextBox1.SelectionLength = 0 نسيت أن أحذفه

اذا استمرت المشكلة ضع المشروع

تم ارفاق المشروع  لتعديل عليه بما يناسب مشروعي

https://www.mediafire.com/file/aauh6dy8g8br764/90763/file
الرد
تم الشكر بواسطة: جميل5 , ابراهيم ايبو
#10
حتى الوورد لا يتيح البحث بالطريقة التي ذكرتها

البحث يتم في الفقرات، كل على حدة.
اما أن يكون النص المراد البحث فيه متصلاً
أو ابحث عن كلمة واحدة.

بخصوص سؤالك الموجود في المشروع الخاص ب (للكتابة في الوسط)
ضع السطرين في الحدث Form1_Shown
الرد
تم الشكر بواسطة: al9atl , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] إستعلام يمكنني في البحث في سطور الخلية sniperjawadino 5 208 , 04:54 PM
آخر رد: sniperjawadino
Question [VB.NET] كيف يمكن برمجة زر البحث بأبسط الطرق ؟؟ Microformt 0 93 13-11-20, 04:16 PM
آخر رد: Microformt
Question [VB.NET] كيف يتم إدراج نتائج البحث في textbox ؟؟ Microformt 3 140 10-11-20, 07:14 PM
آخر رد: mmali127
  كيف يمكنني رفع برنامج فيجول بيسيك على موقع اسضافة mohamedgadain61 2 224 28-10-20, 08:19 PM
آخر رد: Anas Mahmoud
  البحث عن نص معين داخل صفحة ويب وعرضة Basil Abdallah 1 212 26-10-20, 11:11 AM
آخر رد: اليوم السابع
  كود البحث في الكرد فيو moh developer 1 192 15-10-20, 05:46 PM
آخر رد: abdou
Exclamation [سؤال] جملة البحث abarrak 4 249 14-10-20, 03:00 PM
آخر رد: abarrak
  أريد كود البحث بال combobox Hazem Kamel 3 341 13-10-20, 01:17 AM
آخر رد: Hazem Kamel
Exclamation [VB.NET] أفضل و أحسن كود يمكنني إستخدامه في الحسابات الفواتير sniperjawadino 15 1,081 27-09-20, 05:33 PM
آخر رد: sniperjawadino
  [كود] تصحيح او تعديل كود البحث في نص مشكل عبد الهادي بهاب 6 479 16-09-20, 03:54 PM
آخر رد: عبد الهادي بهاب

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


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