自动设置的类,版本2,在设计上比前一个版本有进步。

class     Base

Imports System.Windows.Forms
Imports System.Xml
Imports System.IO
Imports System.Reflection
Imports System.ComponentModel
Public Class Base

#Region "公共构造"
    Public Sub New()

    End Sub
    Public Sub New(ByVal Frm As Form)
        Me.FromMain = Frm
    End Sub
#End Region

#Region "受保护有属性或变量"
    Protected md_SavePaln As New ArrayList
    Protected md_ConfigPath As String = Application.StartupPath & "\Lily.Config.Xml"
    Protected Enum EnumMode
        保存
        加载
    End Enum
    Protected md_FrmMain As Form
    '获取控件所在的容器
    Protected ReadOnly Property GetParents(ByVal Control As Control) As ArrayList
        Get
            '获取控件所在的容器
            Dim ary As New ArrayList
            While Not Control.Parent Is Nothing
                ary.Add(Control.Parent)
                Control = Control.Parent
            End While
            Return ary
        End Get
    End Property
#End Region

#Region "受保护的方法"

    '检查指定的控件是否允许保存，如果没有指定。默认保存窗体上所有可以保存的控件
    Protected Overridable Function IsSaveControl(ByVal Control As Control) As Boolean
        '判断控件是否是指定容器的子控件
        Dim ctr As Control
        For Each ctr In Me.md_SavePaln
            If ctr.Contains(Control) Then
                Return False
            End If
        Next

        If Me.md_CheckControl Is Nothing Then
            Return True
        End If

        Return Me.md_CheckControl.Contains(Control)
    End Function

    '返回指定的容器，是否允许保存指定的属性
    Protected Overridable Function IsSavePanel(ByVal Control As Control) As Boolean
        '默认不保存容器
        Return False
    End Function

    '遍历窗体上所有的控件
    Protected Sub FromControls(ByVal Control As Control)
        '获取窗体上所有控件
        Dim Ctr As Control
        Dim strerror As String = String.Empty
        For Each Ctr In Control.Controls
            If Ctr.Controls.Count = 0 Then
                If IsSaveControl(Ctr) Then
                    If Me.md_EnumMode = EnumMode.保存 Then
                        Me.ReflectionSaveValue(Ctr)
                    Else
                        Me.RefectionGetValue(Ctr)
                    End If
                End If
            Else
                '这是一个容器，确认是否有属性进行保存
                If Me.IsSavePanel(Ctr) Then
                    '容器
                    If IsSaveControl(Ctr) Then
                        If Me.md_EnumMode = EnumMode.保存 Then
                            Me.ReflectionSaveValue(Ctr)
                        Else
                            Me.RefectionGetValue(Ctr)
                        End If
                    End If
                End If

                Me.FromControls(Ctr)
            End If
        Next
        If Control.Controls.Count = 0 Then
            If Me.md_EnumMode = EnumMode.保存 Then
                Me.ReflectionSaveValue(Ctr)
            Else
                Me.RefectionGetValue(Ctr)
            End If
        End If
    End Sub

    '读取控件已保存的值
    Protected Overridable Overloads Sub GetValue(ByVal Control As Object)
        '加载指定控件类型的值
        Return
    End Sub

    '调用控件保存过程
    Protected Overridable Overloads Sub SaveValue(ByVal Control As Object)
        '保存指定控件类型的值
        Return
    End Sub

    '保存Xml
    Protected Overridable Function Save(ByVal Control As Control, ByVal Key As String, ByVal Value As Object) As Boolean

        If Control.Name = String.Empty Then
            Return False
        End If

        Try
            Dim ary As ArrayList = Me.GetParents(Control)
            Dim doc As XmlDocument = New XmlDocument

            '判断文件是否存在
            If Not File.Exists(Me.md_ConfigPath) Then
                Dim xmlData As String = "<Config></Config>"
                doc.Load(New StringReader(xmlData))
            Else
                doc.Load(Me.md_ConfigPath)
            End If

            Dim i As Int32
            Dim elem2 As XmlElement, elem As XmlElement
            Dim RootName As String = ary(ary.Count - 1).name
            elem = doc.DocumentElement.SelectSingleNode(RootName)
            '判断指定名称的节点是否已存在
            If elem Is Nothing Then
                elem = doc.CreateElement(RootName)
                elem = doc.DocumentElement.AppendChild(elem)
            End If

            If ary.Count > 0 Then
                For i = ary.Count - 1 To 0 Step -1
                    ' Create a new element and add it to the document.
                    Dim childName As String = ary(i).name
                    '判断节点是否已存在
                    elem2 = elem.SelectSingleNode(childName)
                    If elem2 Is Nothing Then
                        elem2 = doc.CreateElement(childName)
                        elem2 = elem.AppendChild(elem2)
                    End If
                    elem = elem2

                    '属性节点
                    Dim propertyElem As Xml.XmlElement
                    '判断是否是控件的父对象
                    If Control.Parent Is ary(i) Then
                        elem2 = elem.SelectSingleNode(Control.Name)
                        '根据控件名称判断xml是否存在有此节点
                        If elem2 Is Nothing Then
                            '不存在根据控件名称创建此节点
                            elem2 = doc.CreateElement(Control.Name)
                            '创建要保存的属性名称节点
                            propertyElem = doc.CreateElement(Key)
                            '属性节点是控件名称节点的子
                            elem2.AppendChild(propertyElem)
                            '控件名称节点是父对象的子
                            elem.AppendChild(elem2)
                        Else
                            '属性名称节点是否存在
                            propertyElem = elem2.SelectSingleNode(Key)
                            If propertyElem Is Nothing Then
                                '创建要保存的属性名称节点
                                propertyElem = doc.CreateElement(Key)
                                '属性节点是控件名称节点的子
                                elem2.AppendChild(propertyElem)
                            End If
                        End If
                        '此处存在有问题，对于几一个控件，只能设置一个属性
                        '设置节点的值
                        propertyElem.InnerText = Value
                    End If
                Next
            End If
            '保存到Xml
            doc.Save(Me.md_ConfigPath)
            Return True
        Catch ex As Exception
            Me.md_LastErrorMessage = ex.Message
            Return False
        End Try
    End Function

    '加载XML
    Protected Overridable Function Load(ByVal Control As Control, ByVal Key As String) As Object
        If Control.Name = String.Empty Then
            Return Nothing
        End If

        Try
            Dim ary As ArrayList = Me.GetParents(Control)
            Dim doc As XmlDocument = New XmlDocument

            If Not File.Exists(Me.md_ConfigPath) Then
                Return Nothing
            Else
                doc.Load(Me.md_ConfigPath)
            End If

            Dim i As Int32
            Dim elem2 As XmlElement, elem As XmlElement
            Dim RootName As String = ary(ary.Count - 1).name
            elem = doc.DocumentElement.SelectSingleNode(RootName)
            '判断指定名称的节点是否已存在
            If elem Is Nothing Then
                Return Nothing
            End If

            If ary.Count > 0 Then
                For i = ary.Count - 1 To 0 Step -1
                    ' Create a new element and add it to the document.
                    Dim childName As String = ary(i).name
                    '判断节点是否已存在
                    elem2 = elem.SelectSingleNode(childName)
                    If Not elem2 Is Nothing Then elem = elem2

                    '属性节点
                    Dim propertyElem As Xml.XmlElement
                    '判断是否是控件的父对象
                    If Control.Parent Is ary(i) Then
                        '判断控件节点是否存在
                        elem2 = elem.SelectSingleNode(Control.Name)
                        If Not elem2 Is Nothing Then
                            '判断属性节点是否存在
                            propertyElem = elem2.SelectSingleNode(Key)
                            If Not propertyElem Is Nothing Then
                                '属性名称节点存在
                                '判断用户是否指定了属性名称
                                Return propertyElem.InnerText
                            End If
                        End If
                    End If
                Next
            End If
        Catch ex As Exception
            Me.md_LastErrorMessage = ex.Message
            Return Nothing
        End Try
    End Function

