+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : الفراغ عند استدعاء ملف نصي Xml in Listbox (/showthread.php?tid=34032)
الفراغ عند استدعاء ملف نصي Xml in Listbox - alshandodi - 29-03-20
السلام عليكم ورحمة الله وبركاته
لدي مشكله فبعض الأحيان عند استدعاء الملف النصي في Listbox أجد هناك بعض الفراغات فهل يمكن حذف جميع العناصر الفارغه وهذا مثال اتمنى ان يكون كل شي واضح
ولكم جزيل الشكر والتقدير
RE: الفراغ عند استدعاء ملف نصي Xml in Listbox - ابراهيم ايبو - 29-03-20
السلام عليكم اخي الكريم
تفضل الكود وقمت بشرحه حتى تستفيد من الطريقة
كود :
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.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 strItems(i).Trim() <> "" Then
ListBox1.Items.Add(strItems(i))
End If
Next
End If
End SubRE: الفراغ عند استدعاء ملف نصي Xml in Listbox - alshandodi - 29-03-20
شكرا جزيلا أخي وبارك الله فيك فقد نجح الكود
دمت بود
وكفاكم الله شر الأمراض والاسقام
RE: الفراغ عند استدعاء ملف نصي Xml in Listbox - ابراهيم ايبو - 29-03-20
الحمد لله والشكر لله
ولك اخي الكريم ووقاكم وايانا من كل شر