| |
Сохранение/загрузка массива данных в ListBox |
|
| |
Данный пример позволяет вам сохранить
данные из элемента ListBox в файл на диске, а также
загрузить данные из файла в ListBox. Вам
понадобятся 2 элемента CommandButton.
Sub saveitems(lstin As ListBox)
Dim i As Integer
Open App.Path & "\" & lstin.Name & ".txt" For Output As #1
For i = 0 To lstin.ListCount - 1
Print #1, lstin.List(i)
Next i
Close #1
End SubSub LoadItems(lstin As ListBox)
Dim i As Integer
Dim str As String
If Len(Dir(App.Path & "\" & lstin.Name & ".txt")) Then
Open App.Path & "\" & lstin.Name & ".txt" For Input As #1
Do While Not EOF(1)
Line Input #1, str
List1.AddItem str
Loop
Close #1
End If
End Sub
Private Sub Command1_Click()
Call saveitems(List1)
List1.Clear
End Sub
Private Sub Command2_Click()
Call LoadItems(List1)
End Sub
Private Sub Form_Load()
List1.AddItem "http://aa4"
List1.AddItem "http://aa3"
List1.AddItem "http://bb2"
List1.AddItem "http://aa1"
List1.AddItem "http://aa2"
List1.AddItem "http://bb1"
End Sub
|
|
| |
|
|
|
|