[alshandodi]

السلام عليكم ورحمة الله وبركاته
لدي مشكله فبعض الأحيان عند استدعاء الملف النصي في Listbox أجد هناك بعض الفراغات فهل يمكن حذف جميع العناصر الفارغه وهذا مثال اتمنى ان يكون كل شي واضح 
ولكم جزيل الشكر والتقدير

[ابراهيم ايبو]

السلام عليكم اخي الكريم
تفضل الكود وقمت بشرحه حتى تستفيد من الطريقة

كود :

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 Sub

دمت بخير

[alshandodi]

شكرا جزيلا أخي وبارك الله فيك فقد نجح الكود
دمت بود
وكفاكم الله شر الأمراض والاسقام

[ابراهيم ايبو]

الحمد لله والشكر لله

ولك اخي الكريم ووقاكم وايانا من كل شر