Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB .NET > Как серелизовать CollectionBase?

Автор: kentaro 15.11.2009, 23:23

При серелизации дает ошибку Object reference not set to an instance of an object.

Код


 Public Sub InsertContact()
        ' _CollectionContacts = New CollectionContacts
        Dim PathFileContact As String
        PathFileContact = My.Settings.DataFilesPath
        Try
            _CollectionContacts.AddContact(_Contact)
        Catch e As ApplicationException
            MsgBox(e.Message)
        End Try

        Dim fs As New FileStream(PathFileContact & FILE_CONTACTS_NAME, FileMode.Create)
        Try
            MsgBox("Кол-во персонала в коллекции " & _CollectionContacts.Count.ToString) 'тестовая проверка
            ' PathFileContact &
            _Sf.Serialize(fs, _CollectionContacts)
        Catch e As System.Runtime.Serialization.SerializationException
            Console.WriteLine("Не могу серелизовать: " & e.Message)
            Throw
        Finally
            fs.Close()
        End Try
    End Sub

Автор: diadiavova 16.11.2009, 13:34

kentaro, ты и в правду думаешь, что из предоставленного кода можно понять откуда появляется ошибка?

Автор: kentaro 17.11.2009, 00:17

diadiavova, Всё разобрался,забыл поставить new на soapformater

Добавлено через 2 минуты и 58 секунд
diadiavova, Я серелизовал CollectionBase в ListView.Как мне теперь сделать редактирование по выбраному item?

Автор: diadiavova 17.11.2009, 01:35

Цитата(kentaro @ 17.11.2009, 00:17

)

Я серелизовал CollectionBase в ListView

Это как это? smile

Сериализовал - это значит сохранил в каком-нибудь "печатном" формате(в твоём случае SOAP. Что значит то, что ты написал?

Цитата(kentaro @ 17.11.2009, 00:17

)

Как мне теперь сделать редактирование по выбраному item?

Тоже не понятно. Редактирование чего? Если коллекции, то что именно надо делать? Заменить ? Так просто присвой новое значение.

Автор: kentaro 17.11.2009, 13:49

diadiavova,

Код


Public Sub FillContacts(ByVal Contacts As CollectionContacts)
            If Contacts.Count = 0 Then Exit Sub

            'If lswMain.Items.Contains(CType()) Then
            'End If
            For Each con As Contact In Contacts
                _lvListItem = New ListViewItem
                _lvListItem.Tag = con.ID.ToString
                _lvListItem.Text = con.LastName
                _lvListItem.SubItems.Add(con.Name)
              lswMain.Items.Add(_lvListItem)
            Next
        End Sub

Это я при загрузке заполнил listview десерилизованой колекции.Потом я в listview выбираю строку нажимаю кнопку редактировать.Как мне подтянуть в форму для редоктирование данные ,с выделеной строкой в ListView?

Автор: diadiavova 17.11.2009, 13:54

ListView.SelectedItems возвратит коллекцию выделенных элементов. Если выделен только один элемент - то соответственно тяни из коллекции элемент под индексом 0 приводи его к нужному тебе типу(при помощи CType) и редактируй, только к сериализации всё это отношения не имеет.

Автор: kentaro 17.11.2009, 14:15

diadiavova, Можна пожалуйста пример собирание данных из ListView.SelectedItems в txtName smile

Автор: diadiavova 17.11.2009, 14:18

Что такое txtName и что такое "собирание данных?

Автор: kentaro 17.11.2009, 14:32

diadiavova, обычный текстбокс, выделеную строчку ListView вставить по текстбоксам.Вобщем проста вытянуть из listview в форму для редоктирования.

Автор: diadiavova 17.11.2009, 16:23

Так что ли?

Автор: kentaro 17.11.2009, 23:28

diadiavova, Нет у меня listview в нём встроке есть данные(телефон,id и.т.д) Тоесть item и subitem.Мне нужно выделеную строку сдаными поместить при нажатии на кнопку редактировать в текстбоксы(телефон,id).Я попробывал в массив засунуть но неполучается

Код


 msg.Add(frmMain.lswMain.SelectedItems(0).SubItems(0).Text)

Добавлено через 9 минут и 55 секунд
А можна так например сделать

Код


 Dim value As New ListViewItem
value = frmMain.lswMain.SelectedItems(0)

Автор: diadiavova 17.11.2009, 23:53

Да сопсно так же всё делается.

Автор: kentaro 19.11.2009, 12:09

diadiavova, Как мне удалить контакт из ColectionBase когда у меня id является типа
_ID = Guid.NewGuid.ToString и он не сможет стать integer а без integer он его неудалит

Код



Public Overloads Sub RemoveContact(ByVal i As String)
        ' If Me.List.Contains(CType(Me.List.Item(CInt(i)), Contact)) Then
        Me.List.Remove(CType(Me.List.Item(CInt(i)), Contact))
        'End If
    End Sub

Автор: diadiavova 19.11.2009, 18:39

Для удаления элемента из коллекции надо использовать индекс этого элемента.

Код


    Public Overloads Sub RemoveContact(ByVal i As String)
        Dim index = Me.List.IndexOf(CType(Me.List.Item(CInt(i)), Contact))
        Me.List.Remove(index)
    End Sub

А вообще используй джинерики. Сейчас столько удобных коллекций существует, что мне трудно себе представить ситуацию, в которой может понадобиться CollectionBase.

Автор: kentaro 19.11.2009, 23:36

diadiavova, Такую же ошибку дает Conversion from string "5ce94f42-6278-4b2e-aedd-2061936d" to type 'Integer' is not valid.

Автор: kentaro 20.11.2009, 00:03

Перепутал надо не id а индекс выделеного элемента передавать smile