Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Стандартные элементы >>> ListBox  
     
  Сохранение/загрузка массива данных   в 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

 
     
  VBNet online (всего: 51586)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам