Use PDFSharp to create PDF file using vb.net

Job Description:

THe following code crashes one the line where a "font" is declared. The goal is to fix the bug and produce a simple VB.NET , windows forms program that creates a PDF file using the function. This is not a programming project -- rather it is fixing a bug that prevents the function from running. If you are experienced with PDFSharp on VB.NET, you should be able to do this in about 20 minutes.

Private Sub btnPDFSharp_Click(sender As Object, e As EventArgs) Handles [login to view URL]

' Create a new PDF document

Dim document As PdfDocument = New PdfDocument

[login to view URL] = "Created with PDFsharp"

' Create an empty page

Dim page As PdfPage = [login to view URL]

Dim gfx As XGraphics = [login to view URL](page)

' Draw crossing lines

Dim pen As XPen = New XPen([login to view URL](255, 0, 0))

[login to view URL](pen, New XPoint(0, 0), New XPoint([login to view URL], [login to view URL]))

[login to view URL](pen, New XPoint([login to view URL], 0), New XPoint(0, [login to view URL]))

' Draw an ellipse

[login to view URL](pen, 3 * [login to view URL] / 10, 3 * [login to view URL] / 10, 2 * [login to view URL] / 5, 2 * [login to view URL] / 5)

' Create a font

Dim font As XFont = New XFont("Times New Roman", 20, [login to view URL])

' Draw the text

[login to view URL]("Hello, World!", font, [login to view URL], New XRect(0, 0, [login to view URL], [login to view URL]), [login to view URL])

' Save the document...

Dim filename As String = "[login to view URL]"

[login to view URL](filename)

' ...and start a viewer.

[login to view URL](filename)

End Sub

Skills: VB.NET, Visual Basic, Software Architecture, .NET, C# Programming

Project ID: #35913531