Сохранение классов в xml

[F1ash]

Буду признателен за исходник сохранения классов в xml и чтения из xml.
Заранее спасибо.

[Atoman]

http://kbyte.ru/Forum/Show.aspx?id=8481&lang=ru

[F1ash]

Не выходит...

Есть Configuration.vb вот такой

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

Imports System.ComponentModel
'''

<DefaultPropertyAttribute("Добавить подпись")> _
<Serializable()> _
Public Class main_Configuration
    '''

    Private _Sign_Add As Boolean
    Private _Signature As String
    '''

    <CategoryAttribute("Подпись к сообщению"), _
       Browsable(True), _
       [ReadOnly](False), _
       BindableAttribute(False), _
       DefaultValueAttribute("False"), _
       DesignOnly(False), _
       DisplayName("Добавить подпись"), _
       DescriptionAttribute("Добавлять подпись к сообщению?")> _
       Public Property Sign_Add() As Boolean
        Get
            Return _Sign_Add
        End Get
        Set(ByVal Value As Boolean)
            _Sign_Add = Value
        End Set
    End Property
    '''


    <CategoryAttribute("Подпись к сообщению"), _
       Browsable(True), _
       [ReadOnly](False), _
       BindableAttribute(False), _
       DefaultValueAttribute(""), _
       DesignOnly(False), _
       DisplayName("Подпись"), _
       DescriptionAttribute("Введите подпись (Максимум 8 символов)")> _
    Public Property Signature() As String
        Get
            Return _Signature
        End Get
        Set(ByVal Value As String)
            _Signature = Value
        End Set
    End Property

End Class

<DefaultPropertyAttribute("Включить")> _
<Serializable()> _
Public Class connection_Configuration
    '''

    Private _Proxy_on As Boolean
    Private _Address As String
    Private _Port As Integer = 3128
    '''

    <CategoryAttribute("Соединение через прокси-сервер"), _
       Browsable(True), _
       [ReadOnly](False), _
       BindableAttribute(False), _
       DefaultValueAttribute("False"), _
       DesignOnly(False), _
       DisplayName("Включить"), _
       DescriptionAttribute("Включить соединение через прокси-сервер?")> _
       Public Property Proxy_on() As Boolean
        Get
            Return _Proxy_on
        End Get
        Set(ByVal Value As Boolean)
            _Proxy_on = Value
        End Set
    End Property
    '''

    <CategoryAttribute("Соединение через прокси-сервер"), _
       Browsable(True), _
       [ReadOnly](False), _
       BindableAttribute(False), _
       DefaultValueAttribute(""), _
       DesignOnly(False), _
       DisplayName("Адрес"), _
       DescriptionAttribute("Введите адрес прокси-сервера")> _
    Public Property Address() As String
        Get
            Return _Address
        End Get
        Set(ByVal Value As String)
            _Address = Value
        End Set
    End Property

    <CategoryAttribute("Соединение через прокси-сервер"), _
   Browsable(True), _
   [ReadOnly](False), _
   BindableAttribute(False), _
   DefaultValueAttribute(""), _
   DesignOnly(False), _
   DisplayName("Порт"), _
   DescriptionAttribute("Введите порт прокси-сервера")> _
Public Property Port() As String
        Get
            Return _Port
        End Get
        Set(ByVal Value As String)
            _Port = Value
        End Set
    End Property

End Class


Мне нужно при открытии программы из xml файла загонять данные в 2 PropertyGrid (допустим pgMain и pgConnection), а потом сохранять их в файл оттуда...

Буду очень признателен если кто-то поможет с этим разобраться.