Правила Форума редакция от 22.06.2020 |
|
|
|
|
|
Опции темы | Опции просмотра | Language |
14.05.2009, 13:28 | #1 |
ListBox и VB.net
Подскажите как сохранить и загрузить содержимое listbox в файл?
|
|
Реклама: | Рекомендуем гипермаркет KNS - PowerCom Raptor RPT-1500AP-LCD - билеты на футбол в подарок каждому покупателю | стоматит виды у детей | туалетный столик с зеркалом и подсветкой купить | Рекомендуем KNS - мфу Brother - более 50-ти тысяч наименований товаров со склада в Москве | теплоход золотое кольцо навигация 2024 расписание и цены из москвы |
22.05.2009, 21:30 | #2 |
Re: ListBox и VB.net
Можно просто в текстовый файл с разделителем. В XML чуть посложнее... но только чуть)
Код:
Imports System.IO Public Class Form1 Private Const DATA_SEPARATOR As Char = ";"c '>>> Сохраняем список Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Dim sData As String = String.Empty Using stream As New FileStream(Application.StartupPath & "\listbox.data", FileMode.OpenOrCreate) Using writer As New StreamWriter(stream) For Each Item As Object In lstData.Items sData &= TryCast(Item, String) & DATA_SEPARATOR Next sData = Mid(sData, 1, Len(sData) - 1) writer.Write(sData) End Using End Using End Sub '>>> Загружаем список Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim sData As String = String.Empty Using stream As New FileStream(Application.StartupPath & "\listbox.data", FileMode.OpenOrCreate) Using reader As New StreamReader(stream) sData = reader.ReadToEnd End Using End Using If sData = String.Empty Then Return Dim ListItems As String() = sData.Split(DATA_SEPARATOR) For i As Short = 0 To ListItems.Length - 1 lstData.Items.Add(ListItems(i)) Next End Sub '>>> Добавляем новый Item Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click Dim s As String = InputBox("Enter here new list box item text:", "Add New Item", "New Item " & String.Format(CStr(lstData.Items.Count + 1), "00")) If s = String.Empty Then Return lstData.Items.Add(s) End Sub End Class
__________________
Ask me no questions and I'll tell you no lies! Последний раз редактировалось Vagrod; 22.05.2009 в 21:59.. |
|
Эти 2 пользователя(ей) сказали cпасибо за это полезное сообщение: |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ListBox в Visual Studio 2008 | clawn | Visual C++ / С/C++ | 7 | 14.12.2008 20:59 |
Как добавлять записи в ListBox в Visual J#.Net | Yuru | .NET | 4 | 06.04.2008 19:17 |
Добавление Form1 распечатывание в ListBox на Visual J#. | Yuru | Java Script | 0 | 31.03.2008 14:11 |
ListBox DC | 111 | .NET | 1 | 15.08.2007 14:00 |
|
|