[VB.NET] Mise en place d'une progress bar

Version imprimable

15/10/2004, 10h27
Hoegaarden

[VB.NET] Mise en place d'une progress bar

Salut j'ai un probleme pour inserer une progress bar dans un programme.
En fait lorsque j insere une progress bar et que le traitement qui est lié a cette progress bar est dans le code la form y a pas de pb car marche, mais lorsque le traitement est situé dans un module (qui ne peut pas agir sur les controles de la form), je ne vois pas du tout comment faire
Quelqu un pourrait m aider SVP
++

Salut,
une solution consiste à déclencher des événements à partir de ton module, que tu récupères dans ton form...

1) Définit une classe publique dérivant de EventArgs. Exemple (en C# :? ) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 public class ProgressionEventArgs : EventArgs { private int m_Progression; public ProgressionEventArgs(int progression) { m_Progression = progression; } public int Progression { get { return this.m_Progression; } } }
2) Déclare dans ton module un événement de type ProgressionEventArgs, et déclenche le à chaque fois que ton traitement avance

3) Dans ton form tu n'a plus qu'à écouter les events...

15/10/2004, 14h09
Hoegaarden

ok je vais essayer merci
15/10/2004, 14h41
Hoegaarden
bon en fait je vais plutot m'orienter vers une listview qui calculera le pourcentage d'avancement de mon traitement donc j aimerai que le pourcentage augmente au fur et a musure et que il soit écrit sur la meme ligne.

Bon comme j'ai pas compris ta solution précedente, est ce que tu pourrais me donner plus de détail pour le réaliser avec une listview ?
Merci

En fait pour l instant j'ai fait un truc comme ca tupourrais me dire si je suis dans la bonne voie :)
voila mon traitement :
Code:

1 2 3 4 5 For i = 0 to n Compteur(i,n) 'traitement Next
Fonction qui me calcule le pourcentage d'avacement du projet
Code:

1 2 3 4 Function Compteur(ByVal i As Integer, ByVal n As Integer) As Double Math.Round(100 * i / n) End Function
etr en fait il faudrai que cette fonction affiche le resultat dans la list view a chaque fois que le pourcentage augmente
15/10/2004, 15h39
Moah
OK je vais essayer de détailler un petit peu plus :)
En C# :(

Le principe est exactement le même que pour l'interception du clic sur un bouton par exemple.

Déjà place la classe ProgressionEventArgs dans ton module, où au moins dans un emplacement accessible par ton module.
Ceci étant fait il faut écrire un délégué qui permettra l'interception de l'événement. Je te conseille de la faire dans un fichier à part.

Code:

public delegate void ProgressionHandler(object sender, ProgressionEventArgs e);

Maintenant, dans la classe effectuant ton traitement, tu dois déclarer en public un event de type ProgressionEventArgs :

Code:

public event ProgressionHandler ProgressionTraitement;

Cette ligne de code indique que ta classe est susceptible de lever des événements ProgressionTraitement, de la même manière que la classe Button peut générer des event Click.
Du coup tu peux modifier ton traitement de la manière suivante :
Code:

1 2 3 4 5 For i = 0 to n if(null != ProgressionTraitement) ProgressionTraitement(this, new ProgressionEventArgs(Compteur(i,n)); 'traitement Next
ProgressionTraitement(...) déclenche un événement avec le % d'avancement de ton traitement.

Dernière étape : dans ton form, juste avant de lancer le traitement tu dois écouter les événements ProgressionTraitement :

Code:

objTraitement.ProgressionTraitement += new ProgressionHandler(Fct_Traitement);
Code:

1 2 3 4 5 private void ProgressionTraitement(object sender, ProgressionEventArgs e) { int Pourcentage = e.Progression; // ici mise à jour de ta progressbar ou de ta listview }
J'espère que j'ai été assez clair :)

merci de ta réponse mais visiblement je dois avoir du mal car j y arrive pas je te met ce que j'ai fait

dans mon module :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
  Public Class ProgressionEventArgs
        Inherits EventArgs
        Dim m_Progression As Integer
        Public Sub ProgressionEventArgs(ByVal progression As Integer)
            m_Progression = progression
        End Sub
        Public Function Progression() As Integer
            Progression = m_Progression
        End Function
        Public ProgressionTraitement As ProgressionHandler
    End Class
 
 
 
    Delegate Sub ProgressionHandler(ByVal sender As Object, ByVal e As ProgressionEventArgs)

Code:

1
2
3
4
5
6
 
For i = 2 To n
            If ProgressionTraitement <> System.DBNull Then
                ProgressionEventArgs.ProgressionTraitement(sender, New ProgressionEventArgs(Compteur(i, n)))
            End If
next

et dans le code de la form

Code:

1
2
3
4
5
6
 
 
    Private Sub ProgressionTraitement(ByVal sender As Object, ByVal e As ProgressionEventArgs)
        Dim Pourcentage As Integer = e.Progression
        LstView_Resultat.Items.Add("Traitement en cours..." & Pourcentage & "%")
    End Sub

je dois sans doute manquer une étape
:(

15/10/2004, 18h25
Moah

Citation:

je dois sans doute manquer une étape

En fait tu as fais quelques petites erreurs :)

1) Ce n'est pas dans la classe ProgressionEventArgs que tu dois déclarer ProgressionTraitement, mais plutôt dans la classe qui implémente ton traitement, car c'est bien elle qui va déclencher des events.

