PDFsharp Sample: HelloWorld (VB)

Modified on 2009/07/30 17:58 by Administrator — 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