Зачувајте ги ставките за преглед на списокот - Други проблеми - VB-Paradise 2

Ете го 2 Одговори во оваа тема. Последната објава (17.05.2016, 12:59 часот) е од RodFromGermany.

списокот

moinmoin001

Здраво,
Околу 2 месеци имав проблем што ставовите и подтемелите во мојот список не се зачувани правилно.
И знам дека има тони објави на оваа тема, но тоа не е сè што сакам. Би сакал да ги зачувам предметите во текстуална датотека. Секој рецепт на нова линија. Во моите претходни обиди, јас ги одделив индивидуалните информации (име на рецепт, категорија, калории, автор, опис) едни од други со дебело црево (":") и ги прочитав:

Изворен код на VB.NET

  1. Јавен подполнет список од датотека ()
  2. Затемнето srReader Како StreamReader
  3. Затемнето бла како жица
  4. Затемни предмети () Како низа
  5. Dim X како цел број = 0
  6. Затемнето OFD како нов дијалог со отворен отворен фајл
  7. Обидете се
  8. OFD.RestoreDirectory = Точно
  9. Ако (OFD.ShowDialog () = DialogResult.OK) Тогаш
  10. srReader = My.Computer.FileSystem.OpenTextFileReader (OFD.FileName)
  11. Дали додека srReader.EndOfStream не стигна до крајот на датотеката
  12. bla = srReader.ReadLine 'Прочитај линија
  13. Индивидуални делови = бла. Подели (":")
  14. 'Расклопете на одделни делови
  15. ListView1.Items.Add (Предмети (1)) 'Име на рецепт
  16. ListView1.Items (X) .SubItems.Add (Items (3)) “Категорија
  17. ListView1.Items (X) .SubItems.Add (Items (5)) „Калории
  18. ListView1.Items (X) .SubItems.Add (Items (7)) “Автор
  19. „Опис 9
  20. X = X + 1
  21. Јамка
  22. srReader. Затвори ()
  23. srReader.Dispose ()
  24. Крај ако
  25. Фатете екс По исклучок
  26. 'MessageBox. Покажи (пр. Порака)
  27. Конечно
  28. ListView1.OwnerDraw = Неточно
  29. ListView1.View = Преглед.Детали
  30. Крајот Обиди се
  31. Крај на под

Би ценел многу одговори богати со информации
п.с. Во прилог ќе најдете 2 слики од мојата апликација за Виндоус Форм
Gен Јан

* Темата е одложена затоа што ова е тешко VBA. *

4,79 kB, 833 × 438, 135 прегледи

5,55 kB, 580 471, прегледани 134 пати

Овој пост е веќе уредуван 1 пат, последен пат од „Маркус Грифе“ (14.05.2016, 20:16 часот)