• Home
 · 
• Custom Controls/Forms/Menus
 · 
• This code will will allow to save the data of a list in a file and open that file for furthur use.T

This code will will allow to save the data of a list in a file and open that file for furthur use.T

This code will will allow to save the data of a list in a file and open that file for furthur use.This helps in adding data in the list every

Rate This code will will allow to save the data of a list in a file and open that file for furthur use.T

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim i As String
i = InputBox("enter string")
List1.AddItem i
End Sub

Private Sub Command2_Click()    'open existing list
OpenList List1
End Sub

Private Sub Command3_Click()    'save current list items in a file
  SaveList List1
End Sub

Private Sub SaveList(lst As ListBox)
Dim a As Integer
Dim ff As Integer
Dim Header As String
Dim LCount As Long
Dim numbyte As Byte
ff = FreeFile
Open "C:\list.lst" For Binary As #1
Header = "SavedList"
Put ff, 1, Header
LCount = lst.ListCount
Put ff, , LCount
For a = 0 To lst.ListCount - 1
    numbyte = Len(lst.List(a))
    Put ff, , numbyte
    Put ff, , lst.List(a)
Next a
Close ff
End Sub

Private Sub OpenList(lst As ListBox)
Dim a As Integer
Dim ff As Integer
Dim LCount As Long
Dim data As String
Dim numbyte As Byte

ff = FreeFile

Open "C:\list.lst" For Binary As #1
    data = "SavedList"
    Get ff, 1, data
    Get ff, , LCount
    If data = "SavedList" Then
        For a = 0 To LCount - 1
            Get ff, , numbyte
            data = String(numbyte, " ")
            Get ff, , data
            lst.AddItem (data)
        Next a
    Else
        MsgBox "Error loading list: Bad file"
    End If
Close ff
End Sub