sample helloworld vb
[[sample_helloworld_vb]] last edit on
Oct 13, 2006
3:53 PM
by Anonymous
HelloWorld
This sample is the obligatory Hello World program. It shows how to create a PDF document with one page and the text "Hello, World!" written in its center.Source Code Listing
Imports PdfSharpImports PdfSharp.Drawing Imports PdfSharp.Pdf Imports PdfSharp.Pdf.IO
Module Program
' VB.NET version of 'Hello World'
Sub Main()
' Create a new PDF document
Dim document As PdfDocument = New PdfDocument
' 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), XStringFormat.Center)
' Save the document...
Dim filename As String = "HelloWorld.pdf"
document.Save(filename)
' ...and start a viewer.
Process.Start(filename)
End Sub
End Module