[SnTnt]

(04-02-20, 11:35 PM)ابو روضة كتب :

السلام عليكم ورحمة الله وبركاته.

أخوتى بعد اذنكم لدى كود يقوم  بفتح ملفات فيديو  داخل الليست بوكس ويأخذ مسار الملفات 

من داخل ملف نصى هكذا

كود :

Dim r As New IO.StreamReader("C:\Windows\playlest\sami.txt", True)
       While (r.Peek() > -1)
           ListBox1.Items.Add(r.ReadLine)
       End While
       r.Close()

ولدى كود أخر يقوم بحذف العنصر المحدد من الليست بوكس هكذا

كود :

ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)

فأنا أريد أن يقوم بحذف العنصر الذى حددته فى الليست بوكس وأيضاً من التكست بوكس الموجود به المسار.

يعنى أريده حينما  يحذف السطر من الليست بوكس يقوم بحذف السطر الموجود داخل الملف النصى اللى بهذا المسار

"C:\Windows\playlest\sami.txt"

وجزاكم الله كل الخير

مرحبا يا ايها القائد 

تفضل لقد قمت بالتعديل على الكود واصبح مثل ما اردت 

ضع هاذا الكود في زر الحذف يا ايها القائد 

كود :

 Try
           Dim vb4arb As String = "C:\Windows\playlest\sami.txt"
           Dim Line As Integer = ListBox1.SelectedIndex + 1
           Dim lines As List(Of String) = System.IO.File.ReadAllLines(vb4arb).ToList
           lines.RemoveAt(Line - 1)
           System.IO.File.WriteAllLines(vb4arb, lines)
           ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
       Catch ex As Exception
           MsgBox("هل حددت الخيار الذي تريد حذفه ؟")
       End Try

واضفت بعض الاشياء

شكرا لمساعدتك لنا ونحن سنقوم بالمعروف دائما