ByteScout Premium Suite – VB.NET – Draw with graphics state in pdf with pdf sdk

Home
/
Articles
/
ByteScout Premium Suite – VB.NET – Draw with graphics state in pdf with pdf sdk

printable version:
ByteScout-Premium-Suite-VB-NET-Draw-with-graphics-state-in-pdf-with-pdf-sdk.pdf

How to draw with graphics state in pdf with pdf sdk in VB.NET using ByteScout Premium Suite

Learning is essential in computer world and the tutorial below will demonstrate how to draw with graphics state in pdf with pdf sdk in VB.NET

An easy to understand guide on how to draw with graphics state in pdf with pdf sdk in VB.NET with this source code sample. ByteScout Premium Suite is the set that includes 12 SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording. It can draw with graphics state in pdf with pdf sdk in VB.NET.

Want to save time? You will save a lot of time on writing and testing code as you may just take the VB.NET code from ByteScout Premium Suite for draw with graphics state in pdf with pdf sdk below and use it in your 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 VB.NET codes.

You can download free trial version of ByteScout Premium Suite from our website with this and other source code samples for VB.NET.

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 save and restore the graphics state.
''' </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

        ' Keep current graphics state
        canvas.SaveGraphicsState()

        ' Transform coordinates and draw rectangle
        canvas.TranslateTransform(200, 200)
        canvas.RotateTransform(45)
        canvas.DrawRectangle(New SolidBrush(New ColorRGB(0, 0, 255)), 0, 0, 100, 100)

        ' Restore the state and draw the same rectangle
        canvas.RestoreGraphicsState()
        canvas.DrawRectangle(New SolidBrush(New ColorRGB(255, 0, 0)), 200, 200, 100, 100)

        ' 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