ByteScout Premium Suite – VB.NET – Extract images by page from pdf with pdf extractor sdk

Home
/
Articles
/
ByteScout Premium Suite – VB.NET – Extract images by page from pdf with pdf extractor sdk

printable version:
ByteScout-Premium-Suite-VB-NET-Extract-images-by-page-from-pdf-with-pdf-extractor-sdk.pdf

How to extract images by page from pdf with pdf extractor sdk in VB.NET with ByteScout Premium Suite

Continuous learning is a crucial part of computer science and this tutorial shows how to extract images by page from pdf with pdf extractor sdk in VB.NET

We made thousands of pre-made source code pieces for easy implementation in your own programming projects. ByteScout Premium Suite is the bundle that includes twelve SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording. It can extract images by page from pdf with pdf extractor sdk in VB.NET.

Want to quickly learn? This fast application programming interfaces of ByteScout Premium Suite for VB.NET plus the guidelines and the code below will help you quickly learn how to extract images by page from pdf with pdf extractor sdk. Follow the instructions from scratch to work and copy the VB.NET code. Use of ByteScout Premium Suite in VB.NET is also described in the documentation included along with the product.

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)

Program.vb

      Imports Bytescout.PDFExtractor
Imports System.Drawing.Imaging

Class Program
	Friend Shared Sub Main(args As String())

        ' Create Bytescout.PDFExtractor.ImageExtractor instance
        Dim extractor As New ImageExtractor()
		extractor.RegistrationName = "demo"
		extractor.RegistrationKey = "demo"

		' Load sample PDF document
        extractor.LoadDocumentFromFile(".\sample1.pdf")

        ' Get count of pages
		Dim pageCount As Integer = extractor.GetPageCount()

        ' Extract images from each page
        For i As Integer = 0 To pageCount - 1

            Dim j As Integer = 0

            ' Initialize page images enumeration
            If extractor.GetFirstPageImage(i) Then
                Do
                    Dim outputFileName As String = "page" & i & "image" & j & ".png"

                    ' Save image to file
                    extractor.SaveCurrentImageToFile(outputFileName, ImageFormat.Png)

                    j = j + 1

                Loop While extractor.GetNextImage() ' Advance image enumeration
            End If

        Next

        ' Cleanup
		extractor.Dispose()

		' Open result file in default associated application (for demo purposes)
        System.Diagnostics.Process.Start("page0image0.png")
        
	End Sub
End Class