ByteScout PDF Suite – VB.NET – Make thumbnail image from pdf with pdf renderer sdk

Home
/
Articles
/
ByteScout PDF Suite – VB.NET – Make thumbnail image from pdf with pdf renderer sdk

printable version:
ByteScout-PDF-Suite-VB-NET-Make-thumbnail-image-from-pdf-with-pdf-renderer-sdk.pdf

How to make thumbnail image from pdf with pdf renderer sdk in VB.NET with ByteScout PDF Suite

Learn to make thumbnail image from pdf with pdf renderer sdk in VB.NET

The sample shows instructions and algorithm of how to make thumbnail image from pdf with pdf renderer sdk and how to make it run in your VB.NET application. ByteScout PDF Suite: the set that includes 6 SDK products 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 make thumbnail image from pdf with pdf renderer sdk in VB.NET.

These VB.NET code samples for VB.NET guide developers to speed up coding of the application when using ByteScout PDF Suite. Just copy and paste the code into your VB.NET application’s code and follow the instructions. 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 to see and try many others 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)

Module1.vb

      Imports System.Drawing
Imports Bytescout.PDFRenderer

Module Module1

    Sub Main()

        ' Create an instance of Bytescout.PDFRenderer.RasterRenderer object and register it
        Dim renderer As New RasterRenderer()
        renderer.RegistrationName = "demo"
        renderer.RegistrationKey = "demo"

        ' Load PDF document
        renderer.LoadDocumentFromFile("multipage.pdf")

        ' Get size of the page in Points (standard PDF document units; 1 Point = 1/72")
        Dim rectangle As RectangleF = renderer.GetPageRectangle(0)

        Dim width, height As Integer

        If rectangle.Width < rectangle.Height Then ' portrait page orientation

            width = -1 ' width will be calculated from height keeping the aspect ratio
            height = 100

        Else ' landscape page orientation

            width = 100
            height = -1	' height will be calculated from width keeping the aspect ratio

        End If

        ' Render first page of the document to JPEG image file
        renderer.Save("thumbnail.jpg", RasterImageFormat.JPEG, 0, width, height)

        ' Cleanup
        renderer.Dispose()

        ' Open the output image file in default image viewer
        System.Diagnostics.Process.Start("thumbnail.jpg")

    End Sub

End Module