codeorder
Posting Virtuoso
1,913 posts since Aug 2010
Reputation Points: 255
Solved Threads: 384
See if this helps.
Public Class Form1
Private myCoolFile As String = "C:\test.txt" '// your File to Save/Load from.
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
'//------ Save File ------------------------------------------\\
Dim myWriter As New IO.StreamWriter(myCoolFile)
For Each myItem As ListViewItem In ListView1.Items '// loop thru all items in ListView.
With myItem
'// write Item & "#" & SubItems... "#" is used for when loading each line and splitting it into arrays.
myWriter.WriteLine(myItem.Text & "#" & .SubItems(1).Text & "#" & .SubItems(2).Text & "#" _
& .SubItems(3).Text & "#" & .SubItems(4).Text & "#" & .SubItems(5).Text)
End With
Next
myWriter.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'// customize ListView.
ListView1.View = View.Details
With ListView1.Columns
'// .Add(column name, column width)
.Add("column 1", 75) : .Add("column 2", 75) : .Add("column 3", 75) : .Add("column 4", 75)
.Add("column 5", 75) : .Add("column 6", 75)
End With
'//------ Load File ------------------------------------------\\
If IO.File.Exists(myCoolFile) Then '// check if File exists.
Dim myCoolFileLines() As String = IO.File.ReadAllLines(myCoolFile) '// load your File as a string array.
For Each line As String In myCoolFileLines '// loop thru array list of File lines.
Dim lineArray() As String = line.Split("#") '// separate by "#" character.
Dim newItem As New ListViewItem(lineArray(0)) '// add text Item.
With newItem.SubItems
.Add(lineArray(1)) '// add SubItem 1.
.Add(lineArray(2)) '// add SubItem 2.
.Add(lineArray(3)) '// add SubItem 3.
.Add(lineArray(4)) '// add SubItem 4.
.Add(lineArray(5)) '// add SubItem 5.
End With
ListView1.Items.Add(newItem) '// add Item to ListView.
Next
End If
End Sub
'//------ add Items/SubItems to ListView (testing purposes only) ------------------------------------------\\
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Static i As Integer = 0
Dim newItem As New ListViewItem("item " & i) '// add text Item.
With newItem.SubItems
.Add("subitem 1 - " & i) '// add SubItem 1.
.Add("subitem 2 - " & i) '// add SubItem 2.
.Add("subitem 3 - " & i) '// add SubItem 3.
.Add("subitem 4 - " & i) '// add SubItem 4.
.Add("subitem 5 - " & i) '// add SubItem 5.
End With
ListView1.Items.Add(newItem) '// add Item to ListView.
i += 1
End Sub
End Class
codeorder
Posting Virtuoso
1,913 posts since Aug 2010
Reputation Points: 255
Solved Threads: 384