[Ashraf10]

(10-11-23, 03:56 PM)mervandz كتب :   السلام عليكم


اريد من الاخوة حذف كل العناصر التي تاتي بعد عنصر الذي احدده في listbox
مثلا حذف بعد كل نقطة في هذه الاسطر



لتتحول النتيحة هكذا كما فى الصورة المرفقة


                                            شكراً مقدماً

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   For i = 0 To Me.ListBox1.Items.Count - 1
       Dim t = ListBox1.Items(i).ToString
       ListBox1.Items(i) = t.Substring(0, t.IndexOf("."))
   Next
End Sub