Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Function ChargerDonnees() Dim element As XmlNodeList Dim noeud, noeudEnf As XmlNode Try xmlDoc.Load("Settings.xml") Catch ex As Exception MessageBox.Show(ex.Message) End Try element = xmlDoc.DocumentElement.GetElementsByTagName("Settings") For Each noeud In element For Each noeudEnf In noeud.ChildNodes If (noeudEnf.LocalName = "Path")Then txtChemin.Text = noeudEnf.InnerText Else If (noeudEnf.LocalName = "Period") Then txtPeriode.Text = noeudEnf.InnerText Else If (noeudEnf.LocalName = "Filter")Then txtFiltre.Text = noeudEnf.InnerText End If End If End If Next Next End Function