1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
|
''----------------Déclaration des variables XML---------------------'
Private documentXML As XmlDocument
Private noeuxRacine, noeuxEnf As XmlNode
Private noeuxEnfList As XmlNodeList
Private elementXML, elementXML2 As XmlElement
Private texteXML As XmlText
Private attributXML As XmlAttribute
Private attribCollecXML As XmlAttributeCollection
Private Sub LireXEF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LireXEF.Click
Charger_XML()
Try
documentXML = New XmlDocument 'nouveau objet XML
documentXML.Load(Nom_Fic_Conf) 'mise en mémoire du projet
ComboBox1.Items.Clear()
ListBox1.Items.Clear()
For Each elementXML In noeuxRacine
ComboBox1.Items.Add(elementXML.Name)
Next
If elementXML.GetAttribute("autoRun") = "false" Or Nothing Then
elementXML.SetAttribute("autoRun", "true")
Run_Automate.Checked = True
' documentXML.Save(Nom_Fic_Conf)
MsgBox("mise en Run automatique de l'automate validée")
Else
Run_Automate.Checked = True
End If
Catch ex As XmlException
MessageBox.Show(ex.Message, "Problème XML", MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch ex As Exception
MessageBox.Show(ex.Message, "Problème", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
documentXML.Save(Nom_Fic_Conf)
MsgBox("projet sauvegardé")
End Sub |
Partager