ByteScout PDF Suite – VB.NET – Draw with blend mode in pdf with pdf sdk

Home
/
Articles
/
ByteScout PDF Suite – VB.NET – Draw with blend mode in pdf with pdf sdk

printable version:
ByteScout-PDF-Suite-VB-NET-Draw-with-blend-mode-in-pdf-with-pdf-sdk.pdf

How to draw with blend mode in pdf with pdf sdk in VB.NET and ByteScout PDF Suite

This code in VB.NET shows how to draw with blend mode in pdf with pdf sdk with this how to tutorial

Every ByteScout tool includes simple example VB.NET source codes that you can get here or in the folder with installed ByteScout product. ByteScout PDF Suite: the bundle that provides six different SDK libraries to work with PDF from generating rich PDF reports to extracting data from PDF documents and converting them to HTML. This bundle includes PDF (Generator) SDK, PDF Renderer SDK, PDF Extractor SDK, PDF to HTML SDK, PDF Viewer SDK and PDF Generator SDK for Javascript. It can draw with blend mode in pdf with pdf sdk in VB.NET.

The following code snippet for ByteScout PDF Suite works best when you need to quickly draw with blend mode in pdf with pdf sdk in your VB.NET application. Simply copy and paste in your VB.NET project or application you and then run your app! Use of ByteScout PDF Suite in VB.NET is also described in the documentation included along with the product.

You can download free trial version of ByteScout PDF 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 use blend modes - a way how 
''' intersecting semi-transparent objects will blend on page canvas.
''' </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

        ' Create transparent brushes
        Dim brushRed = New SolidBrush(New ColorRGB(255, 0, 0))
        brushRed.Opacity = 50
        Dim brushGreen = New SolidBrush(New ColorRGB(0, 255, 0))
        brushGreen.Opacity = 50
        Dim brushBlue = New SolidBrush(New ColorRGB(0, 0, 255))
        brushBlue.Opacity = 50

        ' Normal blending
        canvas.BlendMode = BlendMode.Normal
        canvas.DrawCircle(brushRed, 100, 100, 50)
        canvas.DrawCircle(brushGreen, 100, 150, 50)
        canvas.DrawCircle(brushBlue, 150, 100, 50)

        ' Darken blending
        canvas.BlendMode = BlendMode.Darken
        canvas.DrawCircle(brushRed, 300, 100, 50)
        canvas.DrawCircle(brushGreen, 300, 150, 50)
        canvas.DrawCircle(brushBlue, 350, 100, 50)

        ' Lighten blending
        canvas.BlendMode = BlendMode.Lighten
        canvas.DrawCircle(brushRed, 100, 300, 50)
        canvas.DrawCircle(brushGreen, 100, 350, 50)
        canvas.DrawCircle(brushBlue, 150, 300, 50)

        ' Color burn blending
        canvas.BlendMode = BlendMode.ColorBurn
        canvas.DrawCircle(brushRed, 300, 300, 50)
        canvas.DrawCircle(brushGreen, 300, 350, 50)
        canvas.DrawCircle(brushBlue, 350, 300, 50)

        ' 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