MSChart utilisé en chronomètre

Question

Bonjour,

Je vous joins les lignes de code qui me permettent de faire ce petit chrono hyper sobre.
Le problème est que lorsque j'active le timer, tout fonctionne nickel, sauf que ça me fait des espèces de traits blancs qui apparaîssent anarchiquement, comme si le rafraîchissement du chart était "visible"....

Alors le MSchart, c'est peut-être pas la meilleure méthode pour faire ça, mais je sais pas vraiment comment faire autrement...

Dim val, val2

Private Sub chart1()
With MSChart1
        .Row = 1
        .Column = 1
        .Data = val
        .Row = 1
        .Column = 2
        .Data = val2
End With
End Sub


Private Sub Command1_Click()


MSChart1.chartType = VtChChartType2dPie
With MSChart1
    With .DataGrid
         .RowLabelCount = 1
         .ColumnCount = 2
         .RowCount = 1
      End With
End With
val = 0
val2 = 100
Timer1.Enabled = True
MSChart1.Visible = True
Timer1.interval = 100
End Sub


Private Sub Timer1_Timer()
val = val + 1
val2 = val2 - 1
chart2If val2 0 Then Timer1.Enabled False
End Sub

gribouillex · Answer

Bon, en fouillant un peu, j'ai trouvé mieux (voir ci-joint)

Maintenant, je sais pas comment faire la même chose en faisant partir le remplissage du haut et dans le sens des aiguilles d'une montre ???!!

merci pour toute aide
------------------------------------------------------
(créer Picture1 et Timer1 avec une intervale à 1 sur une form)

Dim vall As Single

Private Sub Form_Load()
    Timer1.Enabled = True
End Sub


Private Sub Timer1_Timer()
    vall = vall + 1
    Call affiche_camembert(Picture1)
End Sub


Sub affiche_camembert(camembert As PictureBox)


Const PI = 3.14159265359
x = -(2 * PI) * vall / 100
If x < -(2 * PI) Then x = -(2 * PI)


camembert.Cls
camembert.AutoRedraw = True
camembert.FillStyle = 0
camembert.FillColor = vbRed
camembert.Circle (camembert.ScaleWidth / 2, camembert.ScaleHeight / 2), (camembert.ScaleHeight * 0.45), vbRed, -0.01, x
    
End Sub

MSChart utilisé en chronomètre

1 réponse

Votre réponse

Discussions similaires