ByteScout PDF SDK – VB.NET – Draw Tiling Patterns in PDF

Home
/
Articles
/
ByteScout PDF SDK – VB.NET – Draw Tiling Patterns in PDF

printable version:
ByteScout-PDF-SDK-VB-NET-Draw-Tiling-Patterns-in-PDF.pdf

How to draw tiling patterns in PDF in VB.NET using ByteScout PDF SDK

The tutorial below will demonstrate how to draw tiling patterns in PDF in VB.NET

Sample source code below will show you how to cope with a difficult task like draw tiling patterns in PDF in VB.NET. ByteScout PDF SDK is the library for pdf documents generation, modification and updates. Can also generate and fill PDF forms. Provides support for text (fonts, style, size, font family), layers, pdf form fields, vector and raster drawings. It can be used to draw tiling patterns in PDF using VB.NET.

The SDK samples like this one below explain how to quickly make your application do draw tiling patterns in PDF in VB.NET with the help of ByteScout PDF SDK. Follow the instructions from the scratch to work and copy the VB.NET code. You can use these VB.NET sample examples in one or many applications.

Free trial version of ByteScout PDF SDK is available for download from our website. Get it to try 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 use tiling patterns.
''' </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 blueColor = New ColorRGB(0, 0, 255)
        Dim grayColor = New ColorRGB(128, 128, 128)

        ' Create tiling brush and paint on it 
        Dim tilingBrush1 = New UncoloredTilingBrush(10, 12)
        Dim brushCanvas = tilingBrush1.Canvas
        brushCanvas.DrawCircle(New SolidPen(blueColor), 0, 6, 6)
        tilingBrush1.Color = blueColor

        ' Create second tiling brush and paint on it using the first brush
        Dim tilingBrush2 = New ColoredTilingBrush(70, 50)
        brushCanvas = tilingBrush2.Canvas
        brushCanvas.DrawEllipse(New SolidPen(grayColor), tilingBrush1, 0, 0, 60, 20)

        ' Draw rectangle and fill it with combined tiling brush
        page.Canvas.DrawRectangle(New SolidPen(), tilingBrush2, 100, 100, 400, 400)

        ' 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