Salut,
voila un p'tit bout de code pour lequel j'ai passé pas mal de temps a chercher.
C'est un bout d'une appli qui me permet de creer des graphiques a l'aide d'un office chart, puis de faire un aperçu et de l'imprimer.
Je rempli le graph a l'aide de données recupérées dans des tableau unidirectionnels, mais vous pouvez utiliser d'autres sources de données.
Ce code utilise une api (bitblt)
Je le met autant por aider que pour mieux le comprendre car je l'avoue, je suis pas forcement tout au clair avec les handle, l'api et tout ça...mais bon, ça marche...c'est deja un debut.
Alors si vous avez des commentaires ou quoi que ce soit, ça sera bien venu
Pour que le code marche, vous devrez ajouter a votre form, un office chart 11, un bouton , un printdocument et un printpreviewdialog
Source / Exemple :
'declaration de l'API:
Private Declare Function BitBlt Lib "gdi32.dll" Alias "BitBlt" ( _
ByVal hdcDest As IntPtr, _
ByVal nXDest As Integer, _
ByVal nYDest As Integer, _
ByVal nWidth As Integer, _
ByVal nHeight As Integer, _
ByVal hdcSrc As IntPtr, _
ByVal nXSrc As Integer, _
ByVal nYSrc As Integer, _
ByVal dwRop As System.Int32) As Long
'declaration de la variable bitmap :
Private image As Bitmap
'fonction de "capture" de l'image du graphique:
'là je l'avoue j'aurais du mal a expliquer ce qu'il fais exactement
Private Sub captured()
Dim mygraph As Graphics = OChart.CreateGraphics
Dim s As Size = OChart.Size
image = New Bitmap(s.Width, s.Height, mygraph)
Dim memograph As Graphics = Graphics.FromImage(image)
Dim dc1 As IntPtr = mygraph.GetHdc
Dim dc2 As IntPtr = memograph.GetHdc
BitBlt(dc2, 0, 0, OChart.Width, _
OChart.Height, dc1, 0, 0, &HCC0020)
mygraph.ReleaseHdc(dc1)
memograph.ReleaseHdc(dc2)
End Sub
'procedure de creation du graphique :
'lst() et qos() sont deux tableaux unidirectionnels
'ochart est mon office chart
Private Sub creegraph(ByVal lst(), ByVal qos())
Dim constants
OChart.Clear()
OChart.Charts.Add()
OChart.Charts(0).Type = OWC11.ChartChartTypeEnum.chChartTypeColumnClustered
'graphique de type histogramme
constants = OChart.Constants
'creation d'une serie de données :
OChart.Charts(0).SeriesCollection.Add()
OChart.Charts(0).SeriesCollection(0).Caption = "qos"
'données des etiquettes de l'axe X :
OChart.Charts(0).SetData(constants.chDimCategories, constants.chDataLiteral, lst)
'données :
OChart.Charts(0).SeriesCollection(0).SetData(constants.chDimValues, constants.chDataLiteral, qos)
'couleur de la serie de données :
OChart.Charts(0).SeriesCollection(0).Interior.Color = RGB(0, 255, 0)
'arriere plan du graphique avec un degradé :
OChart.Charts(0).PlotArea.Interior.SetPresetGradient(OWC11.ChartGradientStyleEnum.chGradientHorizontal, OWC11.ChartGradientVariantEnum.chGradientVariantStart, OWC11.ChartPresetGradientTypeEnum.chGradientDaybreak)
'tttre du graphique :
OChart.Charts(0).HasTitle = True
OChart.Charts(0).Title.Caption = "Joli graphique"
OChart.Charts(0).Title.Font.Size = 14
End Sub
'recupération et redimensionnement de l'image pour le printdocument1 :
Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
' agrandit l'image de 1.1 fois en largeur et 1.3 fois en hauteur
e.Graphics.ScaleTransform(1.1, 1.3)
'dessine l'image en partant de 30 a droite et 30 enbas du coin haut gauche
e.Graphics.DrawImage(image, 30, 30)
End Sub
'lancement de l'aperçu ou de l'impression :
Private Sub Bt_imp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_imp.Click
Dim lste()
Dim qose()
'procedure qui recupere les données pour mon graphique
graph(lste, qose)
'appel des procedures de creation et recupération du graph
creegraph(lste, qose)
captured()
'mise du document en paysage :
PrintDocument1.DefaultPageSettings.Landscape = True
'version pour faire un aperçu :
PrintPreviewDialog1 = New PrintPreviewDialog
PrintPreviewDialog1.Document = PrintDocument1
PrintPreviewDialog1.WindowState = FormWindowState.Maximized
PrintPreviewDialog1.Show()
PrintPreviewDialog1.BringToFront()
'pour impression directe :
PrintDocument1.Print()
'liberation des ressources du printdocument :
PrintDocument1.Dispose()
End Sub
Conclusion :
voila, j'espere que ça pourra vous aider
encore une fois, n'hesitez pas a commenter
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.