Les bases du contrôle MSChart avec Visual Basic 6.0

Private Sub Form_Load()
' Initialisation de l'accès aux données
Dim MaBD As String
Dim i as Integer
    
MaBD = App.Path & "\Chart.mdb"
With Adodc1
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MaBD & ";Persist Security Info=False"
    .RecordSource = "SELECT * FROM Climatologie"
End With
Adodc1.Refresh
Adodc1.Recordset.MoveFirst

' Initialisation du graphique simple
MSChart1.AllowSelections = False    ' Interdit la sélection dans le graphe
With MSChart1
    .chartType = VtChChartType2dBar    ' type de graphe
    .ColumnCount = 1                   ' nombre de barres
    .RowCount = 12                     ' nombre de mois
    ' lecture du nom des mois et des températures dans la BD
    For i = 1 To 12
        .Row = i
        .Column = 1
        .RowLabel = Adodc1.Recordset.Fields(0)       ' le nom de chaque mois
        .Data = Adodc1.Recordset.Fields(1).Value     ' la valeur de température maximale
        MoyMax = MoyMax + Adodc1.Recordset.Fields(1) ' cumul des valeurs pour calculer la moyenne
        Adodc1.Recordset.MoveNext                    ' le mois suivant
    Next i
End With
MoyMax = Format(MoyMax / 12, "#0.0")

' Pour que le curseur soit différent lorsque la souris passe sur le graphe
MSChart1.DoSetCursor = True
MSChart1.MousePointer = VtMousePointerArrowQuestion
End Sub

MSChart1.ShowLegend = True
    
'  Texte de la légende
With MSChart1.Plot.SeriesCollection(1)
   .LegendText = "T° max"
End With
    
With MSChart1.Legend
    .Location.LocationType = VtChLocationTypeTop               ' La légende sera au-dessus
    .TextLayout.HorzAlignment = VtHorizontalAlignmentCenter    ' Alignement centré
    .VtFont.VtColor.Set 255, 255, 0                            ' Texte jaune.
    .Backdrop.Fill.Style = VtFillStyleBrush                    ' Style de fond
    .Backdrop.Fill.Brush.Style = VtBrushStyleHatched           ' Style de remplissage
    .Backdrop.Fill.Brush.FillColor.Set 159, 0, 255             ' Couleur de remplissage du fond de la 
                                                               ' légende
End With

MSChart1.TitleText = "Températures annuelles"
With MSChart1.Title.VtFont
     .Name = "Comic Sans MS"
     .Size = 15
    .Effect = VtFontEffectUnderline
End With
        
' Titre pour l'axe des Y côté gauche
With MSChart1.Plot.Axis(1, 1)
     .AxisTitle.VtFont.Size = 14
     .AxisTitle.Visible = True
     .AxisTitle.Text = "Températures"
End With
    
' Titre pour l'axe des Y côté droit
With MSChart1.Plot.Axis(2, 1)
     .AxisTitle.VtFont.Size = 14
     .AxisTitle.Visible = True
     .AxisTitle.Text = "Températures"
End With
               
' Titre pour l'axe des X
With MSChart1.Plot.Axis(0, 1)
     .AxisTitle.VtFont.Size = 14
     .AxisTitle.Visible = True
     .AxisTitle.Text = "Mois"
End With

MSChart1.FootnoteText = "Notes : ces températures sont données par l'Institut National de Météorologie"

' Changer la couleur du graphe
With MSChart1.Plot.SeriesCollection(1)
    .DataPoints(-1).Brush.FillColor.Set 45, 44, 78      ' couleur RGB
End With

' Changer la couleur du fond du graphe
With MSChart1.Backdrop.Fill
    .Style = VtFillStyleBrush
    .Brush.FillColor.Set 255, 255, 255   'fond blanc
End With
  
' Placer une ligne colorée entre les éléments de la légende de l'axe Y ainsi que la ligne 0
With MSChart1.Plot.Axis(VtChAxisIdX, 1)
    .Pen.VtColor.Set 237, 44, 78
End With

Image1.Stretch = True
MSChart1.EditCopy
Image1.Picture = Clipboard.GetData(vbCFBitmap)

MsgBox "Nombre axe : " &  Str(MSChart1.ActiveSeriesCount)   ' Nombre de séries actuellement 
With MSChart1
    .ColumnCount = 2                  ' nombre de séries
    .RowCount = 12                    ' nombre de mois
    Adodc1.Recordset.MoveFirst
    For i = 1 To 12
        .Row = i
        .Column = 2
        .Data = Adodc1.Recordset.Fields(2).Value     ' la valeur de température minimale
         MoyMin = MoyMin + Adodc1.Recordset.Fields(2)
        Adodc1.Recordset.MoveNext
    Next i
    .Plot.SeriesCollection(2).LegendText = "T° min"
End With
MsgBox "Nombre axe : " &  Str(MSChart1.ActiveSeriesCount)   ' doit valoir 2 maintenant
MoyMin = Format(MoyMin / 12, "#0.0")

With MSChart1
' Changement du type de graphe pour afficher les valeurs linéaires des moyennes
    .chartType = VtChChartType2dCombination
    .ColumnCount = 4
    For i = 1 To 12
        .Row = i
        .Column = 3
        .Data = MoyMax
        .Column = 4
        .Data = MoyMin
    Next i
    .Plot.SeriesCollection(1).SeriesType = VtChSeriesType2dBar
    .Plot.SeriesCollection(2).SeriesType = VtChSeriesType2dBar
    .Plot.SeriesCollection(3).SeriesType = VtChSeriesType2dLine
    .Plot.SeriesCollection(4).SeriesType = VtChSeriesType2dLine
    .Plot.SeriesCollection(3).LegendText = "Moy max"
    .Plot.SeriesCollection(4).LegendText = "Moy min"
    .Refresh
End With

Private Sub MSChart1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Partie As Integer, Index1 As Integer, Index2 As Integer, Index3 As Integer, Index4 As Integer
        
' Annule sélection de la courbe précédente
MSChart1.ToolTipText = ""
MSChart1.SelectPart 4, 0, 0, 0, 0        '4 est une valeur de VtChChartType, voir tableau de correspondance dans MSDN
   
' Calcul l'emplacement actuel
MSChart1.TwipsToChartPart X, Y, Partie, Index1, Index2, Index3, Index4
' Parcourt les courbes pour trouver sur quelle série se trouve le curseur
For i = 1 To 4
    If Partie = 5 And Index1 = i Then             ' on est sur une série
        MSChart1.SelectPart 7, i, 0, 0, 0         ' sélectionne la courbe sur laquelle le curseur se trouve
        MSChart1.TwipsToChartPart X, Y, Partie, Index1, Index2, Index3, Index4     ' sélectionne les valeurs
        If Index1 <> 0 And Index2 <> 0 Then
            MSChart1.Column = Index1              ' valeur de l'abscisse
            MSChart1.Row = Index2                 ' valeur de l'ordonnée
            MSChart1.ToolTipText = MSChart1.Data &amp; " C°"    ' affiche la valeur dans l'infobulle
        End If
    End If
Next i
End Sub