Creation, aperçu et impression d'un office chart(ou de tout object d'une form) ds vb.net

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 188 fois - Téléchargée 36 fois

Commenter

Contenu du snippet

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

A voir également

Ajouter un commentaire

Commentaires

Signaler
amenzou17
Messages postés
2
Date d'inscription
mercredi 10 mai 2006
Statut
Membre
Dernière intervention
30 juin 2010
 -
je crois qu'il y a un problème dans la partie qui concerne l'appel de la procédure Graph
# 'procedure qui recupere les données pour mon graphique
# graph(lste, qose)
Signaler
joulak2012
Messages postés
1
Date d'inscription
jeudi 24 septembre 2009
Statut
Membre
Dernière intervention
5 novembre 2009
 -
pas male ,mai ca ne marche pas sur VB.net 2005?
Signaler
MISMAQC
Messages postés
2
Date d'inscription
lundi 19 septembre 2005
Statut
Membre
Dernière intervention
17 février 2006
 -
Y'aurait pas un problème de déclaration de Graph ????
Signaler
Ludivan1983
Messages postés
1
Date d'inscription
dimanche 4 février 2007
Statut
Membre
Dernière intervention
5 août 2008
 -
MErci pour la fonction d'impression
c cool
Signaler
JVETRAVAILLE
Messages postés
12
Date d'inscription
samedi 23 septembre 2006
Statut
Membre
Dernière intervention
12 novembre 2006
 -
Pouvez vous faire une version VB2005 avec office 10 ?
Merci
Votre version ne marche pas sur VB2005
S'inscrire maintenant

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.

Du même auteur (lijohann)