'Данный пример позволяет вам сохранить данные из элемента 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", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!