ByteScout Premium Suite – VB.NET – Use drawing transformations for pdf with pdf sdk

Home
/
Articles
/
ByteScout Premium Suite – VB.NET – Use drawing transformations for pdf with pdf sdk

printable version:
ByteScout-Premium-Suite-VB-NET-Use-drawing-transformations-for-pdf-with-pdf-sdk.pdf

How to use drawing transformations for pdf with pdf sdk in VB.NET and ByteScout Premium Suite

This code in VB.NET shows how to use drawing transformations for pdf with pdf sdk with this how to tutorial

These sample source codes on this page below are displaying how to use drawing transformations for pdf with pdf sdk in VB.NET. ByteScout Premium Suite is the set that includes 12 SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording and you can use it to use drawing transformations for pdf with pdf sdk with VB.NET.

The following code snippet for ByteScout Premium Suite works best when you need to quickly use drawing transformations for pdf with pdf sdk in your VB.NET application. Simply copy and paste in your VB.NET project or application you and then run your app! Enjoy writing a code with ready-to-use sample codes in VB.NET.

Our website gives trial version of ByteScout Premium Suite for free. It also includes documentation and source code samples.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

Program.vb

      Imports Bytescout.PDF

''' <summary>
''' This example demonstrates how to use coordinate space transformations.
''' </summary>
Class Program

    Shared Sub Main()

        ' Create new document
        Dim pdfDocument = New Document()
        pdfDocument.RegistrationName = "demo"
		pdfDocument.RegistrationKey = "demo"
        ' Add page
        Dim page = New Page(PaperFormat.A4)
        pdfDocument.Pages.Add(page)

        Dim canvas = page.Canvas

        ' Prepare pens
        Dim blackPen = New SolidPen(New ColorRGB(0, 0, 0), 2.0F)
        blackPen.Opacity = 50
        Dim bluePen = New SolidPen(New ColorRGB(0, 0, 255), 2.0F)
        bluePen.Opacity = 50
        Dim greenPen = New SolidPen(New ColorRGB(0, 255, 0), 2.0F)
        greenPen.Opacity = 50

        ' Move coordinate space zero point to (200, 200) and draw a rectangle of 50x50 dize
        canvas.TranslateTransform(200, 200)
        canvas.DrawRectangle(blackPen, 0, 0, 50, 50)

        ' Now zoom the coordinate space in twice and draw the same rectangle in green
        canvas.ScaleTransform(2, 2)
        canvas.DrawRectangle(greenPen, 0, 0, 50, 50)

        ' Now rotate the coordinate space by 30 degrees and draw the same rectangle in blue
        canvas.RotateTransform(30)
        canvas.DrawRectangle(bluePen, 0, 0, 50, 50)

        ' Save document to file
        pdfDocument.Save("result.pdf")

        ' Cleanup 
		pdfDocument.Dispose()

        ' Open document in default PDF viewer app
        Process.Start("result.pdf")

    End Sub

End Class