منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

(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