时间戳

首页 > 解决方案 > 多页控件上的Webbrowser控件在页面之间切换时消失

excel - 多页控件上的Webbrowser控件在页面之间切换时消失

问题描述

在多页控件上使用 webbrowser 控件时，为什么在页面之间切换然后再返回会导致 webbrowser 控件消失？

标签： excelvba

解决方案

您还可以将选项卡控件与多个网络浏览器一起使用。此选项的优点是保留小工具最后加载的网页。只需使用所需的网页编号创建一个选项卡控件。对于 webbrowser 的维度，我建议您在销毁它之前直观地创建一个并获取它的坐标。这是要使用的代码。

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

推荐阅读