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

**Hoegaarden** · 15/10/2004, 10h27

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
++

**Moah** · 15/10/2004, 10h49

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

**Hoegaarden** · 15/10/2004, 14h09

ok je vais essayer merci

**Hoegaarden** · 15/10/2004, 14h41

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Moah** · 15/10/2004, 15h39

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

objTraitement.ProgressionTraitement += new ProgressionHandler(Fct_Traitement);

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Hoegaarden** · 15/10/2004, 17h04

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 :

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
 
  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)

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Moah** · 15/10/2004, 18h25

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

**bifidus** · 15/10/2004, 19h24

Salut,

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

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**Moah** · 18/10/2004, 10h00

Effectivement c une bonne idée... Ca va un peu simplifier le problème.

**Hoegaarden** · 18/10/2004, 10h07

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

++

**Hoegaarden** · 18/10/2004, 15h09

je n en pui plus

bon voila le code de ma form :

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
 
 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 :

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
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

**Moah** · 18/10/2004, 16h05

je crakkkkkkkkkkkkkkkkkkkkkkk

Tu y est presque

Il faut que tu transformes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Hoegaarden** · 18/10/2004, 17h26

Bon j'avance

J'ai réussi a faire un truc avec la méthode de Bifidus

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :=)

**bifidus** · 19/10/2004, 08h24

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**Hoegaarden** · 19/10/2004, 09h23

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

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

Windows Forms

Discussions similaires

Partager

Partager