[VB.NET] RaiseEvent...

Version imprimable

Bonjour a tous
J'ai fait un truc comme ca dans mon module :

Code:

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:

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

29/10/2004, 10h06
Piotrek

Salut

un module module ?

Mets ta classe dans un fichier "classe" car tous les membres d'un modules sont automatiquement mis en "shared" et donc pour le deboggage c'est pas pratique

Apparement t'auras meme pas a modifier le code puisque malgre que tout soit "shared" tu as fait Friend WithEvents LectureXml As New LectureXml()
29/10/2004, 10h30
Hoegaarden

jai mis mon code dans un fichier classe et ca a rien changé
mais le truc que je ne comprends pas c'est que j'ai fait exactement la meme chose dans une aute classe et ca marche tres bien

oops j'avais pas vu que tu tentais de declancher l'evenement dans l'exception

premiere chose: l'exeption ne doit-elle pas plutot survenir dans les Dim que tu n'as pas englobe ? hesite pas a mettre plusieurs catch et meme plusieurs try en fonction de la bonne exception ( de la plus specifique a la plus generique: catch ex as oledbexception.... catch ex as exception, dans le meme try catch: ca te permet de filtrer) A lire: les liens de la fin

ensuite, lancer un event lors d'une exception c'est vraiement pas l'ideal: Declare ton lectureXML sans l'initialiser:
Code:

1 2 3 4 5 6 7 8 9 10 11 Friend WithEvents LectureXml As LectureXml() Sub chargement() try LectureXml = New LectureXml() catch ex as exception 'ici tu fais une fonction exception2listview(ex) end try end sub
tu catch et throw dans LectureXml ainsi
Code:

1 2 3 4 5 6 7 8 Friend WithEvents LectureXml As New LectureXml() ... Try .... Catch ex as exception Throw new Exception(Fichier de configuration incorrect, ce fichier doit être de la forme ""ConfigNomClient.xml""", ex) end try
les best practices pour les exceptions:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnbda/html/exceptdotnet.asp
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpguide/html/cpconexceptionhandlingfundamentals.asp[/code]

29/10/2004, 11h18
Hoegaarden

ok merci encore une fois ca marche nickel :)
29/10/2004, 12h04
Hoegaarden

Euh en fait ca marche pas top :)

j'ai pas compris comment tu fait pour récupérer ton exception pour qu'elle s'affiche dans la listview
29/10/2004, 12h16
Piotrek

Fais une fonction dans ta form: exception2listview(ex as exception)

dans cette fonction tu recupere ex.message pour l'afficher dans la Listview

j'ai fait ca et ca ne marche toujours pas

Dans mon fichier classe

Code:

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
 
 
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
 
 
    '---------------------------------------------
 
    '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 ex As Exception
            Throw New Exception("Fichier de configuration incorrect, ce fichier doit être de la forme ""ConfigNomClient.xml""", ex)
        End Try
    End Sub
End Class

et dans la form

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 Friend WithEvents LectureXml As LectureXml()
 
    Function ExceptionListView(ByVal ex As Exception) As String
        ExceptionListView = ex.Message
    End Function
 
    Sub chargement()
        Try
            LectureXml = New LectureXml()
        Catch ex As Exception
            LstView_Resultat.Items.Add(ExceptionListView(ex)).EnsureVisible()
        End Try
    End Sub

En fait qd je passe sur Throw New Exception("Fichier de configuration incorrect, ce fichier doit être de la forme ""ConfigNomClient.xml""", ex)
ca me met leve bien l exception met ca ne va pas dans la form pour afficher le message dans la lstview

Code:

1
2
3
4
5
6
7
 
    Public Sub LectureFichierConfigXml()
      'deja tu deplace le try ici
      try
        Dim DocXml As New XmlDocument()
        DocXml.Load(NomFichierConfigXml) 
      ...

ensuite je m'a effectivement enmelle dans les noms

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
    Private myLectureXml As LectureXml() 
 
    Function ExceptionListView(ByVal ex As Exception) As String
        LstView_Resultat.Items.Add(ex.message).EnsureVisible()
    End Function
 
    'a lancer pour faire le parsing
    Sub parsouillage()
        Try
             myLectureXml.LectureFichierConfigXml()
        Catch ex As Exception
             ExceptionListView(ex)
        End Try
    end sub
 
     'a lancer en premier pour initialiser myLectureXml 
    Sub chargement()
            myLectureXml = New LectureXml()
    End Sub

hum je crois que c'est ok

29/10/2004, 13h42
Hoegaarden

Hum ca m marche toujours pas
il me met une erreur qd j 'cris ca :
myLectureXml.LectureFichierConfigXml()
Erreur:
LectureFichierConfigXml n'est pas u membre de system Array
et

myLectureXml = New LectureXml()
29/10/2004, 13h43
Piotrek

myLectureXml = New LectureXml
29/10/2004, 13h49
Hoegaarden

??

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
    Private myLectureXml As LectureXml
 
    Function ExceptionListView(ByVal ex As Exception) As String
        LstView_Resultat.Items.Add(ex.message).EnsureVisible()
    End Function
 
    'a lancer pour faire le parsing
    Sub parsouillage()
        Try
             myLectureXml.LectureFichierConfigXml()
        Catch ex As Exception
             ExceptionListView(ex)
        End Try
    end sub
 
     'a lancer en premier pour initialiser myLectureXml
    Sub chargement()
            myLectureXml = New LectureXml
    End Sub

29/10/2004, 14h39
Hoegaarden

Merci beaucoup ca march eje suis désolé d'avoir fait le lourd mais y a pas mal de choses que je n'assimile pas en ce monment je suis un peu perdu entre vb6 et vb.net j 'ai du mal a faire la transition
29/10/2004, 15h22
Piotrek

ya pas de mal: c'est moi qui met du code sans reflechir :lol: