[هيما 2013]

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

[just.coder]

كود :

On Error Resume Next
        Dim s As String
        For i As Integer = 0 To ListBox1.Items.Count - 1
            s += vbCrLf & ListBox1.Items.Item(i)
        Next
        FileOpen(1, "D:\Da3.txt", OpenMode.Output)
        Print(1, s)
        FileClose(1)

[أبو يعقوب]

السلام عليكم

الفكرة هي أن نحول القائمة إلى نص كل سطر عبارة عن عنصر


استخدم هذين الإجرائين لعمل الحفظ والاسترجاع

كل ما عليك هو إرسال اللست بوكس ومسار الملف وهو سيقوم باللازم

كود الحفظ في ملف نصي

PHP كود :

Sub SaveToFile(ByVal lst As ListBox, ByVal path As String)
        If lst.Items.Count = 0 Then
            Exit Sub
        End If
        Dim TextItems As String = lst.Items(0).ToString
        For n = 1 To lst.Items.Count - 1
            Dim i = lst.Items(n)
            TextItems = TextItems & vbNewLine & i.ToString
        Next
        My.Computer.FileSystem.WriteAllText(path, TextItems, False)
    End Sub 


وهذا كود القراءة من ملف

PHP كود :

Sub LoadFromFile(ByVal lst As ListBox, ByVal path As String)
        lst.Items.Clear()
        Dim TextItems As String = My.Computer.FileSystem.ReadAllText(path)
        Dim items As String() = TextItems.Split(vbNewLine)
        lst.Items.AddRange(items)
    End Sub 


المثال في المرفقات