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

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

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

How to draw rectangles in pdf with pdf sdk in VB.NET and ByteScout Premium Suite

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

ByteScout simple and easy to understand tutorials are planned to describe the code for both VB.NET beginners and advanced programmers. What is ByteScout Premium Suite? It is the bundle that includes twelve SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording. It can help you to draw rectangles in pdf with pdf sdk in your VB.NET application.

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 rectangles in pdf with pdf sdk below and use it in your application. This VB.NET sample code is all you need for your app. Just copy and paste the code, add references (if needs to) and you are all set! Enjoy writing a code with ready-to-use sample VB.NET codes.

All these programming tutorials along with source code samples and ByteScout free trial version are available for download from our website.

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 System.Drawing
Imports Bytescout.PDF

''' <summary>
''' This example demonstrates how to draw rectangles.
''' </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 and brushes
        Dim borderPen = New SolidPen(New ColorGray(128), 2.0F)
        Dim brush1 = New Bytescout.PDF.SolidBrush(New ColorRGB(255, 0, 0))
        Dim brush2 = New Bytescout.PDF.SolidBrush(New ColorRGB(0, 255, 255))

        ' Draw transparent rectangle with border only
        canvas.DrawRectangle(borderPen, 100, 100, 100, 50)

        ' Draw rounded rectangle with broder and filling
        canvas.DrawRoundedRectangle(borderPen, brush1, 250, 100, 100, 50, 10)

        ' Draw rectangle as polygon
        canvas.DrawPolygon(borderPen, brush2, New PointF() {New PointF(400, 100), New PointF(500, 100), New PointF(500, 150), New PointF(400, 150)})

        ' 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