Главная страницаОбратная связьКарта сайта

Сохранение/загрузка массива данных в 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 Sub

Sub 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


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Сохранение/загрузка массива данных в ListBox", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2017 Дискета.info