Gestione XML

    Public Class Configurazioni
        Private _file As String
        Private strSQLUsr As String
        Private strSQLPwd As String
        Private strDirIcone As String
        Private xmlConfig As System.Xml.XmlDocument

        Private Sub ReadConfig(ByVal elem As System.Xml.XmlNode)
            Dim node As System.Xml.XmlNode
            For Each node In elem.ChildNodes
                If node.HasChildNodes Then ReadConfig(node)
                Select Case node.Name
                    Case "SQLUsr"
                        strSQLUsr = node.InnerText
                    Case "SQLPwd"
                        strSQLPwd = ppw.Decripta(node.InnerText)
                    Case "Icone"
                        strDirIcone = node.InnerText
                End Select
            Next
        End Sub

        Private Sub WriteConfig(ByVal elem As System.Xml.XmlNode)
            Dim node As System.Xml.XmlNode
            For Each node In elem.ChildNodes
                If node.HasChildNodes Then WriteConfig(node)
                Select Case node.Name
                    Case "SQLUsr"
                        node.InnerText = strSQLUsr
                    Case "SQLPwd"
                        node.InnerText = ppw.Cripta(strSQLPwd)
                    Case "Icone"
                        node.InnerText = strDirIcone
                End Select
            Next
        End Sub

        Sub New(ByVal file As String)
            _file = file
            'Costruttore della classe
            'Legge il file configurazioni
            xmlConfig = New System.Xml.XmlDocument
            'Apertura file XML
            xmlConfig.Load(_file)
            ReadConfig(xmlConfig.DocumentElement)
        End Sub

        Sub Save()
            'Legge il file configurazioni
            xmlConfig = New System.Xml.XmlDocument
            'Apertura file XML
            xmlConfig.Load(_file)
            'Aggiorna i nodi, scive il file e lo rilegge
            WriteConfig(xmlConfig.DocumentElement)
            xmlConfig.Save(_file)
            ReadConfig(xmlConfig.DocumentElement)
        End Sub

        ReadOnly Property FileConfig() As String
            Get
                Return _file
            End Get
        End Property

        Property User() As String
            'Proprietà UTENTE CONNESSIONE
            Get
                Return strSQLUsr
            End Get
            Set(ByVal Value As String)
                strSQLUsr = Value
            End Set
        End Property

        Property Password() As String
            'Proprietà PASSWORD CONNESSIONE
            Get
                Return strSQLPwd
            End Get
            Set(ByVal Value As String)
                strSQLPwd = Value
            End Set
        End Property

        Property DirIcone() As String
            Get
                Return strDirIcone
            End Get
            Set(ByVal Value As String)
                strDirIcone = Value
            End Set
        End Property
    End Class