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

عندي بالفورم ليست بوكس تستقبل بيانات من خلال ملف تكست البيانات علي هذا الشكل
1
2
3
4
5
من خلال هذا الكود

كود :

Dim Lines() As String = My.Computer.FileSystem.ReadAllText("Datconfig\hoo.json").Split(vbCrLf)

        ListBox2.Items.AddRange(Lines)

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

(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)
انا اريد عند عمل سليكت علي كل سطر في الليست بوكس يتم حذفه من ملف التكست
كل الشكر الي الاخ عبودي في دعمه لي فهم كل كبيره وصغيره بخصوص الليست بوكس

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

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

كود :

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)

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

اليوم السابع

اليوم السابع

3booody