#End Region

#Region "私有属性或变量"
    Private md_EnumMode As EnumMode
    '最后一次错误信息
    Private md_LastErrorMessage As String = String.Empty
#End Region

#Region "私有方法"
    Private Sub ReflectionSaveValue(ByVal Control As Control)
        Dim Type() As Type = {Control.GetType}
        Dim Method As Reflection.MethodInfo = Me.GetType.GetMethod("SaveValue", BindingFlags.Instance Or BindingFlags.InvokeMethod Or BindingFlags.NonPublic, Nothing, CallingConventions.Any, Type, Nothing)
        Dim Arg() As Object = {Control}
        If Method Is Nothing Then
            Return
        Else
            Method.Invoke(Me, Arg)
        End If
    End Sub

    Private Sub RefectionGetValue(ByVal Control As Control)
        Dim Type() As Type = {Control.GetType}
        Dim Method As Reflection.MethodInfo = Me.GetType.GetMethod("GetValue", BindingFlags.Instance Or BindingFlags.InvokeMethod Or BindingFlags.NonPublic, Nothing, CallingConventions.Any, Type, Nothing)
        Dim Arg() As Object = {Control}
        If Method Is Nothing Then
            Return
        Else
            Method.Invoke(Me, Arg)
        End If
    End Sub

    Private Sub FormClosing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
        '当窗体保存时，保存控件的值

        If Me.md_FrmMain Is Nothing Then
        Else
            Me.md_EnumMode = EnumMode.保存
            Me.FromControls(Me.md_FrmMain)
        End If

    End Sub

    '绑定窗体关闭事件
    Private Sub BindClosingHandler()
        AddHandler md_FrmMain.Closing, AddressOf Me.FormClosing
    End Sub

