Bonjour a tous
J'ai fait un truc comme ca dans mon module :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
Public Class LectureXml
 
        Public NomFichierConfigXml As String
        Public NomFichierRubriqueXml As String
        Public NomFichierDonneesXml As String
        Public T_ElementDeclenchement() As Rub
        Public NomClient As String
        Public Type As String
        Public Entete As String
        Public DossierFichierConfig As String
        Public DossierFichierSource As String
        Public DossierFichierSortie As String
        Public Delimiteur As String
        Public NbChamps As Integer
        Public Encapsuleur As String
        Public SeparateurDecimal As String
        Public T_NomDeclenchement() As String
        Public SupprimeLigneZero As String
        Public T_NomRubrique() As String
 
        Public Event FichierIncorrect()
 
 
 
        '---------------------------------------------
 
        'PROCEDURE QUI LIT LE FICHIER DE CONFIG XML 
 
        '---------------------------------------------
 
        Public Sub LectureFichierConfigXml()
            Dim DocXml As New XmlDocument()
            DocXml.Load(NomFichierConfigXml)
            Dim Root As XmlNode = DocXml.DocumentElement
            Dim NomClientNode As XmlNode = Root.SelectSingleNode("//NomClient")
            Dim TypeNode As XmlNode = Root.SelectSingleNode("//Type")
            Dim EnteteNode As XmlNode = Root.SelectSingleNode("//Entete")
            Dim DossierFichierConfigNode As XmlNode = Root.SelectSingleNode("//DossierFichierConfig")
            Dim DossierFichierSourceNode As XmlNode = Root.SelectSingleNode("//DossierFichierSource")
            Dim DossierFichierSortieNode As XmlNode = Root.SelectSingleNode("//DossierFichierSortie")
            Dim DelimiteurNode As XmlNode = Root.SelectSingleNode("//Delimiteur")
            Dim NbChampsNode As XmlNode = Root.SelectSingleNode("//NbChamps")
            Dim EncapsuleurNode As XmlNode = Root.SelectSingleNode("//Encapsuleur")
            Dim SeparateurDecimalNode As XmlNode = Root.SelectSingleNode("//SeparateurDecimal")
            Dim NomDeclenchementNode As XmlNodeList = Root.SelectNodes("//Rubrique//Nom")
            Dim SupprimeLigneZeroNode As XmlNode = Root.SelectSingleNode("//SupprimeLigneZero")
            Try
                NomClient = NomClientNode.InnerText
                Type = TypeNode.InnerText
                Entete = EnteteNode.InnerText
                DossierFichierConfig = DossierFichierConfigNode.InnerText
                DossierFichierSource = DossierFichierSourceNode.InnerText
                DossierFichierSortie = DossierFichierSortieNode.InnerText
                Delimiteur = DelimiteurNode.InnerText
                NbChamps = NbChampsNode.InnerText
                Encapsuleur = EncapsuleurNode.InnerText
                SeparateurDecimal = SeparateurDecimalNode.InnerText
                Dim i As Integer
                For i = 0 To NomDeclenchementNode.Count - 1
                    ReDim Preserve T_NomDeclenchement(i)
                    T_NomDeclenchement(i) = NomDeclenchementNode(i).InnerText
                Next
                SupprimeLigneZero = SupprimeLigneZeroNode.InnerText
            Catch
                RaiseEvent FichierIncorrect()
            End Try
 
        End Sub

et ca dans le code de la form


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
Friend WithEvents LectureXml As New LectureXml()
    Private Sub LectureXml_FichierIncorrect() Handles LectureXml.FichierIncorrect
        LstView_Resultat.Items.Add("Fichier de configuration incorrect, ce fichier doit être de la forme ""ConfigNomClient.xml""", 3)
    End Sub
mais en fait le code de la form ne s'effectue pas qd j'effectue un débogage lorsque dans mon module je suis sur raiseEvent FichierIncorrect il ne va pas executer le code qui se trouve dans le code de la form qq aurait une idée