更改选项卡时，MultiPage 上的 WebBrowser 失败并出现 object 'IWebBrowser2' 错误的“导航”

Question

在 MultiPage 表单的第 4 页上，我创建了一个 WebBrowser1 object。 在第 4 页上有 2 个按钮：一个用于 msn.com，另一个用于 google.com。 如果用户窗体在打开时默认为第 4 页，则按钮最初可以正常工作，但如果选择了其他页面之一，然后用户返回到第 4 页，单击任一按钮会导致宏崩溃并显示错误消息object“IWebBrowser2”的“导航”失败。

   Private Sub CommandButton23_Click()
      Me.WebBrowser1.Navigate ("https://www.msn.com")
   End Sub

   Private Sub CommandButton24_Click()
      Me.WebBrowser1.Navigate ("https://google.com")
   End Sub

Answer 1

似乎每次重新/加载第 4 页时都需要“刷新”WebBrowser。 一种解决方案是从用户窗体中删除 WebBrowser1 object 并最初动态创建一个 WebBrowser（wbr，如下），然后每次重新选择第 4 页。

Dim wbr As SHDocVw.WebBrowser

Private Sub MultiPage1_Change()
    If MultiPage1.SelectedItem.Name = "Page 4" 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"
    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"
End Sub

我不能把这个解决方案归功于这个解决方案——它实际上是在 stackoverflow 的另一篇文章中针对不同的问题！

看看： Resizing WebBrowser Control on Excel UserForm with DPI