Save & Restore a Listview's control's content from a sequential file

Category:

Forms and Controls

Type:

Snippets

Difficulty:

Beginning

Author:

Looi Tuck Wai

Version Compatibility: Visual Basic 6

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

'Author   : Looi Tuck Wai
'Control  : 3 Command Button(cmdAdd,cmdSave,cmdLoad),2 Textbox
'(Text1,Text2),1 listview(lv)

Dim a() As String
Dim b() As String
Dim i As Integer

Private Sub CmdAdd_Click()
Dim itm As ListItem
      Set itm = lv.ListItems.Add(, , Text1.Text)
      itm.SubItems(1) = Text2.Text
End Sub

Private Sub CmdSave_Click()
    ItemCount = Form1.lv.ListItems.Count  
    For i = 1 To ItemCount
        Redim Preserve a(i) as string
        Redim Preserve b(i) as string
        a(i) = Form1.lv.ListItems(i).Text
        b(i) = Form1.lv.ListItems(i).SubItems(1)
        Next i
        
    Open "c:\test.lis" For Output As #1
    For i = 1 To ItemCount
        Write #1, a(i), b(i)
        Next i
        Close #1       
End Sub

Private Sub CmdLoad_Click()
Dim itm As ListItem
Dim a, b As String
    Open "c:\test.lis" For Input As #1
    Do Until EOF(1)
    Input #1, a, b
              Set itm = lv.ListItems.Add(, , a)
              itm.SubItems(1) = b
    Loop
    Close #1
End Sub

Private Sub Form_Load()
lv.View = lvwReport
lv.ColumnHeaders.Add , , "Name"
lv.ColumnHeaders.Add , , "Age"
End Sub

'*Note that "c:\test.lis" is a sample,
'you can change it to fit on your system