Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Pirate -

Visual Basic .NET - Элементы управления Windows

Все примеры / Интерфейс / Элементы управления Windows

Сохранение/загрузка ListBox в/из файл(а)

Автор: Pirate | добавлено: 06.03.2010, 16:57 | просмотров: 7066 (1+) | комментариев: 0 | рейтинг: *x10
Простой пример показывает, как можно сохранить данные из ListBox в файла, а затем загрузить их обратно из файла в ListBox.

Код

'*******************************************************************
'Сохранение/загрузка ListBox в/из файл(а)
'-------------------------------------------------------------------
'Разместите на форме 2 ListBox и 2 Button
'-------------------------------------------------------------------
'http://vbnet.su - Visual Basic .NET. Статьи. Примеры. Форум.
'*******************************************************************
 
Dim w As IO.StreamWriter
Dim r As IO.StreamReader
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Dim itms() As String = {"item1", "item2", "item3"}
  ListBox1.Items.AddRange(itms)
End Sub
 
'сохранить список в файл
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim i As Integer
  w = New IO.StreamWriter("c:\test.txt")
  For i = 0 To ListBox1.Items.Count - 1
    w.WriteLine(ListBox1.Items.Item(i))
  Next
  w.Close()
End Sub
 
'загрузить список из файла
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  r = New IO.StreamReader("c:\test.txt")
  While (r.Peek() > -1)
    ListBox2.Items.Add(r.ReadLine)
  End While
  r.Close()
End Sub
Об авторе

Pirate

Нет информации об авторе...
Pirate
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Люди на Kbyte.Ru
Реклама
Счетчики