[اليوم السابع]

محتاج كود اضعه في  لحذف الاسطر الفارغه في الليست بوكس

[egypt 2020]

(15-01-20, 04:20 PM)اليوم السابع كتب : محتاج كود اضعه في  لحذف الاسطر الفارغه في الليست بوكس

كود :

For i = ListBox1.Items.Count - 1 To 0 Step -1
   If String.IsNullOrEmpty(CStr(ListBox1.Items(i))) Then
       ListBox1.Items.RemoveAt(i)
   End If
Next

[اليوم السابع]

(16-01-20, 01:58 AM)egypt 2020 كتب :

(15-01-20, 04:20 PM)اليوم السابع كتب : محتاج كود اضعه في  لحذف الاسطر الفارغه في الليست بوكس

كود :

For i = ListBox1.Items.Count - 1 To 0 Step -1
   If String.IsNullOrEmpty(CStr(ListBox1.Items(i))) Then
       ListBox1.Items.RemoveAt(i)
   End If
Next

شكرا لك ياغالي