控制相同类型的许多实例

时间:2016-11-29 20:00:11

标签: vb.net gecko instances

我最近决定看看vb.net上发生了什么,我很想为自己创建一个基本的网络浏览器。

我在我的表单和壁虎组件中添加了一个tabcontrol,到目前为止一切都很好。我还设法在新标签中打开一个点击的链接(我觉得这很困难)然后我意识到新标签中的浏览器(第二个实例)没有#34;听"遵守这条规则。

这是代码

Private Sub Gecko_DomClick(sender As Object, e As DomMouseEventArgs) Handles Gecko.DomClick
    Clicked = Gecko.Document.ActiveElement.GetAttribute("href")
    If Clicked <> "" Then
        Gecko.Navigate(False)
        Dim Gk As New Gecko.GeckoWebBrowser
        TabControl1.TabPages.Add("New Page")
        TabControl1.SelectTab(1)
        Gk.Name = "Web Browser"
        Gk.Dock = DockStyle.Fill
        TabControl1.SelectedTab.Controls.Add(Gk)
        CType(TabControl1.SelectedTab.Controls.Item(0), Gecko.GeckoWebBrowser).Navigate(Clicked)
    End If
End Sub

所以我的问题是,如何编写一个函数来控制gecko浏览器的每个新实例?

0 个答案:

没有答案