ByteScout PDF SDK – VB.NET – Draw with Transparency in PDF

Home
/
Articles
/
ByteScout PDF SDK – VB.NET – Draw with Transparency in PDF

printable version:
ByteScout-PDF-SDK-VB-NET-Draw-with-Transparency-in-PDF.pdf

How to draw with transparency in PDF in VB.NET using ByteScout PDF SDK

How to code in VB.NET to draw with transparency in PDF with this step-by-step tutorial

The documentation is designed to help you to implement the features on your side. 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 with transparency in PDF using VB.NET.

This code snippet below for ByteScout PDF SDK works best when you need to quickly draw with transparency in PDF in your VB.NET application. In order to implement the functionality, you should copy and paste this code for VB.NET below into your code editor with your app, compile and run your application. Enjoy writing a code with ready-to-use sample VB.NET codes.

Free trial version of ByteScout PDF SDK is available on our website. Documentation and source code samples are included.

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 draw transparent objects.
''' </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 ColorRGB(0, 0, 0), 2.0F)

        Dim brush1 = New SolidBrush(New ColorRGB(255, 0, 0))
        Dim brush2 = New SolidBrush(New ColorRGB(0, 0, 255))

        borderPen.Opacity = 50
        brush1.Opacity = 30
        brush2.Opacity = 60

        ' Draw normal rectangles
        canvas.DrawRectangle(brush1, 100, 100, 100, 100)
        canvas.DrawRectangle(borderPen, brush2, 150, 150, 100, 100)

        borderPen.Opacity = 80
        brush1.Opacity = 60
        brush2.Opacity = 30

        ' Draw rounded rectangles
        canvas.DrawRoundedRectangle(brush1, 220, 100, 100, 100, 10)
        canvas.DrawRoundedRectangle(borderPen, brush2, 270, 150, 100, 100, 10)

        ' 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