Solved Web Browser Controls : A never ending struggle. (1 Viewer)

[isladogs]

As I said, I edited your database in #9.
The only edit I did was
Changed this line:
pdfBrowser.Height = 8000
to:
pdfBrowser.Height = wBrowser.Height

Your database stopped working. Give it a try.

I'll follow your instructions in the morning
Thanks again

I had tested before I posted.
Just to be clear, I was referring to changes to your original form from post #1.

Or using the modified version of your form from post #9, change the code to:

Private Sub Detail_DblClick(Cancel As Integer)   

    Dim pth As String
    Static Indx As Integer   

    Select Case Indx
        Case 0
            Indx = 1
        Case 1
            Indx = 2
        Case 2
            Indx = 3
        Case 3
            Indx = 1
    End Select

    pth = "https://msaccess/" & CurrentProject.Path & "\" & Indx & ".pdf"

    With pdfBrowser
        .ControlSource = pth
        .Height = wBrowser.Height
        .SetFocus
    End With       

End Sub

Private Sub Form_Open(Cancel As Integer) 

    pdfBrowser.Top = wBrowser.Top
    pdfBrowser.Height = 0   

End Sub

I hope you don't see or respond to this until the morning (Japan time)

 

[KitaYama]

I don't use anydesk but It works for me - no delay - see attached

@CJ_London
First, I’m truly sorry that I missed your second post.
Second, please accept my sincere apologies. I tested your solution again this morning, and it’s working perfectly. I honestly don’t know why the homepage didn’t show up when I tested it last night. It may have been because I was using a remote desktop app (AnyDesk) to access my office PC, and something went wrong on my end.

I feel really bad for reporting an incorrect result. That was completely my mistake, and I’m genuinely sorry for any confusion I may have caused.
I will correct my previous post, in case anyone in future visits this page.

Thanks again.

@isladogs It seems that @CJ_London has found a solution that solves the problem, yet not working on heights. (#6 Post)

 

[KitaYama]

I had tested before I posted.
Just to be clear, I was referring to changes to your original form from post #1.

Or using the modified version of your form from post #9, change the code to:

Private Sub Detail_DblClick(Cancel As Integer)

    Dim pth As String
    Static Indx As Integer

    Select Case Indx
        Case 0
            Indx = 1
        Case 1
            Indx = 2
        Case 2
            Indx = 3
        Case 3
            Indx = 1
    End Select

    pth = "https://msaccess/" & CurrentProject.Path & "\" & Indx & ".pdf"

    With pdfBrowser
        .ControlSource = pth
        .Height = wBrowser.Height
        .SetFocus
    End With   

End Sub

Private Sub Form_Open(Cancel As Integer)

    pdfBrowser.Top = wBrowser.Top
    pdfBrowser.Height = 0

End Sub

I hope you don't see or respond to this until the morning (Japan time)

@isladogs Thanks for additional details.
Now I'm set and the my form looks perfect. I really appreciate your help.

One final (I promise, It's the last) favor.
Whenever you have 5 minutes free time, would you please test the database attached to this post?
Does it work for you? It seems it can not show the second and later PDFs.
(It's your own file, I simply changed the Height line)

Again, Million thanks.

 

[isladogs]

You forgot to disable or remove the final line which had set wbrowser to 0 on the first double click. So on the second double click, the pdfbrowser height also becomes 0 and only shows as a thin grey line! If you look at my code above, I had removed the line

Attached is the working version with that change saved as form Form2Edge_FIXED_v2.

I've also reinstated my own version of the form which deliberately opens to my Web article on modifying the hosts file to speed up the loading of local files. I thought it might be useful to both you and others!

 

[KitaYama]

thanks.