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

نسخة كاملة : حذف كل العناصر التي تاتي بعد عنصر الذي احدده listbox
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
  السلام عليكم


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

[صورة مرفقة: 86yKiG.png]

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

[صورة مرفقة: yfm1Fx.png]
                                            شكراً مقدماً
(10-11-23, 03:56 PM)mervandz كتب : [ -> ]  السلام عليكم


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

[صورة مرفقة: 86yKiG.png]

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

[صورة مرفقة: yfm1Fx.png]
                                            شكراً مقدماً

كود :
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
الف شكر لك  [b]Ashraf10 Heart [/b]
مشاركة لكم :
PHP كود :
For As Integer 0 To ListBox1.Items.Count 1
     Dim itm 
As String ListBox1.Items(i).ToString
     ListBox1
.Items(i) = IO.Path.GetFileNameWithoutExtension(itm)
 
Next