Bonjour,

J'utilise le composant Chart de Visifire pour établir des graphiques (http://www.visifire.com/).
Il y a plusieurs type de graphique (pie, column, area, etc).
Je laisse le choix à l'utilisateur de choisir le type de graphique.
Pour cela, j'ai fait un combobox dans lequel j'ai mis les différents type de graphique.

Lors du premier affichage du graphique (donc celui par défaut au démarrage de l'application), il y a une animation qui est effectué.
Maintenant, si je change le type de graphique avec le combobox et que je recréé le graphique en appuyant sur un bouton, l'animation propre à ce graphique ne s'excute pas: il est "violemment" affiché.

Voici le code qui créer le graphique:
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
 
        '***********************
        'Propriété du Chart
        '***********************
        chartRepartEdit.Theme = "Theme1"
 
        If windowPrin.cbxGraph3D.SelectedIndex <> -1 Then
 
            chartRepartEdit.View3D = tabGraph3D(windowPrin.cbxGraph3D.SelectedIndex)
 
        Else
 
            chartRepartEdit.View3D = False
 
        End If
 
        chartRepartEdit.AnimationEnabled = True
        chartRepartEdit.AnimatedUpdate = True
 
        'Création d'un DataSeries
        Dim seriesRepartEdit As New DataSeries
 
        '***********************
        'Propriété du DataSeries
        '***********************
 
        'Style du graphique
        If windowPrin.cbxGraphType.SelectedIndex <> -1 Then
 
            seriesRepartEdit.RenderAs = tabGraphType(windowPrin.cbxGraphType.SelectedIndex)
 
        Else
 
            seriesRepartEdit.RenderAs = RenderAs.Pie
 
        End If
 
 
        'Apparence des label lorsqu'on pointe un élément
        seriesRepartEdit.LabelText = "#AxisXLabel"
        seriesRepartEdit.ToolTipText = "#AxisXLabel, #YValue série(s) soit #Percentage %"
 
        For j = 0 To listeStats2.Count - 1
 
            'Création d'un point
            Dim datapointRepartEdit As New DataPoint()
 
            datapointRepartEdit.YValue = listeStats2(j)
            datapointRepartEdit.AxisXLabel = listeStats(j).ToString
 
            'Ajoute le datapointRepartEdit à dataseriesRepartEdit
            seriesRepartEdit.DataPoints.Add(datapointRepartEdit)
 
        Next
 
        'Ajoute le DataSeries  au Chart
        chartRepartEdit.Series.Add(seriesRepartEdit)
 
        Grid.SetRow(chartRepartEdit, 2)
        Grid.SetColumn(chartRepartEdit, 0)
 
        windowPrin.GridStats.Children.Add(chartRepartEdit)
Maintenant, le code après le choix du type de graphique:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
            chartRepartEdit.Series.Clear()
            chartRepartType.Series.Clear()
 
            GridStats.Children.Remove(chartRepartEdit)
            GridStats.Children.Remove(chartRepartType)
 
            Call RepartEdit() 'appel la procédure qui créer le graphique (celle ci-dessus)
D'après ce que j'ai lu sur le forum de Visifire, ce n'est pas possible. Mais les sujets qui traitent de cela datent de 2008 ou 2009 (ici ou là).

Merci à ceux qui m'aideront.

Ps: je n'ai pas posté sur le site de Visifire, je ne suis pas très bon en anglais