我最近决定看看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浏览器的每个新实例?