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)