منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
الليست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : الليست بوكس (/showthread.php?tid=32410)

الليست بوكس - اليوم السابع - 07-12-19

عندي بالفورم ليست بوكس تستقبل بيانات من خلال ملف تكست البيانات علي هذا الشكل 
1
2
3
4
5
من خلال هذا الكود 
كود :
Dim Lines() As String = My.Computer.FileSystem.ReadAllText("Datconfig\hoo.json").Split(vbCrLf)
       ListBox2.Items.AddRange(Lines)
انا اريد عند عمل سليكت علي كل سطر في الليست بوكس يتم حذفه من ملف التكست
كل الشكر الي الاخ عبودي في دعمه لي فهم كل كبيره وصغيره بخصوص الليست بوكس

RE: الليست بوكس - اليوم السابع - 08-12-19

(07-12-19, 05:37 PM)اليوم السابع كتب : عندي بالفورم ليست بوكس تستقبل بيانات من خلال ملف تكست البيانات علي هذا الشكل 
1
2
3
4
5
من خلال هذا الكود 
كود :
Dim Lines() As String = My.Computer.FileSystem.ReadAllText("Datconfig\hoo.json").Split(vbCrLf)
       ListBox2.Items.AddRange(Lines)
انا اريد عند عمل سليكت علي كل سطر في الليست بوكس يتم حذفه من ملف التكست
كل الشكر الي الاخ عبودي في دعمه لي فهم كل كبيره وصغيره بخصوص الليست بوكس

.

RE: الليست بوكس - 3booody - 08-12-19

عفوآ اخي الشكر لله , هذا واجبنا

بالنسبة لسؤالك يفضل ان تعمل حفظ لليست نفسه بوقت معين انته تختاره بما ان الملف نصي وانته تضيفه لليست بهذا الشكل


كود :
ListBox1.Items.AddRange(IO.File.ReadAllText("المسار.txt").Split(vbNewLine).ToArray)

وبهذا الكود عند الضغط المزدوج على الليست بوكس يتم حذف المحدد


كود :
Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
       If ListBox1.SelectedIndex > 0 Then
           ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
       End If
   End Sub


اذا ماعندنا مشكلة غير حذف السطر للملف النصي هالشي ممكن انته تختصر الاكواد وفقط تحفظ ماموجود بالليست بوكس عن طريق الكود


كود :
Dim str As String = ""
       For Each txt As String In ListBox1.Items
           str &= txt & vbNewLine
       Next
       IO.File.WriteAllText("المسار.txt", str.Trim)