• Home
 · 
• OLE/COM/DCOM/Active-X
 · 
• Save And Load a listview in report view from a sequantial file

Save And Load a listview in report view from a sequantial file

Save And Load a listview in report view from a sequantial file

Rate Save And Load a listview in report view from a sequantial file

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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

Code     :
Dim a(100) As String
Dim b(100) 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()
    For i = 1 To Form1.lv.ListItems.Count
        a(i) = Form1.lv.ListItems(i).Text
        b(i) = Form1.lv.ListItems(i).SubItems(1)
        Next i
        ItemCount = Form1.lv.ListItems.Count
    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