PDFSHARP Chart erzeugen

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von steffen_cl.

    PDFSHARP Chart erzeugen

    Hallo zusammen,

    ich versuche gerade ein Chart in einem PDF zu erzeugen. Dazu nutze Ich PDFSharp.dll und PDFSharp.Charting.dll. Es kommt zu folgendem Abbruch (Bild 1).

    Hätte jemand eine Idee wo mein Problem liegt?

    Vielen Dank vorab

    VB.NET-Quellcode

    1. Imports PdfSharp.Charting
    2. Imports PdfSharp.Drawing
    3. Imports PdfSharp.Pdf
    5. Public Class Form1
    6. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    7. ' Create a new PDF document
    8. Dim document As PdfDocument = New PdfDocument
    9. document.Info.Title = "Created with PDFsharp"
    10. ' Create an empty page
    11. Dim page As PdfPage = document.AddPage
    12. ' Get an XGraphics object for drawing
    13. Dim gfx As XGraphics = XGraphics.FromPdfPage(page)
    15. #Region "Chart"
    16. Dim chart_1 As Chart = New Chart(ChartType.Line)
    17. Dim Series As Series = chart_1.SeriesCollection.AddSeries
    18. Series.Name = "series 1"
    19. Series.Add({1, 5, -3, 20, 11})
    20. Dim Series1 As Series = chart_1.SeriesCollection.AddSeries()
    21. Series.Name = "Series 2"
    22. Series.Add({22, 4, 12, 8, 12})
    24. chart_1.XAxis.MajorTickMark = TickMarkType.Outside
    25. chart_1.XAxis.Title.Caption = "X-Axis"
    27. chart_1.YAxis.MajorTickMark = TickMarkType.Outside
    28. chart_1.YAxis.Title.Caption = "Y-Axis"
    29. chart_1.YAxis.HasMajorGridlines = True
    31. chart_1.PlotArea.LineFormat.Color = XColors.DarkGray
    32. chart_1.PlotArea.LineFormat.Width = 1
    33. chart_1.PlotArea.LineFormat.Visible = True
    35. chart_1.Legend.Docking = DockingType.Bottom
    36. chart_1.Legend.LineFormat.Visible = True
    38. Dim XSeries As XSeries = chart_1.XValues.AddXSeries()
    39. XSeries.Add("A", "B", "C", "D", "E", "F")
    41. #End Region
    43. Dim chartFrame As New ChartFrame
    44. chartFrame.Location = New XPoint(100, 100)
    45. chartFrame.Size = New XSize(500, 500)
    46. chartFrame.Add(chart_1)
    47. 'XXXXXXXXXXXXX ABSTURZ XXXXXXXXXXXXX
    48. chartFrame.Draw(gfx) '
    50. ' Save the document...
    51. Dim filename As String = "TestChart.pdf"
    52. document.Save(filename)
    53. ' ...and start a viewer.
    54. Process.Start(filename)
    55. End Sub
    57. End Class
    Bilder

    • Bild 1.png

      11,77 kB, 545×311, 116 mal angesehen
    Dateien

Facebook
Telefonspende