+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] اريد كود حفظ listbox.item (/showthread.php?tid=17580)
اريد كود حفظ listbox.item - sharo.azad - 07-10-16
سلام عليكم
اريد كود AutSave لي فايل text بدون FileDialog
عندي loop اريد يحفظ line كل مرة يعمل loop
RE: اريد كود حفظ listbox.item - silverlight - 07-10-16
PHP كود :
Private Function GetItems(lb As ListBox) As String()
Dim list As List(Of String) = New List(Of String)()
For Each item As Object In lb.Items
Dim txt As String = item.ToString()
list.Add(txt)
Next
Return list.ToArray()
End Function
PHP كود :
Private Sub WriteValues(values As IEnumerable(Of String), fileName As String)
Dim action As Action(Of System.IO.BinaryWriter, IEnumerable(Of String)) = (Sub(writer As System.IO.BinaryWriter, s As IEnumerable(Of String))
Using writer
For Each value As String In s
writer.Write(value)
writer.Write(Environment.NewLine)
Next
End Using
End Sub)
action(New System.IO.BinaryWriter(System.IO.File.Open(fileName, System.IO.FileMode.Create)), values)
End Sub
أضف الكود اعلاه الي الفورم ثم استخدم الكود بالشكل التالي
PHP كود :
Dim filePathAndName As String = ".\ListBox1.bin"
WriteValues(GetItems(ListBox1), filePathAndName)