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

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

printable version:
ByteScout-Premium-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 Premium Suite

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

Quickly learn how to make thumbnail image from pdf with pdf renderer sdk in VB.NET with this sample source code. ByteScout Premium Suite can make thumbnail image from pdf with pdf renderer sdk. It can be applied from VB.NET. ByteScout Premium Suite is the bundle that includes twelve SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording.

The SDK samples given below describe how to quickly make your application do make thumbnail image from pdf with pdf renderer sdk in VB.NET with the help of ByteScout Premium Suite. Simply copy and paste in your VB.NET project or application you and then run your app! If you want to use these VB.NET sample examples in one or many applications then they can be used easily.

The trial version of ByteScout Premium Suite can be downloaded for free from our website. It also includes source code samples for VB.NET and other programming languages.

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