منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] حذف الاسطر listbox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] حذف الاسطر listbox (/showthread.php?tid=34320)

حذف الاسطر listbox - mervandzz - 14-04-20

                            السلام عليكم ورحمة الله وبركاته


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

اكون شاكر لكم بافادتي

RE: حذف الاسطر listbox - ابراهيم ايبو - 14-04-20

السلام عليكم ورحمة الله وبركاته
اخي انشئ فورم وضع فيه 
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


RE: حذف الاسطر listbox - mervandzz - 14-04-20

مشكور اخي بس انا عايز احذف الاسطر التي لا تحتوي على العنصر الي في textbox وليس العكس

RE: حذف الاسطر listbox - ابراهيم ايبو - 14-04-20

السلام عليكم اخي الكريم
غير هذا السطر من الكود الاول
 من
كود :
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


RE: حذف الاسطر listbox - mervandzz - 15-04-20

مشكور اخي وجزاك الله خير

RE: حذف الاسطر listbox - ابراهيم ايبو - 15-04-20

الحمد لله والشكر لله 
ولك اخي ميرفان