Code: Select all
Try
GdViewer1.CloseDocument()
GdViewer1.SilentMode = True
GdViewer1.MouseWheelMode = ViewerMouseWheelMode.MouseWheelModeVerticalScroll
GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
If Mid(ImagePath, Len(ImagePath) - 2) = "pdf" Then
Dim oPDF As GdPicturePDF = New GdPicturePDF
If oPDF.LoadFromFile(ImagePath, False) = GdPictureStatus.OK Then
For i As Integer = 1 To oPDF.GetPageCount
oPDF.SelectPage(i)
Dim raster_page As Integer = oPDF.RenderPageToGdPictureImage(200, False)
If i = 1 Then
m_ImageID = oGdPictureImaging.TiffCreateMultiPageFromGdPictureImage(raster_page)
Else
oGdPictureImaging.TiffAppendPageFromGdPictureImage(m_ImageID, raster_page)
End If
oGdPictureImaging.ReleaseGdPictureImage(raster_page)
Next
oPDF.CloseDocument()
Else
MessageBox.Show("Path1 is " & ImagePath, "Problem", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Else
m_ImageID = oGdPictureImaging.CreateGdPictureImageFromFile(ImagePath)
End If
If m_ImageID <> 0 Then
GdViewer1.DisplayFromGdPictureImage(m_ImageID)
GdViewer1.Focus()
ThumbnailEx1.LoadFromGdViewer(GdViewer1)
GdViewer1.SetVScrollBarPosition(0)
wrk_Image_FullPath = ImagePath
wrk_Image_Name = wrk_Image_FullPath.Substring(wrk_Image_FullPath.LastIndexOf("\") + 1)
tslPages.Text = GdViewer1.CurrentPage.ToString & " of " & GdViewer1.PageCount.ToString
Return True
Else
MessageBox.Show("Path2 is " & ImagePath, "Problem", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Catch ex As Exception
MsgBox("Error occured loading image" & vbCrLf & ex.Message, vbCritical, "Load Image")
End Try