[ابو روضة]

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

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

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

كود :

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"

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

[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

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

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

[ابو روضة]

(05-02-20, 12:40 AM)SnTnt كتب :

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

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

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

كود :

 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

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

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

الله يكرم أصلك الطيب أخى الكريم ويبارك بعمرك..

المشكلة أننى إهتممت أكثر بالتعامل مع الويب لآتعلم ما يخصنى وتركت الباقى وهذا خطأ كبير طبعا

ولآجل هذا دائما أقول لمن يريد الإلمام باللغة أن لا يهتم بجزء ويترك الباقى كما فعلت أنا ولآجل 

هذا بقع فى أشياء بسيطة ولكنى فعلت هذا لظروف شديدة لا يعلمها الا الله...

يعنى لستُ قائد كما تتخيلنى 

جارى التجربة أخى.

[SnTnt]

(05-02-20, 01:48 AM)ابو روضة كتب :

(05-02-20, 12:40 AM)SnTnt كتب :

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

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

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

كود :

 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

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

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

الله يكرم أصلك الطيب أخى الكريم ويبارك بعمرك..

المشكلة أننى إهتممت أكثر بالتعامل مع الويب لآتعلم ما يخصنى وتركت الباقى وهذا خطأ كبير طبعا

ولآجل هذا دائما أقول لمن يريد الإلمام باللغة أن لا يهتم بجزء ويترك الباقى كما فعلت أنا ولآجل 

هذا بقع فى أشياء بسيطة ولكنى فعلت هذا لظروف شديدة لا يعلمها الا الله...

يعنى لستُ قائد كما تتخيلنى 

جارى التجربة أخى.

حسنا , انا متحمس اي مشكلة اخبرني بها

[ابو روضة]

إقتباس :

حسنا , انا متحمس اي مشكلة اخبرني بها 

تسلم أخى نفع الكود واشتغل تمام بارك الله فيك..