PDFsharp Sample: HelloWorld (VB)

Modified on 2015/09/14 10:25 by Thomas Hövel — Categorized as: PDFsharp Samples, Samples

<< Previous^UpNext >>
This sample is the obligatory Hello World program written in Visual Basic .NET. It shows how to create a PDF document with one page, two lines, an ellipse, and the text "Hello, World!" written in its center.

Nearly all samples of PDFsharp are written in C#. This is because C# is the language PDFsharp itself is written in and we, the developers of PDFsharp, choose C# as our favorite language. If you like to write your code in Visual Basic .NET or in any other .NET language, you can of cause use PDFsharp as well.

Here is a similar C# version of Hello World.

PDF Output File

See the PDF file created by this sample: HelloWorld-vb.pdf (3 kB)

Source Code

This is the whole Visual Basic .NET source code needed to create the PDF file:
Imports PdfSharp
Imports PdfSharp.Drawing
Imports PdfSharp.Pdf
 
Module Program
 
  ' 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

Note: The samples on this site usually show and discuss code snippets only. The complete source code of the samples with solutions for Visual Studio is available from the download area on CodePlex.