#End Region

#Region "公共方法"
    Public Sub LoadValue()
        If Me.md_FrmMain Is Nothing Then
            Throw New System.Exception("没有指定要加载设置的窗体。")
        End If
        '加载上次保存的值
        Me.md_EnumMode = EnumMode.加载
        Me.FromControls(Me.md_FrmMain)
    End Sub
    Public Sub LoadValue(ByVal Control As Control)
        If Me.md_FrmMain Is Nothing Then
            Throw New System.Exception("没有指定要加载设置的窗体。")
        End If
        Me.RefectionGetValue(Control)
    End Sub
#End Region

#Region "公共属性"
    Private md_CheckControl As ArrayList
    <Description("返回或设置要进行保存的控件。为Nothing保存窗体上所有可以保存的控件。")> _
        Public Property CheckControl() As ArrayList
        Get
            Return Me.md_CheckControl
        End Get
        Set(ByVal Value As ArrayList)
            Me.md_CheckControl = Value
        End Set
    End Property
    <Description("返回最后一次错误信息。 ")> _
    Public ReadOnly Property LastErrorMessage() As String
        Get
            Return Me.md_LastErrorMessage
        End Get
    End Property
    <Description("返回或设置要进行保存的窗体。")> _
    Public Property FromMain() As Form
        Get
            Return Me.md_FrmMain
        End Get
        Set(ByVal Value As Form)
            Me.md_FrmMain = Value
            '绑定窗体事件
            BindClosingHandler()
        End Set
    End Property
#End Region

End Class



'记录程序的设置值
Imports System.IO
Imports System.Xml
Imports System.Windows.Forms
Imports System.Reflection
Public Class WindowsControl
    Inherits Base
    Public Sub New()
        MyBase.New()
    End Sub

    Public Sub New(ByVal Frm As Form)
        MyBase.New(Frm)
    End Sub

#Region "TextBox"
    Protected Overridable Overloads Sub GetValue(ByVal Control As TextBox)
        Dim Value As String = Me.Load(Control, "Text")
        If Value Is Nothing Then
        Else
            Control.Text = Value
        End If
    End Sub
    Protected Overridable Overloads Sub SaveValue(ByVal Control As TextBox)
        Me.Save(Control, "Text", Control.Text)
    End Sub
#End Region

#Region "ComboBox"
    Protected Overridable Overloads Sub GetValue(ByVal Control As ComboBox)
        Dim Value As String = Me.Load(Control, "Text")
        If Value Is Nothing Then
        Else
            Control.Text = Value
        End If
    End Sub
    Protected Overridable Overloads Sub SaveValue(ByVal Control As ComboBox)
        Me.Save(Control, "Text", Control.Text)
    End Sub
#End Region

#Region "CheckBox"
    Protected Overridable Overloads Sub GetValue(ByVal Control As CheckBox)
        Dim Value As Object = Me.Load(Control, "Checked")
        If Value Is Nothing Then
        Else
            Control.Checked = CType(Value, Boolean)
        End If
    End Sub

    Protected Overridable Overloads Sub SaveValue(ByVal Control As CheckBox)
        Dim Value As Int32 = CType(Control.Checked, Int32)
        Me.Save(Control, "Checked", Value)
    End Sub
#End Region

#Region "RadioButton"
    Protected Overridable Overloads Sub GetValue(ByVal Control As RadioButton)
        Dim Value As Object = Me.Load(Control, "Checked")
        If Value Is Nothing Then
        Else
            Control.Checked = CType(Value, Boolean)
        End If
    End Sub

    Protected Overridable Overloads Sub SaveValue(ByVal Control As RadioButton)
        Dim Value As Int32 = CType(Control.Checked, Int32)
        Me.Save(Control, "Checked", Value)
    End Sub
#End Region

#Region "DateTimePicker"
    Protected Overridable Overloads Sub GetValue(ByVal Control As DateTimePicker)
        Dim Value As Object = Me.Load(Control, "Value")
        If Value Is Nothing Then

        Else
            If IsDate(Value) Then
                Control.Value = CType(Value, Date)
            End If
        End If
    End Sub

    Protected Overridable Overloads Sub SaveValue(ByVal Control As DateTimePicker)
        Dim Value As Date = Control.Value
        Me.Save(Control, "Value", Value)
    End Sub
#End Region

