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


اريد من اخوتي الكرام كود لحذف الاسطر التي لا تحتوي على كلمات معينة في listbox

اكون شاكر لكم بافادتي
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
اخي انشئ فورم وضع فيه 
ListBox -Button- TextBox
وفي حدث كليك البوتون اختر احد الكودين التاليين :
اكتب في مربع النص الكلمة التي تريد ان يتم حذف العنصر الذي يحتويها
الكود الاول:
كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       If ListBox1.Items.Count > 0 Then
           For i As Integer = 0 To ListBox1.Items.Count - 1
               If ListBox1.Items(i).Contains(TextBox1.Text) Then
                   ListBox1.Items.Remove(ListBox1.Items(i))
               End If
           Next
       End If
   End Sub
الكود الثاني طريقة اخرى 
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       If ListBox1.Items.Count > 0 Then
           Dim strItems(ListBox1.Items.Count - 1) As String ' انشاء مصفوفة من عناصر الليست بوكس
           ListBox1.Items.CopyTo(strItems, 0) '  نسخ عناصر الليست الى المصفوفة
           ListBox1.Items.Clear() ' افراغ الليس بوكس
           ' التحقق من كل عنصر في المصفوفة اذا كان لايحتوي على ماهو موجود في التكست بوكس سيتم اضافته الى الليست بوكس
           For i As Integer = 0 To strItems.Length - 1
               If Not strItems(i).Trim().Contains(TextBox1.Text) Then
                   ListBox1.Items.Add(strItems(i))
               End If
           Next
       End If
   End Sub
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
#3
مشكور اخي بس انا عايز احذف الاسطر التي لا تحتوي على العنصر الي في textbox وليس العكس
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , ابو روضة
#4
السلام عليكم اخي الكريم
غير هذا السطر من الكود الاول
 من
كود :
If ListBox1.Items(i).Contains(TextBox1.Text) Then

الى 
كود :
If Not ListBox1.Items(i).Contains(TextBox1.Text) Then

وفي الكود الثاني
 من
كود :
If Not strItems(i).Trim().Contains(TextBox1.Text) Then

 الى 
كود :
If strItems(i).Trim().Contains(TextBox1.Text) Then
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
#5
مشكور اخي وجزاك الله خير
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , ابو روضة , ابو روضة
#6
الحمد لله والشكر لله 
ولك اخي ميرفان
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: ابو روضة , ابو روضة


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أستفسار عن قراءة الاسطر altoki939 6 114 27-03-24, 10:07 AM
آخر رد: altoki939
  حذف الاسطر الفارغه من الداتا جريد فيو اليوم السابع 3 2,358 03-03-24, 12:57 AM
آخر رد: مصمم هاوي
  [VB.NET] listbox تلوين عدد من هذه الأسماء mervandz 3 420 18-11-23, 01:35 AM
آخر رد: sniper2030
Information [VB.NET] حذف كل العناصر التي تاتي بعد عنصر الذي احدده listbox mervandz 3 288 10-11-23, 07:12 PM
آخر رد: justforit
  هل الداتا قراد فيو تسمح بتعدد الاسطر داخل الخلية عند جلب بيانات نصية طويله من قاعدة ب khalidalwdi 3 461 10-11-23, 11:08 AM
آخر رد: khalidalwdi
  هل ممكن اجعل عناصر ال LISTBOX بشكل افقي ismaeel 0 380 01-05-23, 11:26 PM
آخر رد: ismaeel
  كيفية الربط بين textbox و listbox timgad 2 3,648 27-03-23, 01:59 PM
آخر رد: sanyor77
  [C#.NET] تعديل سجل في listbox ali_ahmed12 2 478 13-11-22, 04:00 PM
آخر رد: ali_ahmed12
  [VB.NET] تعديل على القيمة المختارة في ListBox محمد العامر 18 5,228 25-09-22, 10:35 AM
آخر رد: رضوان الجماعي
  استعادة من listbox Lathe1 1 503 18-08-22, 03:57 PM
آخر رد: أبو خالد الشكري

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


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