2)

Code:

Public ProgressionTraitement As ProgressionHandler

A mon avis cette déclaration est incomplète... En C# il faut utiliser le mot-clé event. Il doit y avoir une syntaxe similaire dans VB.NET... peut-être with events comme dans VB6 ? A vérifier.

3)

Code:

If ProgressionTraitement <> System.DBNull

Il ne faut pas comparer à System.DBNull.Value, mais tester si l'objet existe...
En syntaxe VB6, il faudrait mettre :

Code:

If Not ProgressionTraitement Is Nothing

Ce code permet de tester si l'événement va être intercepté quelque part, sinon c'est pas la peine de le déclencher...

4) Est ce que dans ton form tu as écrit une ligne de code du genre (C#, désolé) :

Code:

objTraitement.ProgressionTraitement += new ProgressionHandler(ProgressionTraitement);

Si ce n'est pas le cas tu ne recevras aucun event...

Bon courage !

PS : Essaie de trouver un tutorial sur les events...

Salut,

Peut être pour commencer vaut-il mieux faire encore plus simple en se passant de classe progressionEventArgs et de delégué:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Class Calcul    'La Classe implémentant la routine de calcul
 
Public NbrEssais as integer 'Champ public qui contient le nombre d'essais
                        'Normalement il faut mettre le champ private et une property readonly publique
 
Public Event NewEssaiEvent() 'Simple Evenement sans parametre
 
Public sub Calculer 'Procedeure de calcul
  me.nbrEssais = 0 'Compteur à 0
  Dim i as integer
  for i = 0 to FinCalcul
    'Traitement 
     Me.nbrEssais += 1 'on augmente le compteur
     RaiseEvent NewEssaiEvent() 'on déclenche l'évènement
  next i
 End Sub
End Class

dans le form:

Code:

1
2
3
4
5
  Public WithEvents Calcul as new CalculClass 'Classe de calcul qui va générer les evenements
 
  Private Sub Calcul_NewEssaiEvent() Handles Calcul.NewEssaiEvent 'Ecoute de l'event NewEssaiEvent déclenché par l'objet Calcul
    Me.ProgressBar.Value = Calcul.NbrEssais 'ou n'importe quelle routine d'affichage de listview ou de ce qu'on veut
  End Sub

Il suffit de lancer Calcul.Calculer pour voir la progressBar avancer.

18/10/2004, 10h00
Moah

Effectivement c une bonne idée... Ca va un peu simplifier le problème.
18/10/2004, 10h07
Hoegaarden

Pffffffff comme je galère :)
En tout cas merci a tous les deux de m avoir aidé je sens que je vais y passer la journée :(

++

je n en pui plus :evil:

bon voila le code de ma form :

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
 
 Private Sub Btn_App_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn_App.Click
        Dim Fich_Xml_Rub_Temp As String
        Dim i As Integer = 0
        For i = 0 To LstView_Rub.Items.Count - 1
            If LstView_Rub.Items(i).Checked Then
                Nom = LstView_Rub.Items(i).SubItems(1).Text
                RD1 = LstView_Rub.Items(i).SubItems(2).Text
                Op1 = LstView_Rub.Items(i).SubItems(3).Text
                Val1 = LstView_Rub.Items(i).SubItems(4).Text
                Coor = LstView_Rub.Items(i).SubItems(5).Text
                RD2 = LstView_Rub.Items(i).SubItems(6).Text
                Op2 = LstView_Rub.Items(i).SubItems(7).Text
                Val2 = LstView_Rub.Items(i).SubItems(8).Text
                RubCalcul1 = LstView_Rub.Items(i).SubItems(9).Text
                RubCalcul2 = LstView_Rub.Items(i).SubItems(10).Text
                OpCalcul = LstView_Rub.Items(i).SubItems(11).Text
                RubCalcul3 = LstView_Rub.Items(i).SubItems(12).Text
            End If
        Next
        ReDim Preserve T_Nom(TestRubrique)
        T_Nom(TestRubrique) = Nom
        TestRubrique += 1
        Cursor.Current = Cursors.WaitCursor
        Modif_Xml(NbChamps, Nom, Fich_Xml_Rub, Chemin_Xml, RD1, Op1, Val1, Coor, RD2, Op2, Val2, RubCalcul1, RubCalcul2, RubCalcul3, OpCalcul)
    End Sub

Voila ma procédure dans le 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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
 
Sub Modif_Xml(ByRef NbChamp As Integer, ByVal Nom As String, ByVal Fich_Xml_Rub As String, ByVal Chemin_Xml As String, ByVal RD1 As String, ByVal Op1 As String, ByVal Val1 As String, ByVal Coor As String, ByVal RD2 As String, ByVal Op2 As String, ByVal Val2 As String, ByVal RubCalcul1 As String, ByVal RubCalcul2 As String, ByVal RubCalcul3 As String, ByVal OpCalcul As String)
            Dim d As New XmlDocument()
            Dim ProgressionEventArgs As System.EventArgs
            Dim RDAtt1 As String
            Dim ValAtt1 As String
            Dim RubCalculAtt1 As String
            Dim RubCalculAtt2 As String
            Dim RubCalculAtt3 As String
            Dim RDAtt2 As String
            Dim ValAtt2 As String
            Dim Xml_Read As New XmlTextReader(Fich_Xml_Rub)
            d.Load(Chemin_Xml)
            Do While Xml_Read.Value <> Nom
                Xml_Read.Read()
            Loop
            Do While Xml_Read.Name <> "Rubrique"
                If Xml_Read.Name = "RubriqueDeclencheuse" Then
                    Xml_Read.MoveToAttribute("Champ")
                    RD1 = Xml_Read.GetAttribute(0)
                    Xml_Read.Read()
                    Xml_Read.Read()
                End If
                If Xml_Read.Name = "Valeur" Then
                    Xml_Read.MoveToAttribute("Champ")
                    If Xml_Read.GetAttribute(0) <> "" Then
                        Val1 = Xml_Read.GetAttribute(0)
                        ValAtt1 = Val1
                    Else
                        ValAtt1 = ""
                    End If
                    Xml_Read.Read()
                    Xml_Read.Read()
                End If
                If Xml_Read.Name = "RubriqueCalcul1" Then
                    Xml_Read.MoveToAttribute("Champ")
                    If Xml_Read.GetAttribute(0) <> "" Then
                        RubCalcul1 = Xml_Read.GetAttribute(0)
                        RubCalculAtt1 = RubCalcul1
                    Else
                        RubCalculAtt1 = ""
                    End If
                    Xml_Read.Read()
                    Xml_Read.Read()
                End If
                If Xml_Read.Name = "RubriqueCalcul2" Then
                    Xml_Read.MoveToAttribute("Champ")
                    If Xml_Read.GetAttribute(0) <> "" Then
                        RubCalcul2 = Xml_Read.GetAttribute(0)
                        RubCalculAtt2 = RubCalcul2
                    Else
                        RubCalculAtt2 = ""
                    End If
                    Xml_Read.Read()
                    Xml_Read.Read()
                End If
                If Xml_Read.Name = "RubriqueCalcul3" Then
                    Xml_Read.MoveToAttribute("Champ")
                    If Xml_Read.GetAttribute(0) <> "" Then
                        RubCalcul3 = Xml_Read.GetAttribute(0)
                        RubCalculAtt3 = RubCalcul3
                    Else
                        RubCalculAtt3 = ""
                    End If
                    Xml_Read.Read()
                    Xml_Read.Read()
                End If
                If Xml_Read.Name = "RubriqueDeclencheuseRestriction" Then
                    Xml_Read.MoveToAttribute("Champ")
                    If Xml_Read.GetAttribute(0) <> "" Then
                        RD2 = Xml_Read.GetAttribute(0)
                        RDAtt2 = RD2
                    Else
                        RDAtt2 = ""
                    End If
                    Xml_Read.Read()
                    Xml_Read.Read()
                End If
                If Xml_Read.Name = "ValeurRestriction" Then
                    Xml_Read.MoveToAttribute("Champ")
                    If Xml_Read.GetAttribute(0) <> "" Then
                        Val2 = Xml_Read.GetAttribute(0)
                        ValAtt2 = Val2
                    Else
                        ValAtt2 = ""
                    End If
                    Xml_Read.Read()
                    Xml_Read.Read()
                End If
                Xml_Read.Read()
            Loop
            Xml_Read.Close()
            Dim root As XmlNode = d.DocumentElement
            Dim i As Integer = 2
            Dim n As Integer
            Dim format As String
            Dim NodeCount As XmlNode = root.SelectSingleNode("//ligne[position () = last()]")
            n = NodeCount.Attributes("id").Value
            If RubCalcul1.StartsWith("Champ") = False Then
                Ajoutchamp(n, Chemin_Xml, d, NbChamp, RubCalcul1, root)
            End If
            For i = 2 To n
                RaiseEvent ProgressionTraitement(Me, New ProgressionEventArgs())
                'traitement Compteur(i, n)
                Dim NodeRD1 As XmlNode = root.SelectSingleNode("//ligne[@id='" & i & "']//" & RD1)
                If RD2 = "Vide" Then
                    If ValAtt1 = "" Then
                        Dim firstTest As Boolean = CheckRelational(CheckFormat(GetFormatNode(NodeRD1), NodeRD1.InnerText), CheckFormat(Verif_Format(Val1), Val1), Op1)
                        If FirstTest = True Then
                            Traitement_Xml(NbChamp, i, root, d, RubCalcul1, RubCalcul2, RubCalcul3, OpCalcul, RDAtt1, RDAtt2, RubCalculAtt1, RubCalculAtt2, RubCalculAtt3, ValAtt1, ValAtt2)
                        End If
                    Else
                        Dim NodeVal1 As XmlNode = root.SelectSingleNode("//ligne[@id='" & i & "']//" & Val1)
 
                        Dim firstTest As Boolean = CheckRelational(CheckFormat(GetFormatNode(NodeRD1), NodeRD1.InnerText), CheckFormat(GetFormatNode(NodeVal1), NodeVal1.InnerText), Op1)
                        If FirstTest = True Then
                            Traitement_Xml(NbChamp, i, root, d, RubCalcul1, RubCalcul2, RubCalcul3, OpCalcul, RDAtt1, RDAtt2, RubCalculAtt1, RubCalculAtt2, RubCalculAtt3, ValAtt1, ValAtt2)
                        End If
                    End If
                Else
                    Dim NodeRD2 As XmlNode = root.SelectSingleNode("//ligne[@id='" & i & "']//" & RD2)
                    If ValAtt1 = "" And ValAtt2 <> "" Then
                        Dim NodeVal2 As XmlNode = root.SelectSingleNode("//ligne[@id='" & i & "']//" & Val2)
                        Dim firstTest As Boolean = CheckRelational(CheckFormat(GetFormatNode(NodeRD1), NodeRD1.InnerText), CheckFormat(Verif_Format(Val1), Val1), Op1)
                        Dim secondTest As Boolean = CheckRelational(CheckFormat(GetFormatNode(NodeRD2), NodeRD2.InnerText), CheckFormat(GetFormatNode(NodeVal2), NodeVal2.InnerText), Op2)
                        If CheckLogical(firstTest, secondTest, Coor) Then
                            Traitement_Xml(NbChamp, i, root, d, RubCalcul1, RubCalcul2, RubCalcul3, OpCalcul, RDAtt1, RDAtt2, RubCalculAtt1, RubCalculAtt2, RubCalculAtt3, ValAtt1, ValAtt2)
                        End If
                    ElseIf ValAtt1 <> "" And ValAtt2 = "" Then
                        Dim NodeVal1 As XmlNode = root.SelectSingleNode("//ligne[@id='" & i & "']//" & Val1)
                        Dim firstTest As Boolean = CheckRelational(CheckFormat(GetFormatNode(NodeRD1), NodeRD1.InnerText), CheckFormat(GetFormatNode(NodeVal1), NodeVal1.InnerText), Op1)
                        Dim secondTest As Boolean = CheckRelational(CheckFormat(GetFormatNode(NodeRD2), NodeRD2.InnerText), CheckFormat(Verif_Format(Val2), Val2), Op2)
                        If CheckLogical(firstTest, secondTest, Coor) Then
                            Traitement_Xml(NbChamp, i, root, d, RubCalcul1, RubCalcul2, RubCalcul3, OpCalcul, RDAtt1, RDAtt2, RubCalculAtt1, RubCalculAtt2, RubCalculAtt3, ValAtt1, ValAtt2)
                        End If
                    ElseIf ValAtt1 = "" And ValAtt2 = "" Then
                        Dim firstTest As Boolean = CheckRelational(CheckFormat(GetFormatNode(NodeRD1), NodeRD1.InnerText), CheckFormat(Verif_Format(Val1), Val1), Op1)
                        Dim secondTest As Boolean = CheckRelational(CheckFormat(GetFormatNode(NodeRD2), NodeRD2.InnerText), CheckFormat(Verif_Format(Val2), Val2), Op2)
                        If CheckLogical(firstTest, secondTest, Coor) Then
                            Traitement_Xml(NbChamp, i, root, d, RubCalcul1, RubCalcul2, RubCalcul3, OpCalcul, RDAtt1, RDAtt2, RubCalculAtt1, RubCalculAtt2, RubCalculAtt3, ValAtt1, ValAtt2)
                        End If
                    Else
                        Dim NodeVal1 As XmlNode = root.SelectSingleNode("//ligne[@id='" & i & "']//" & Val1)
                        Dim NodeVal2 As XmlNode = root.SelectSingleNode("//ligne[@id='" & i & "']//" & Val2)
                        format = GetFormatNode(NodeVal1)
                        format = GetFormatNode(NodeVal2)
                        Dim firstTest As Boolean = CheckRelational(CheckFormat(format, NodeRD1.InnerText), CheckFormat(format, NodeVal1.InnerText), Op1)
                        Dim secondTest As Boolean = CheckRelational(CheckFormat(format, NodeRD2.InnerText), CheckFormat(format, NodeVal2.InnerText), Op2)
                        If CheckLogical(firstTest, secondTest, Coor) Then
                            Traitement_Xml(NbChamp, i, root, d, RubCalcul1, RubCalcul2, RubCalcul3, OpCalcul, RDAtt1, RDAtt2, RubCalculAtt1, RubCalculAtt2, RubCalculAtt3, ValAtt1, ValAtt2)
                        End If
                    End If
                End If
            Next
            d.Save(Chemin_Xml)
        End Sub

Comment faire ?

je crakkkkkkkkkkkkkkkkkkkkkkk

18/10/2004, 16h05
Moah
Citation:

je crakkkkkkkkkkkkkkkkkkkkkkk

Tu y est presque :)

