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 50
| Imports System.Xml
Imports System.Xml.XPath
Imports System.Xml.Schema
Module Mdl_Config_API
Dim My_Frm_confAPI As New Frm_Config_API
Sub Charger_XML()
My_Frm_Config.OpenFileDialog1.Filter = "Fichiers configurateur (.XEF ou .STU)|*.XEF;*.STU"
My_Frm_Config.OpenFileDialog1.DefaultExt = "XEF;STU"
My_Frm_Config.OpenFileDialog1.FileName = "*.XEF;*.STU"
Try
If My_Frm_Config.OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
' Définition des variables Projet
Nom_Fic_Conf = My_Frm_Config.OpenFileDialog1.FileName
End If
Try
documentXML = New XmlDocument 'nouveau objet XML
documentXML.Load(Nom_Fic_Conf) 'mise en mémoire du projet
Chargement_Auto_Mat() 'chargement automatique des paramètres CPU
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
Catch fileException As Exception
Throw fileException
Gest_Err("Mdl_Fichier.Chargement")
End Try
End Sub
Sub Chargement_Auto_Mat()
My_Frm_confAPI.Check_Run_Automate.Checked = True
End Sub
End Module |
Partager