تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الفراغ عند استدعاء ملف نصي Xml in Listbox
#1
السلام عليكم ورحمة الله وبركاته
لدي مشكله فبعض الأحيان عند استدعاء الملف النصي في Listbox أجد هناك بعض الفراغات فهل يمكن حذف جميع العناصر الفارغه وهذا مثال اتمنى ان يكون كل شي واضح 
ولكم جزيل الشكر والتقدير


الملفات المرفقة
.rar   الليست بوكس.rar (الحجم : 65.59 ك ب / التحميلات : 10)
الرد
تم الشكر بواسطة:
#2
السلام عليكم اخي الكريم
تفضل الكود وقمت بشرحه حتى تستفيد من الطريقة
كود :
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
دمت بخير
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: larbihamri , alshandodi , ابو روضة , سعود , asemshahen5
#3
شكرا جزيلا أخي وبارك الله فيك فقد نجح الكود
دمت بود
وكفاكم الله شر الأمراض والاسقام
الرد
تم الشكر بواسطة: ابراهيم ايبو , سعود , asemshahen5
#4
الحمد لله والشكر لله
ولك اخي الكريم ووقاكم وايانا من كل شر
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: alshandodi , سعود , asemshahen5



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


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