okay sorry ich hatte nur vorns nicht genügend zeit zu antworten
also ich habe alles noch mal so abgeändert:
und wenn ich dann auf einmal auf mein erstellten button klicke der eine registerkarte bzw. tab hinzufügen soll ( der name vom button hab ich addBtn genannt --> unten am code) im debug modus kommt dann auf einmal eine fehlermeldung wo in mein code --> For Each wb As Skybound.Gecko.GeckoWebBrowser In TabControl1.SelectedTab.Controls <-- gelb untersrichen wird und dann steht in einen fenster : Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
also ich habe alles noch mal so abgeändert:
Quellcode
- Public Class Form1
- Dim aktiverBrowser As skybound.gecko.geckowebbrowser
- Private Sub getAktiverBrowser()
- For Each wb As skybound.gecko.geckowebbrowser In TabControl1.SelectedTab.Controls
- aktiverBrowser = wb
- Exit For
- Next
- End Sub
- Public Sub addTab(ByVal name As String, ByVal url As String)
- Dim tab As TabPage = New TabPage(name)
- Dim vb As skybound.gecko.geckowebbrowser = skybound.gecko.geckowebbrowser
- vb.Navigate(url)
- vb.Dock = DockStyle.Fill
- tab.Controls.Add(vb)
- TabControl1.TabPages.Add(tab)
- TabControl1.SelectTab(tab)
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- TabControl1.TabPages.Clear()
- addTab("Neuer Tab", "about:blank")
- getAktiverBrowser()
- End Sub
- Private Sub addBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addBtn.Click
- getAktiverBrowser()
- addTab("Neuer Tab", "about:blank")
- End Sub
- End Class
und wenn ich dann auf einmal auf mein erstellten button klicke der eine registerkarte bzw. tab hinzufügen soll ( der name vom button hab ich addBtn genannt --> unten am code) im debug modus kommt dann auf einmal eine fehlermeldung wo in mein code --> For Each wb As Skybound.Gecko.GeckoWebBrowser In TabControl1.SelectedTab.Controls <-- gelb untersrichen wird und dann steht in einen fenster : Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