Il faut que tu transformes :
Code:

1 2 3 Private Sub Fct_Traitement(ByVal sender As Object, ByVal e As ProgressionEventArgs) LstView_Resultat.Items.Add("Traitement en cours...") End Sub
en
Code:

1 2 3 Private Sub Fct_Traitement(ByVal sender As Object, ByVal e As ProgressionEventArgs) Handles TonObjet.ProgressionTraitement LstView_Resultat.Items.Add("Traitement en cours...") End Sub
Si j'ai bien compris la MSDN, Handles TonObjet.ProgressionTraitement signifie qu'à chaque fois quel l'event ProgressionTraitement sera déclenché, la fonction Fct_Traitement sera appelée. C'est l'équivalent C# de

Code:

objTraitement.ProgressionTraitement += new ProgressionHandler(Fct_Traitement);

Evidemment, pour que ça marche, la variable TonObjet doit être donnée membre de ton form.

En espérant que ça puisse t'aider :)

Bon j'avance :D
J'ai réussi a faire un truc avec la méthode de Bifidus

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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
 
Public Class Calcul    'La Classe implémentant la routine de calcul 
 
        Public Pourcentage As Integer 'Champ public qui contient le nombre d'essais 
        'Normalement il faut mettre le champ private et une property readonly publique 
 
        Public Event NewEssaiEvent() 'Simple Evenement sans parametre 
 
        Public Sub Modif_Xml(ByRef NbChamp As Integer, ByVal Nom As String, ByVal Fich_Xml_Rub As String, ByVal Chemin_Xml As String, ByVal RD1 As String, ByVal Op1 As String, ByVal Val1 As String, ByVal Coor As String, ByVal RD2 As String, ByVal Op2 As String, ByVal Val2 As String, ByVal RubCalcul1 As String, ByVal RubCalcul2 As String, ByVal RubCalcul3 As String, ByVal OpCalcul As String)
            Me.Pourcentage = 0 'Compteur à 0 
            Dim d As New XmlDocument()
            Dim ProgressionEventArgs As System.EventArgs
            Dim RDAtt1 As String
            Dim ValAtt1 As String
            Dim RubCalculAtt1 As String
            Dim RubCalculAtt2 As String
            Dim RubCalculAtt3 As String
            Dim RDAtt2 As String
            Dim ValAtt2 As String
            Dim Xml_Read As New XmlTextReader(Fich_Xml_Rub)
            d.Load(Chemin_Xml)
            Do While Xml_Read.Value <> Nom
                Xml_Read.Read()
            Loop
            Do While Xml_Read.Name <> "Rubrique"
                If Xml_Read.Name = "RubriqueDeclencheuse" Then
                    Xml_Read.MoveToAttribute("Champ")
                    RD1 = Xml_Read.GetAttribute(0)
                    Xml_Read.Read()
                    Xml_Read.Read()
                End If
                If Xml_Read.Name = "Valeur" Then
                    Xml_Read.MoveToAttribute("Champ")
                    If Xml_Read.GetAttribute(0) <> "" Then
                        Val1 = Xml_Read.GetAttribute(0)
                        ValAtt1 = Val1
                    Else
                        ValAtt1 = ""
                    End If
                    Xml_Read.Read()
                    Xml_Read.Read()
                End If
                If Xml_Read.Name = "RubriqueCalcul1" Then
                    Xml_Read.MoveToAttribute("Champ")
                    If Xml_Read.GetAttribute(0) <> "" Then
                        RubCalcul1 = Xml_Read.GetAttribute(0)
                        RubCalculAtt1 = RubCalcul1
                    Else
                        RubCalculAtt1 = ""
                    End If
                    Xml_Read.Read()
                    Xml_Read.Read()
                End If
                If Xml_Read.Name = "RubriqueCalcul2" Then
                    Xml_Read.MoveToAttribute("Champ")
                    If Xml_Read.GetAttribute(0) <> "" Then
                        RubCalcul2 = Xml_Read.GetAttribute(0)
                        RubCalculAtt2 = RubCalcul2
                    Else
                        RubCalculAtt2 = ""
                    End If
                    Xml_Read.Read()
                    Xml_Read.Read()
                End If
                If Xml_Read.Name = "RubriqueCalcul3" Then
                    Xml_Read.MoveToAttribute("Champ")
                    If Xml_Read.GetAttribute(0) <> "" Then
                        RubCalcul3 = Xml_Read.GetAttribute(0)
                        RubCalculAtt3 = RubCalcul3
                    Else
                        RubCalculAtt3 = ""
                    End If
                    Xml_Read.Read()
                    Xml_Read.Read()
                End If
                If Xml_Read.Name = "RubriqueDeclencheuseRestriction" Then
                    Xml_Read.MoveToAttribute("Champ")
                    If Xml_Read.GetAttribute(0) <> "" Then
                        RD2 = Xml_Read.GetAttribute(0)
                        RDAtt2 = RD2
                    Else
                        RDAtt2 = ""
                    End If
                    Xml_Read.Read()
                    Xml_Read.Read()
                End If
                If Xml_Read.Name = "ValeurRestriction" Then
                    Xml_Read.MoveToAttribute("Champ")
                    If Xml_Read.GetAttribute(0) <> "" Then
                        Val2 = Xml_Read.GetAttribute(0)
                        ValAtt2 = Val2
                    Else
                        ValAtt2 = ""
                    End If
                    Xml_Read.Read()
                    Xml_Read.Read()
                End If
                Xml_Read.Read()
            Loop
            Xml_Read.Close()
            Dim root As XmlNode = d.DocumentElement
            Dim i As Integer = 2
            Dim n As Integer
            Dim format As String
            Dim NodeCount As XmlNode = root.SelectSingleNode("//ligne[position () = last()]")
            n = NodeCount.Attributes("id").Value
            If RubCalcul1.StartsWith("Champ") = False Then
                Ajoutchamp(n, Chemin_Xml, d, NbChamp, RubCalcul1, root)
            End If
            For i = 2 To n
                Me.Pourcentage = Math.Round((100 * i) / n) 'on augmente le compteur 
                                    RaiseEvent NewEssaiEvent() 'on déclenche l'évènement 
 
                Dim NodeRD1 As XmlNode = root.SelectSingleNode("//ligne[@id='" & i & "']//" & RD1)
                If RD2 = "Vide" Then
                    If ValAtt1 = "" Then
                        Dim firstTest As Boolean = CheckRelational(CheckFormat(GetFormatNode(NodeRD1), NodeRD1.InnerText), CheckFormat(Verif_Format(Val1), Val1), Op1)
                        If FirstTest = True Then
                            Traitement_Xml(NbChamp, i, root, d, RubCalcul1, RubCalcul2, RubCalcul3, OpCalcul, RDAtt1, RDAtt2, RubCalculAtt1, RubCalculAtt2, RubCalculAtt3, ValAtt1, ValAtt2)
                        End If
                    Else
                        Dim NodeVal1 As XmlNode = root.SelectSingleNode("//ligne[@id='" & i & "']//" & Val1)
 
                        Dim firstTest As Boolean = CheckRelational(CheckFormat(GetFormatNode(NodeRD1), NodeRD1.InnerText), CheckFormat(GetFormatNode(NodeVal1), NodeVal1.InnerText), Op1)
                        If FirstTest = True Then
                            Traitement_Xml(NbChamp, i, root, d, RubCalcul1, RubCalcul2, RubCalcul3, OpCalcul, RDAtt1, RDAtt2, RubCalculAtt1, RubCalculAtt2, RubCalculAtt3, ValAtt1, ValAtt2)
                        End If
                    End If
                Else
                    Dim NodeRD2 As XmlNode = root.SelectSingleNode("//ligne[@id='" & i & "']//" & RD2)
                    If ValAtt1 = "" And ValAtt2 <> "" Then
                        Dim NodeVal2 As XmlNode = root.SelectSingleNode("//ligne[@id='" & i & "']//" & Val2)
                        Dim firstTest As Boolean = CheckRelational(CheckFormat(GetFormatNode(NodeRD1), NodeRD1.InnerText), CheckFormat(Verif_Format(Val1), Val1), Op1)
                        Dim secondTest As Boolean = CheckRelational(CheckFormat(GetFormatNode(NodeRD2), NodeRD2.InnerText), CheckFormat(GetFormatNode(NodeVal2), NodeVal2.InnerText), Op2)
                        If CheckLogical(firstTest, secondTest, Coor) Then
                            Traitement_Xml(NbChamp, i, root, d, RubCalcul1, RubCalcul2, RubCalcul3, OpCalcul, RDAtt1, RDAtt2, RubCalculAtt1, RubCalculAtt2, RubCalculAtt3, ValAtt1, ValAtt2)
                        End If
                    ElseIf ValAtt1 <> "" And ValAtt2 = "" Then
                        Dim NodeVal1 As XmlNode = root.SelectSingleNode("//ligne[@id='" & i & "']//" & Val1)
                        Dim firstTest As Boolean = CheckRelational(CheckFormat(GetFormatNode(NodeRD1), NodeRD1.InnerText), CheckFormat(GetFormatNode(NodeVal1), NodeVal1.InnerText), Op1)
                        Dim secondTest As Boolean = CheckRelational(CheckFormat(GetFormatNode(NodeRD2), NodeRD2.InnerText), CheckFormat(Verif_Format(Val2), Val2), Op2)
                        If CheckLogical(firstTest, secondTest, Coor) Then
                            Traitement_Xml(NbChamp, i, root, d, RubCalcul1, RubCalcul2, RubCalcul3, OpCalcul, RDAtt1, RDAtt2, RubCalculAtt1, RubCalculAtt2, RubCalculAtt3, ValAtt1, ValAtt2)
                        End If
                    ElseIf ValAtt1 = "" And ValAtt2 = "" Then
                        Dim firstTest As Boolean = CheckRelational(CheckFormat(GetFormatNode(NodeRD1), NodeRD1.InnerText), CheckFormat(Verif_Format(Val1), Val1), Op1)
                        Dim secondTest As Boolean = CheckRelational(CheckFormat(GetFormatNode(NodeRD2), NodeRD2.InnerText), CheckFormat(Verif_Format(Val2), Val2), Op2)
                        If CheckLogical(firstTest, secondTest, Coor) Then
                            Traitement_Xml(NbChamp, i, root, d, RubCalcul1, RubCalcul2, RubCalcul3, OpCalcul, RDAtt1, RDAtt2, RubCalculAtt1, RubCalculAtt2, RubCalculAtt3, ValAtt1, ValAtt2)
                        End If
                    Else
                        Dim NodeVal1 As XmlNode = root.SelectSingleNode("//ligne[@id='" & i & "']//" & Val1)
                        Dim NodeVal2 As XmlNode = root.SelectSingleNode("//ligne[@id='" & i & "']//" & Val2)
                        format = GetFormatNode(NodeVal1)
                        format = GetFormatNode(NodeVal2)
                        Dim firstTest As Boolean = CheckRelational(CheckFormat(format, NodeRD1.InnerText), CheckFormat(format, NodeVal1.InnerText), Op1)
                        Dim secondTest As Boolean = CheckRelational(CheckFormat(format, NodeRD2.InnerText), CheckFormat(format, NodeVal2.InnerText), Op2)
                        If CheckLogical(firstTest, secondTest, Coor) Then
                            Traitement_Xml(NbChamp, i, root, d, RubCalcul1, RubCalcul2, RubCalcul3, OpCalcul, RDAtt1, RDAtt2, RubCalculAtt1, RubCalculAtt2, RubCalculAtt3, ValAtt1, ValAtt2)
                        End If
                    End If
                End If
            Next
            d.Save(Chemin_Xml)
        End Sub
    End Class

