07-10-16, 06:44 PM
07-10-16, 07:56 PM
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)