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

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

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

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

Step-by-step tutorial on how to draw with transparency in pdf with pdf sdk in VB.NET

Draw with transparency in pdf with pdf sdk is simple to apply in VB.NET if you use these source codes below. ByteScout Premium Suite can draw with transparency in pdf with pdf sdk. It can be applied from 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.

Want to quickly learn? This fast application programming interfaces of ByteScout Premium Suite for VB.NET plus the guidelines and the code below will help you quickly learn how to draw with transparency in pdf with pdf sdk. IF you want to implement the functionality, just 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.

Trial version of ByteScout Premium Suite is available for free. Source code samples are included to help you with your VB.NET app.

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