منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[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=3424)

كيف حذف سطر فى listbox - ابراهيم مراد - 09-07-14

السلام عليكم كيف حذف سطر يعصر ع نص محدد ع سبيل المثال
اريده ان يحذف اى ايتم يكون فى النص هذا nologin
Host :11.22.33.44 UserName : ahmed Password : nologin
Host :11.22.33.44 UserName : ahmed Password : login
Host :11.22.33.44 UserName : ahmed Password : run
Host :11.22.33.44 UserName : ahmed Password : nologin
واتمنى منك يكون يدوى مش for i طبعا هاتقولى ليه يدوى لان هو بياخد السيلكت ايتم من ليست بوكس تانى فيها for i
وفى كل مره بيعدى ع اليست بوكس فطبيعى انه هينفذ الامر فى كل اضافة لين

RE: كيف حذف سطر فى listbox - vbnet - 09-07-14

.....

إذا كانت الكلمة الدليلية في نهاية السطر استخدم EndsWith وإذا كان مكانها غير معروف استخدم Contains
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    For i = Me.ListBox1.Items.Count - 1 To 0 Step -1
        If Me.ListBox1.Items(i).ToString.EndsWith("nologin") Then
            Me.ListBox1.Items.RemoveAt(i)
        End If
    Next
End Sub

تم استخدام المرور من الاسفل للأعلى للسبب التالي:
عند المرور من الأعلى للأسفل (كما العادة) وعند حذف سطر سينقص العدد الاجمالي للأسطر عن العدد المقروء في بداية حلقة For مما يحدث خطأ عند وصول عداد For لرقم أكبر من العدد الإجمالي الحالي والذي أصبح أقل بسبب حذف أسطر، وقد يستعمل البعض Try بدلاً من هذه الطريقة وهي تأدي الغرض أيضاً

.....