Problems with Changing Pages of Multipage Images
-
- Posts: 32
- Joined: Wed Jul 18, 2007 11:58 pm
Problems with Changing Pages of Multipage Images
I have a form where 2 separate image viewers are needed side by side. Everything seems to work fine except when I have a multipage image. When I try to go to the next page, it can only go to the amount of pages of the last picture I loaded.
For instance,
I load Picture A first on Viewer A, then Picture B on Viewer B.
If Picture A has 10 pages, and Picture b as 5 pages, I can only navigate the first 5 pages on both viewer A & viewer B.
Is there any quick way around this? Otherwise, when can you get it fixed?
For instance,
I load Picture A first on Viewer A, then Picture B on Viewer B.
If Picture A has 10 pages, and Picture b as 5 pages, I can only navigate the first 5 pages on both viewer A & viewer B.
Is there any quick way around this? Otherwise, when can you get it fixed?
-
- Posts: 32
- Joined: Wed Jul 18, 2007 11:58 pm
I don't think there is a problem with my code. I even modified your MS Access demo so that it has 2 viewers, and it still showed the problem. Below is the code I used. If on oGdViewer I load a 167 page pdf, then after on oGdViewer2 I load a 1 page pdf, I can only navigate to the first page on both. However, if I load the 1 page pdf first, then the 167 page pdf, I can see all the pages.
Code: Select all
Private Sub OpenPDF_Click()
cmddlg.FileName = ""
cmddlg.ShowOpen
If cmddlg.FileName <> "" Then
oGdViewer.DisplayFromPdfFile (cmddlg.FileName)
End If
cmddlg.FileName = ""
cmddlg.ShowOpen
If cmddlg.FileName <> "" Then
oGdViewer2.DisplayFromPdfFile (cmddlg.FileName)
End If
End Sub
Private Sub Commande29_Click()
oGdViewer.DisplayFirstFrame
End Sub
Private Sub Commande30_Click()
oGdViewer.DisplayPreviousFrame
End Sub
Private Sub Commande31_Click()
oGdViewer.DisplayNextFrame
End Sub
Private Sub Commande32_Click()
oGdViewer.DisplayLastFrame
End Sub
Private Sub Command52_Click()
oGdViewer2.DisplayFirstFrame
End Sub
Private Sub Command53_Click()
oGdViewer2.DisplayPreviousFrame
End Sub
Private Sub Command54_Click()
oGdViewer2.DisplayNextFrame
End Sub
Private Sub Command55_Click()
oGdViewer2.DisplayLastFrame
End Sub
Private Sub oGdViewer_PageChange()
lbPage.Caption = oGdViewer.Currentpage & "/" & oGdViewer.NumPages
End Sub
Private Sub oGdViewer2_PageChange()
lbPage2.Caption = oGdViewer2.Currentpage & "/" & oGdViewer2.NumPages
End Sub
-
- Posts: 32
- Joined: Wed Jul 18, 2007 11:58 pm
Who is online
Users browsing this forum: Majestic-12 [Bot] and 1 guest