PDFsharp & MigraDoc Foundation
http://forum.pdfsharp.com/

Troubles getting started!
http://forum.pdfsharp.com/viewtopic.php?f=2&t=3951
Page 1 of 1

Author:  Rocky48 [ Tue May 07, 2019 9:13 pm ]
Post subject:  Troubles getting started!

I am having problems getting started.
Trying the Hello World (VB version) I was able to figure out how to add the PDFsharp class by adding the dll file, but with out something to initiate the code it would not run, so I created a form with a button on it, however that caused an error:
Handles clause requires a WithEvents variable defined in the containing type or one of its base types.
I commented the sub main as this caused even more errors.
Can you help me understand where I am going wrong. I am not very experienced so help would be appreciated.

Code:
Imports PdfSharp
Imports PdfSharp.Drawing
Imports PdfSharp.Pdf

Module Program
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

        ' VB.NET version of 'Hello World'
        'Sub Main()
        ' Create a new PDF document
        Dim document As PdfDocument = New PdfDocument
        document.Info.Title = "Created with PDFsharp"

        ' Create an empty page
        Dim page As PdfPage = document.AddPage

        ' Get an XGraphics object for drawing
        Dim gfx As XGraphics = XGraphics.FromPdfPage(page)

        ' Draw crossing lines
        Dim pen As XPen = New XPen(XColor.FromArgb(255, 0, 0))
        gfx.DrawLine(pen, New XPoint(0, 0), New XPoint(page.Width.Point, page.Height.Point))
        gfx.DrawLine(pen, New XPoint(page.Width.Point, 0), New XPoint(0, page.Height.Point))

        ' Draw an ellipse
        gfx.DrawEllipse(pen, 3 * page.Width.Point / 10, 3 * page.Height.Point / 10, 2 * page.Width.Point / 5, 2 * page.Height.Point / 5)

        ' Create a font
        Dim font As XFont = New XFont("Verdana", 20, XFontStyle.Bold)

        ' Draw the text
        gfx.DrawString("Hello, World!", font, XBrushes.Black,
    New XRect(0, 0, page.Width.Point, page.Height.Point), XStringFormats.Center)

        ' Save the document...
        Dim filename As String = "HelloWorld.pdf"
        document.Save(filename)

        ' ...and start a viewer.
        Process.Start(filename)

    End Sub

End Module

Author:  Thomas Hoevel [ Wed May 08, 2019 9:37 am ]
Post subject:  Re: Troubles getting started!

Creating a console application would be the simple approach without UI and without button.

Author:  Rocky48 [ Fri May 10, 2019 10:39 pm ]
Post subject:  Re: Troubles getting started!

In copying the code into the button script, I missed out the Public Class Form1.
Also, removed the module declaration.
Problem solved!

Page 1 of 1 All times are UTC
Powered by phpBB® Forum Software © phpBB Group
https://www.phpbb.com/