السلام عليكم ورحمة الله وبركاته
لدي مشكله فبعض الأحيان عند استدعاء الملف النصي في 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
دمت بخير
شكرا جزيلا أخي وبارك الله فيك فقد نجح الكود
دمت بود
وكفاكم الله شر الأمراض والاسقام
الحمد لله والشكر لله
ولك اخي الكريم ووقاكم وايانا من كل شر