Запазване на елементите от изгледа на списъка - Други проблеми - VB-Paradise 2
Има 2 Отговори в тази тема. Последната публикация (17 май 2016 г., 12:59 ч.) Е от RodFromGermany.
moinmoin001
Здрасти,
От около 2 месеца имам проблема с това, че елементите и подточките на моя списък не се запазват правилно.
И знам, че има много публикации по тази тема, но това не е всичко, което искам. Бих искал да запиша елементите в текстов файл. Всяка рецепта на нов ред. В предишните си опити отделих отделната информация (име на рецепта, категория, калории, автор, описание) една от друга с двоеточие (":") и ги прочетох:
Изходен код на VB.NET
- Public Sub FillListFromFile ()
- Затъмнете srReader като StreamReader
- Дим бла като низ
- Затъмняване на елементи () като низ
- Dim X As Integer = 0
- Затъмнете OFD като нов OpenFileDialog
- Опитвам
- OFD.RestoreDirectory = Вярно
- Ако (OFD.ShowDialog () = DialogResult.OK) Тогава
- srReader = My.Computer.FileSystem.OpenTextFileReader (OFD.FileName)
- Направете, докато srReader.EndOfStream 'достигна края на файла
- bla = srReader.ReadLine 'Прочетете ред
- Отделни части = бла. Разделяне (":")
- „Разглобете на отделни части
- ListView1.Items.Add (Items (1)) 'RecipeName
- ListView1.Items (X) .SubItems.Add (Items (3)) 'Категория
- ListView1.Items (X) .SubItems.Add (Items (5)) 'Калории
- ListView1.Items (X) .SubItems.Add (Items (7)) 'Автор
- „Описание 9
- X = X + 1
- Примка
- srReader. Близо ()
- srReader.Dispose ()
- Край ако
- Catch ex Като изключение
- „MessageBox.Show (напр. Съобщение)
- Накрая
- ListView1.OwnerDraw = Невярно
- ListView1.View = Преглед.Подробности
- Край Опитайте
- Крайна под
Бих се радвал на много богати на информация отговори
пс. Прикачени ще намерите 2 снимки на моето приложение за Windows Form
Lg Jan
* Темата е отложена, защото това едва ли е VBA. *
4.79 kB, 833 × 438, 135 изгледа
5,55 kB, 580 × 471, 134 пъти гледани
Тази публикация вече е редактирана 1 път, последният път от "Marcus Gräfe" (14 май 2016 г., 20:16 ч.)