Problems with Changing Pages of Multipage Images

[absoffthewake]

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?

[Loïc]

Hi,

I can not reproduce this behaviour with the last edition.
I think you are making a confusion into your project.

Regards,

Loïc

[absoffthewake]

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


[Loïc]

Hi,

OK, I had not understood that you speak about PDF files.

I've made a fix to solve that.

Please update your component from the download area.

Best regards,

Loïc

[absoffthewake]

Awesome! Works perfect now.

I have to commend you on the wonderful job you have done on this control. It is by far the best value for the money.

[Loïc]

Good !

Thanks for your feedback !
Best regards,

Loïc