превосходный пользовательский контроль веб-браузера на многостраничном управлении - PullRequest
Новая
       7

превосходный пользовательский контроль веб-браузера на многостраничном управлении

0 голосов
/ 05 сентября 2018

Кто-нибудь пытался использовать элемент управления веб-браузера на многостраничном элементе управления, когда вы переключаетесь между страницами, а затем снова переключаетесь обратно, элемент управления веб-браузера исчезает?

Ответы [ 2 ]

0 голосов
/ 24 июля 2019

Вы также можете использовать вкладку с несколькими веб-браузерами. Этот параметр имеет преимущество сохранения последней загруженной веб-страницы гаджета. Просто создайте элемент управления вкладкой с нужным номером веб-страницы. Для измерений веб-браузера, я предлагаю вам визуально создать его и взять его координаты, прежде чем уничтожить его. Вот код для использования. 

enter code here
Dim webbrowser(3)
Dim actuelpage

Private Sub TabStrip1_Change()
    webbrowser(actuelpage).Visible = False
    actuelpage = Me.TabStrip1.SelectedItem.Index
    webbrowser(actuelpage).Visible = True
End Sub

Private Sub UserForm_Activate()
    Dim pages As Variant
    pages = Array("www.google.com", "www.allo.com", "www.microsoft.com")
    For a = 0 To UBound(webbrowser) - 1
        Set webbrowser(a) = Me.Controls.Add("Shell.Explorer.2")
        webbrowser(a).Height = 306
        webbrowser(a).Left = 30
        webbrowser(a).Top = 42
        webbrowser(a).Width = 684
        webbrowser(a).Silent = True
        webbrowser(a).navigate pages(a)
        webbrowser(a).Visible = False        
    Next a
    actuelpage = 0
    webbrowser(actuelpage).Visible = True
End Sub
enter code here
0 голосов
/ 06 сентября 2018

управление веб-браузером, не работающее на многостраничном контроле, кажется распространенной проблемой, и до сих пор я не видел решения.

Вот решение, которое я разработал. Он просто заново создает элемент управления веб-браузера при каждом выборе страницы. 

Dim wbr As SHDocVw.WebBrowser

Private Sub MultiPage1_Change()
    If MultiPage1.SelectedItem.Name = "Page 1" Then

        Set wbr = Nothing
        Set wbr = Me.MultiPage1.SelectedItem.Controls.Add("Shell.Explorer.2")

        wbr.Height = 700
        wbr.Left = 96
        wbr.Top = 24
        wbr.Width = 570
        wbr.Navigate "About:Blank"
        wbr.Document.write "<HTML><Body><embed src=""file:///C:\Users\User\File.pdf"" width=100% height=100%/></Body></HTML>"
        wbr.Document.body.scroll = "no"
    End If
End Sub

Private Sub UserForm_Initialize()

    Set wbr = Me.MultiPage1.SelectedItem.Controls.Add("Shell.Explorer.2")

    wbr.Height = 700
    wbr.Left = 96
    wbr.Top = 24
    wbr.Width = 570
    wbr.Navigate "About:Blank"
    wbr.Document.write "<HTML><Body><embed src=""file:///C:\Users\User\File.pdf"" width=100% height=100%/></Body></HTML>"
    wbr.Document.body.scroll = "no"
End Sub
...