- Start a new project.
- Add an AxImaging object to your form (AxImaging1)
- Add an AxGdViewer object to your form (AxGdViewer1)
- Add a Button object (Button1)
- Add a ListView object (ListView1)
- Add an OpenFileDialog object (OpenFileDialog1)
- Add an ImageList object (ImageList1)
And copy this code into Form1:
Code: Select all
Public Class Form1
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
For i As Integer = 0 To ListView1.Items.Count - 1
If ListView1.Items.Item(i).Selected = True Then
AxGdViewer1.DisplayFrame(i + 1)
Return
End If
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim nThumbnailID As Long
Dim nCpt As Integer
OpenFileDialog1.Filter = "PDF Files|*.pdf"
OpenFileDialog1.ShowDialog()
AxGdViewer1.ZoomMode = GdPicturePro5.ViewerZoomMode.ZoomFitToControl
AxGdViewer1.LockControl = True
AxGdViewer1.PdfDpiRendering = 50
AxGdViewer1.DisplayFromPdfFile(OpenFileDialog1.FileName)
ImageList1.ImageSize = New Size(100, 100)
ImageList1.Images.Clear()
ListView1.Items.Clear()
If AxGdViewer1.GetNativeImage <> 0 Then
For nCpt = 1 To AxGdViewer1.PageCount
AxGdViewer1.DisplayFrame(nCpt)
nThumbnailID = AxImaging1.CreateThumbnailHQ(AxGdViewer1.GetNativeImage, 100, 100)
AxImaging1.SetNativeImage(nThumbnailID)
Call ImageList1.Images.Add("", Bitmap.FromHbitmap(AxImaging1.GetHBitmap))
Call ListView1.Items.Add("", nCpt - 1)
AxImaging1.CloseImage(nThumbnailID)
Next nCpt
AxGdViewer1.PdfDpiRendering = 120
AxGdViewer1.LockControl = False
AxGdViewer1.DisplayFrame(1)
End If
ListView1.LargeImageList = ImageList1
End Sub
End Class