22-12-12, 10:43 PM
12-03-13, 02:18 PM
كود :
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)12-03-13, 03:07 PM
السلام عليكم
الفكرة هي أن نحول القائمة إلى نص كل سطر عبارة عن عنصر
استخدم هذين الإجرائين لعمل الحفظ والاسترجاع
كل ما عليك هو إرسال اللست بوكس ومسار الملف وهو سيقوم باللازم
كود الحفظ في ملف نصي
وهذا كود القراءة من ملف
المثال في المرفقات
الفكرة هي أن نحول القائمة إلى نص كل سطر عبارة عن عنصر
استخدم هذين الإجرائين لعمل الحفظ والاسترجاع
كل ما عليك هو إرسال اللست بوكس ومسار الملف وهو سيقوم باللازم
كود الحفظ في ملف نصي
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
المثال في المرفقات