تقييم الموضوع :
  • 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
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







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







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



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


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