ListView сохранить копонент.

[Artin39]

HI
Подскажите как сохранить компонент ListView?
Чтобы после запуска программы и загрузки компонента он восстанваливался полностью.
ЗЫ
Если не трудно приведите пример, пишу первую программу до этого писал на дельфи.
Пишу на Microsoft Visual Basic 2008, экспресс-выпуск.

[Viper]

Сколько угодно средств: ini-файл, реестр, XML и т.д., и т. п.. И, что характерно, все это есть на форуме, остается воспользовавшись поиском все это найти.

[Artin39]

Сколько угодно средств: ini-файл, реестр, XML и т.д., и т. п.. И, что характерно, все это есть на форуме, остается воспользовавшись поиском все это найти.

Подскажите как засунуть в ini фаил целый компонент? Выгружать Items как текст и загружать его обратно не вариант
Или может лучше использовать XML?

PS
Обращаю ваше внимание что необходиом сохранить компонент целиком, тоесть со всеми свойствами.
В делфи это делаеться достаточно простр

Код: Выделить всё

F := TFileStream.Create('Path file', fmOpenRead or fmShareDenyWrite);
F.ReadComponent(компонент);

[Viper]

"Сохранить компонент целиком" - ересь! Либо тебе все же надо сохранит состояние компонента, либо ты что-то не так формулируешь.

[Artin39]

Если вы это называете

сохранит состояние компонента

пусть будет так!

Попробую описать более подробно
На форме есть компонент ListView, у него множество свойств такие как элементы(items), цвет(Любых элементов компонента), группы, колони,размер колонок , выбранные элементы, вид и тд (надеюсь понятно о чём я говорю ). Я хочу сохранить в фаил все эти свойства, те как вы сказали "сотояние компонета" (R). Хочеться чтобы после повторного запуска моего ПО, ListView выглядел точно также как до закрытия.
ЗЫ
Я написал что делал это сам, только на другом языке ,привёл пример кода, а вы ересь!

[Хакер]

Не стоит путать дельфийские компоненты с COM-компонентами VB.

[iGrok]

Я написал что делал это сам, только на другом языке ,привёл пример кода, а вы ересь!

Ты не "делал это сам на другом языке". Просто этот самый другой язык предоставляет такую возможность как часть стандартного функционала. Этим стандартным функционалом ты и воспользовался. А VB такого стандартного функционала не предоставляет.
Если ты хочешь сделать это на VB - пиши нужные тебе свойства в файл при закрытии, а при открытии читай из файла и устанавливай. Ничего сложного в общем-то..

А ересь - называть это "сохранить компонент целиком". Компонент - он и есть компонент. ListView. И ListView с итемами остаётся всё тем же ListView.
А наличие или отсутствие итемов, их цвет, размер, форма, роста, вес и политическая ориентация - это состояние компонента. Его тебе и надо сохранять.

[Artin39]

Если ты хочешь сделать это на VB - пиши нужные тебе свойства в файл при закрытии, а при открытии читай из файла и устанавливай. Ничего сложного в общем-то..

Можешь пример написать? Буду признателен

[iGrok]

Можешь пример написать? Буду признателен

Ну какой пример-то? Я же не знаю, что именно тебе нужно сохранить! )

Перебираешь нужные свойства.. Перебираешь коллекцию ListItems. Если у ListItems есть сабитемы - перебираешь их для каждого итема.
Всё, что нужно - сохраняешь в файл. Формат хранения - какой хочешь(можно читать как "это тожно нужно делать самому" =). Хоть xml, хоть ini, хоть что-то своё..

Код: Выделить всё

For i = 1 to ListView.ListItems.Count
    ListView.ListItems(i) '- это итем. тут перебираешь его свойства и сохраняешь всё в файл.

    For j = 1 to ListView.ListItems(i).ListSubItems.Count
        ListView.ListItems(i).ListSubItems(j) ' - это сабитем. всё аналогично.
    Next j
Next i


Обратно тем же порядком.

[Artin39]

Можешь пример написать? Буду признателен

Ну какой пример-то? Я же не знаю, что именно тебе нужно сохранить! )

Перебираешь нужные свойства.. Перебираешь коллекцию ListItems. Если у ListItems есть сабитемы - перебираешь их для каждого итема.
Всё, что нужно - сохраняешь в файл. Формат хранения - какой хочешь(можно читать как "это тожно нужно делать самому" =). Хоть xml, хоть ini, хоть что-то своё..

Код: Выделить всё

For i = 1 to ListView.ListItems.Count
    ListView.ListItems(i) '- это итем. тут перебираешь его свойства и сохраняешь всё в файл.

    For j = 1 to ListView.ListItems(i).ListSubItems.Count
        ListView.ListItems(i).ListSubItems(j) ' - это сабитем. всё аналогично.
    Next j
Next i


Обратно тем же порядком.

Спасибо, жаль что это не совсем то что надо. Такой вариант встречал на msdn.
Но всё равно спасибо за ответ.

[iGrok]

Спасибо, жаль что это не совсем то что надо. Такой вариант встречал на msdn.
Но всё равно спасибо за ответ.

Ну а другого варианта нету в принципе..

[Nord777]

Пишу на Microsoft Visual Basic 2008, экспресс-выпуск.

Во-первых надо бы переместить тему, а во-вторых Serialize.

[Хакер]

Тема перемещена.

[Artin39]

а во-вторых Serialize.

Почитал про Сериалайз, вродебы то что надо, может кто пример подросит?

[Ramzes]

а во-вторых Serialize.

ListView is not marked as serializable.

Могу посоветовать отражение

[Nord777]

Сериализацией можно управлять, нужно лишь реализовать интерфейс ISerializable.
Вот только насколько это будет оправданным, я не знаю(сам этим не занимался).

Также, сериализовать можно некий обьект ListViewState, который ты заполнишь необходимыми данными о состоянии ListView.
Да, для сериализации, коллекцию(типа ListViewItemCollection) придется перекидывать в другой контейнер(например массив) и здесь только перебор,
но зато для десериализации достаточно будет примерно такой конструкции:

Код: Выделить всё

            State = DirectCast(BF.Deserialize(FS), ListViewState)
            Me.ListView1.Columns.AddRange(State.Columns)
            Me.ListView1.Items.AddRange(State.Items)

Ramzes, а отражение как предлагаешь использовать? Боюсь тут геморойчика поболее будет.

[Ramzes]

Перебор всех не ReadOnly свойств, перебор всех обькутов Column и Items. Гоморойчику конечно будет