ByteScout PDF SDK - VB.NET - Use PDF Layers - ByteScout

ByteScout PDF SDK – VB.NET – Use PDF Layers

  • Home
  • /
  • Articles
  • /
  • ByteScout PDF SDK – VB.NET – Use PDF Layers

How to use PDF layers in VB.NET using ByteScout PDF SDK

The tutorial shows how to use PDF layers in VB.NET

Sample source code below will show you how to cope with a difficult task like use PDF layers in VB.NET. ByteScout PDF SDK can use PDF layers. It can be used from VB.NET. ByteScout PDF SDK is the SDK 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.

VB.NET code samples for VB.NET developers help to speed up coding of your application when using ByteScout PDF SDK. 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 codes in VB.NET.

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

Try ByteScout PDF SDK today:  60 Day Free Trial (on-premise) or  Web API (on-demand version)

Program.vb
      
Imports System.Drawing Imports Bytescout.PDF ''' <summary> ''' This example demonstrates how to add layers with optional content. ''' </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 ' Add main layer Dim allContents = New Layer("Main Layer") canvas.BeginMarkedContent(allContents) ' Add sub-layer Dim layer1 = New Layer("Square") canvas.BeginMarkedContent(layer1) canvas.DrawRectangle(New Bytescout.PDF.SolidBrush(New ColorRGB(0, 255, 0)), 20, 20, 100, 100) canvas.EndMarkedContent() ' Add second sub-layer Dim layer2 = New Layer("Circle") canvas.BeginMarkedContent(layer2) canvas.DrawCircle(New Bytescout.PDF.SolidBrush(New ColorRGB(255, 0, 0)), 70, 180, 50) canvas.EndMarkedContent() ' Add third sub-layer Dim layer3 = New Layer("Triangle") canvas.BeginMarkedContent(layer3) canvas.DrawPolygon(New Bytescout.PDF.SolidBrush(New ColorRGB(0, 0, 255)), New PointF() {New PointF(20, 340), New PointF(70, 240), New PointF(120, 340)}) canvas.EndMarkedContent() canvas.EndMarkedContent() pdfDocument.OptionalContents.Layers.Add(layer1) pdfDocument.OptionalContents.Layers.Add(layer2) pdfDocument.OptionalContents.Layers.Add(layer3) pdfDocument.OptionalContents.Layers.Add(allContents) ' Configure layers ' Group sub-layers Dim group = New OptionalContentGroup() group.Add(New OptionalContentGroupLayer(layer1)) group.Add(New OptionalContentGroupLayer(layer2)) group.Add(New OptionalContentGroupLayer(layer3)) ' Order sub-layers pdfDocument.OptionalContents.Configuration.Order.Add(New OptionalContentGroupLayer(allContents)) pdfDocument.OptionalContents.Configuration.Order.Add(group) ' Make the third layer invisible by default (for example) pdfDocument.OptionalContents.Configuration.OFF.Add(layer3) ' Force the PDF viewer to show the layers panel initially pdfDocument.PageMode = PageMode.OptionalContent ' 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

Try ByteScout PDF SDK today:  60 Day Free Trial (on-premise) or  Web API (on-demand version)

VIDEO

ON-PREMISE VERSION INFORMATION

Get 60 Day Free Trial or Visit ByteScout PDF SDK Home Page

Explore ByteScout PDF SDK Documentation

Get ByteScout PDF SDK Free Training

WEB API

Get Your Free API Key

Explore Web API Documentation

Tutorials:

prev
next