#Region "Splitter"
    Protected Overridable Overloads Sub GetValue(ByVal Control As Splitter)
        Dim Value As Integer = Val(Me.Load(Control, "SplitPosition"))

        If Value > 0 Then
            Control.SplitPosition = Value
        End If

    End Sub

    Protected Overridable Overloads Sub SaveValue(ByVal Control As Splitter)
        Dim Value As Integer = Control.SplitPosition
        Me.Save(Control, "SplitPosition", Value)
    End Sub
#End Region

End Class



---调用
'自定义保存组件
Public Class clsUserSaveSetting
    Inherits Lily.Tools.SaveSetting.WindowsControl
    '重写基本保存ComboBox的方法
    Protected Overloads Overrides Sub GetValue(ByVal Control As System.Windows.Forms.ComboBox)
        Dim Value As Object
        Dim Count As Int32 = Val(Me.Load(Control, "Count"))

        Dim i As Int32
        For i = 0 To Count
            Value = Me.Load(Control, "Item" & i)
            If Value Is Nothing Then
            Else
                Control.Items.Add(Value)
            End If
        Next

        Value = Me.Load(Control, "Text")
        If Value Is Nothing Then
        Else
            Control.Text = Value
        End If
    End Sub

    Protected Overloads Overrides Sub SaveValue(ByVal Control As System.Windows.Forms.ComboBox)
        '保存当前文本框的值
        Me.Save(Control, "Text", Control.Text)
        Dim i As Int32
        '保存Items
        For i = 0 To Control.Items.Count - 1
            Dim Key As String = "Item" & i
            Dim Value As String = Control.Items(i).ToString
            Me.Save(Control, Key, Value)
        Next
        '保存个数
        Me.Save(Control, "Count", Control.Items.Count)
    End Sub

    Public Sub New()
        MyBase.New()
        Me.md_ConfigPath = Application.StartupPath & "\cfg.xml"
    End Sub
    Public Sub New(ByVal frm As Form)
        MyBase.New(frm)
        Me.md_ConfigPath = Application.StartupPath & "\cfg.xml"
    End Sub

    '保存TreeTable的列宽
    Protected Overloads Sub GetValue(ByVal Control As Lily.TreeTable91)
        Dim i As Int32
        For i = 0 To Control.Cols.Count - 1
            Dim Value As Int32 = Val(Me.Load(Control, "Col" & i))
            If Value > 0 And Not Control.Cols(i).AutoWidth Then
                Control.Cols(i).Width = Value
            End If
        Next
    End Sub
    Protected Overloads Sub SaveValue(ByVal Control As Lily.TreeTable91)
        Dim i As Int32
        For i = 0 To Control.Cols.Count - 1
            If Not Control.Cols(i).AutoWidth Then
                Me.Save(Control, "Col" & i, Control.Cols(i).Width)
            End If
        Next
    End Sub
    '保存容器类控件这是必须的。
    Protected Overrides Function IsSavePanel(ByVal Control As System.Windows.Forms.Control) As Boolean
        If TypeOf Control Is Lily.TreeTable91 Then
            Return True
        End If
    End Function
End Class


--调用
        Dim a As New clsUserSaveSetting(Me)
        'Dim ary As New ArrayList
        'ary.Add(Me.TreeTable911)
        'ary.Add(Me.TreeTable912)
        'a.CheckControl = ary
        a.LoadValue()


--文档

lily.tools.savesetting.base

受保护方法:

IsSaveControl

判断是否指定了属性[CheckControl]，如果指定了只保存已指定的控件.否则保存窗体上所有的控件.可以重写。

IsSavePanel

判断是否保存容器类型控件，默认为False,如果需要保存需要在继承类中重写。

FromControls

遍历窗体上所有的控件。判断控件是否需要保存进行判断，并调用指定控件类型的保存方法或加载方法。

GetValue

调用指定控件类型获取值的方法.

SaveValue

调用保存指定控件类型值的方法

Save

保存到XML

Load

从XML里加载。

受保护属性：

md_SavePaln

保存允许的保存的容器对象

md_ConfigPath

保存值的文件路径。

md_FrmMain

进行操作的窗体.

GetParents

获取指定控件所属的容器直到md_FrmMain

公共方法：

LoadValue

有重载加载值。

公共属性：

CheckControl

返回或设置要进行保存操作的指定控件。

LastErrorMessage

返回最后一次错误信息。

FromMain

返回或设置要进行保存的窗体。

lily.tools.savesetting.WindowsControl[继承于Base]

GetValue

多种控件类型的重载.此类不保存容器类控件，如果需要保存容器类控件，请重写IsSavePanel方法.

SaveValue

Protected Overridable Overloads Sub GetValue(ByVal Control As TextBox)         Dim Value As String = Me.Load(Control, "Text")         If Value Is Nothing Then         Else             Control.Text = Value         End If     End Sub     Protected Overridable Overloads Sub SaveValue(ByVal Control As TextBox)         Me.Save(Control, "Text", Control.Text)     End Sub