CRÉATION D'UN GRAPHIQUE À PARTIR D'UNE DATAGRID

Imports System.IO  'pour le FilInfo
Imports OWC10      'pour les objets grahiques

Private Sub CreerGraph(ByVal strTitre As String, ByVal dTable As System.Data.DataTable)

        Dim objCSpace As New ChartSpaceClass
        Dim objChart As ChChart
        Dim objSeries As OWC10.ChSeries
        Dim strCategory As String
        Dim strValue As String
        Dim strFileName As String
        Dim intI, intJ As Integer
        Dim file_gif As FileInfo

        'S'il n'y a pas d'enregistrements da,s le DataGrid, inutile de créer le graph (on aurait un graph tout blanc : aucun intérêt)
        If dTable.Rows.Count <> 0 Then

            PictureBox1.Visible = True
            objChart = objCSpace.Charts.Add(0)
            'Type du graph (ici camembert 3D)
            objChart.Type = ChartChartTypeEnum.chChartTypePie3D

            'Titre et légendes
            objChart.HasTitle = True
            objChart.Title.Caption = strTitre
            objChart.HasLegend = True
            objChart.Legend.Border.DashStyle = OWC10.ChartLineDashStyleEnum.chLineSolid
            objChart.Legend.Position = OWC10.ChartLegendPositionEnum.chLegendPositionRight
            'Les données du graph correspondent au contenu de la Datatable qui est affiché dans un DataGrid
            For Each dRow As DataRow In dTable.Rows
                strCategory &= DataGrid1.Item(intI, 0) & ","
                strValue &= DataGrid1.Item(intI, 1).ToString.Replace(",", ".") & ","
                intI += 1
            Next
            objSeries = objChart.SeriesCollection.Add(0)
            'Mise en forme des datas dans le graph
            objSeries.SetData(ChartDimensionsEnum.chDimCategories, ChartSpecialDataSourcesEnum.chDataLiteral, strCategory)
            objSeries.SetData(ChartDimensionsEnum.chDimValues, ChartSpecialDataSourcesEnum.chDataLiteral, strValue)

            strFileName = "C:\graph.gif"
            file_gif = New FileInfo(strFileName)
            'Si le fichier existe déjà, ça signifie qu'on a déjà associé le graph à la PictureBox
            'Cette partie permet d'actualiser le graph avec les datas (si elles ont changé)
            If file_gif.Exists Then
                'On libère les ressources liées au fichier
                PictureBox1.Image.Dispose()
                file_gif.Delete()
            End If
            'Export du graph au format gif pour l'assigner à la propriété Image de la PictureBox
            objCSpace.ExportPicture(strFileName, , 400, 300)
            PictureBox1.Visible = True
            PictureBox1.Image = Image.FromFile(strFileName)
        Else
            PictureBox1.Visible = False
        End If
    End Sub