ByteScout PDF SDK – VB.NET – Draw with Color Profiles in PDF

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

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

How to draw with color profiles in PDF in VB.NET and ByteScout PDF SDK

Tutorial on how to draw with color profiles in PDF in VB.NET

These source code samples are listed and grouped by their programming language and functions they use. 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 and you can use it to draw with color profiles in PDF with VB.NET.

You will save a lot of time on writing and testing code as you may just take the VB.NET code from ByteScout PDF SDK for draw with color profiles in PDF below and use it in your 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. Implementing VB.NET application typically includes multiple stages of the software development so even if the functionality works please test it with your data and the production environment.

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 use color profiles.
''' </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)

        ' Load ICC color profile
        Dim iccProfile = New ICCBasedColorspace("USWebCoatedSWOP.icc")
        ' Create profiled color brush
        Dim iccColor = New ColorICC(iccProfile, New ColorCMYK(0, 100, 0, 0))
        Dim iccBrush = New SolidBrush(iccColor)
        ' Draw a circle using the brush
        page.Canvas.DrawCircle(iccBrush, 200, 200, 100)

        ' 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