et dons le code de la form :

Code:

1
2
3
4
5
 
Friend WithEvents Calcul As New Calcul() 'Classe de calcul qui va générer les evenements 
    Private Sub Calcul_NewEssaiEvent() Handles Calcul.NewEssaiEvent 'Ecoute de l'event NewEssaiEvent déclenché par l'objet Calcul 
        Me.LstView_Resultat.Items.Add(Calcul.Pourcentage).EnsureVisible() 'ou n'importe quelle routine d'affichage de listview ou de ce qu'on veut 
    End Sub

Le pb c'est que je voudrais que m a list view se rafraichissent lorsque le pourcentage change.

En tout cas merci a tous pour m 'avoir aiser jusqu ici :=)

19/10/2004, 08h24
bifidus

Honnetement j'ai eu la flemme de lire tout ton code...
Mais des trucs comme

Code:

Public Sub Modif_Xml(ByRef NbChamp As Integer, ByVal Nom As String, ByVal Fich_Xml_Rub As String, ByVal Chemin_Xml As String, ByVal RD1 As String, ByVal Op1 As String, ByVal Val1 As String, ByVal Coor As String, ByVal RD2 As String, ByVal Op2 As String, ByVal Val2 As String, ByVal RubCalcul1 As String, ByVal RubCalcul2 As String, ByVal RubCalcul3 As String, ByVal OpCalcul As String)

Ca fait plutot VB6 que .NET..
En POO on fait plutot un objet qui a pour propriétés tes parametres auquel on applique une méthode Modif_Xml.
Sinon tu veux rafraichir l'affichage d'un ListView a chaque fois qu'il y a un traitement trés léger (y'a beaucoup de lignes mais c'est trés leger en temps proc) sur un fichier XML !?
Il y a un autre problème que le simple déclenchement de l'event c'est les temps de traitement.
La modif du fichier XML une fois qu'il est chargé en mémoire doit etre 100 fois plus rapide que le refresh du ListView qui est une opération trés lourde.
D'habitude on fait plutot le contraire: on désactive les rafraichissements (BeginUpdate) des controles tant qu'on touche à leur sources et on rafraichit l'affichage lorsque l'on a fini (EndUpdate).
EnsureVisible se contente de faire un scrolling du ListView afin que l'élément ajouté soit dans la zone visible, mais il ne force pas un repeint du ListView pour qu'il affiche le nouvel element.
19/10/2004, 09h23
Hoegaarden

En fait j ai trouvé une solution alternative je vais mettre le pourcentage d'avancement de mon traitement dans une statut bar
Merci a tous pour votre aide a bientot :)