ViscomSoft Software

VB.NET - How to display PDF Thumbnail and PDF Viewer

Step 1: To install the PDF Viewer SDK ActiveX Control, begin by launching the setup file (https://www.viscomsoft.com/demo/pdfviewersetup.exe). Select the desired installation folder for the PDF Viewer SDK ActiveX and continue with the installation on your development computer.

Step 2: To install the Image Thumbnail CP SDK ActiveX x64 Control, begin by launching the setup file (https://www.viscomsoft.com/demo/imagethumbnailx64setup.exe). Select the desired installation folder for the Image Thumbnail CP SDK ActiveX x64 and continue with the installation on your development computer.

Step 3: Create New Visual Basic Project, select Windows Form Application.

Step 4: The next step is to install Image Thumbnail SDK ActiveX x64 Control in ToolBox. Select Toolbox, select Components item, right click mouse button, select Choose Items.

In COM Components tab, select Image Thumbnail SDK ActiveX x64 Control, click OK.



Step 6: The next step is to install PDF Viewer ActiveX Control in ToolBox. Select Toolbox, select Components item, right click mouse button, select Choose Items.

Step 7:  In COM Components tab, select PDF Viewer ActiveX Control, click OK.

Step 8:  Drag the Image Thumbnail CP ActiveX x64 from ToolBox to form.  Move the Position of  Image Thumbnail CP ActiveX x64 to left hand size.

Drag the PDF Viewer ActiveX  from ToolBox to form.  Move the Position of  PDF Viewer ActiveX to right hand size.



Step 9:  add button , textbox, label and OpenFileDialog contorl on form.



Step 10:  add the following code in Open PDF button 's click event

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        AxImageThumbnailCP1.DeleteAllClips()

        OpenFileDialog1.Filter = "PDF (*.pdf)|*.pdf"

        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then

            AxImageThumbnailCP1.AddClip(OpenFileDialog1.FileName, "")

            AxPDFViewer1.LoadPDFFile(OpenFileDialog1.FileName)

        End If

    End Sub

Step 12:  add the following code in Image Thumbnail Click event

Private Sub AxImageThumbnailCP1_ClickEvent(sender As Object, e As AxIMAGETHUMBNAILCPLib._DImageThumbnailCPEvents_ClickEvent) Handles AxImageThumbnailCP1.ClickEvent

        If e.iClipIndex <> 0 Then

            If e.iClipIndex < Val(txtpageno.Text) Then

                AxPDFViewer1.GoToPrevPage()

            Else

                AxPDFViewer1.GoToNextPage()

            End If

        Else

            AxPDFViewer1.GoToPage(0)

        End If

        txtpageno.Text = e.iClipIndex.ToString()

    End Sub

Step 13: Run the sample. click 'Open PDF' button, then select multipage PDF file, you will see it display PDF thumbnail List.

Download this sample