hey ,
Wie der Titel schon sagt mache ich gerade ein kleinen Webbrowser mit Tabs
klappt bisher alles sehr gut bis auf eins ,
wenn ich ein neuen Tab öffne und eine Addresse eingebe öffnet er diese in dem ersten Tab statt in den Aktuellen
Ich weiß ungefair wo der Fehler liegt aber so doof wie es klingt Ich bekomm es nicht hinn
hier mein Code :
Der Fehler sollte in das tcAddress_Keydown Event liegen aber bekomm es leider nicht gelöst
wäre lieb wenn mal ebend jemand helfen könnte
LG
Wie der Titel schon sagt mache ich gerade ein kleinen Webbrowser mit Tabs
klappt bisher alles sehr gut bis auf eins ,
wenn ich ein neuen Tab öffne und eine Addresse eingebe öffnet er diese in dem ersten Tab statt in den Aktuellen
Ich weiß ungefair wo der Fehler liegt aber so doof wie es klingt Ich bekomm es nicht hinn
hier mein Code :
VB.NET-Quellcode
- Option Strict On
- Public Class Form1
- Dim CurrBrowser As WebBrowser
- Private Sub wb_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
- Me.Tabcontrol1.SelectedTab.Text = CurrBrowser.DocumentTitle
- Me.Tabcontrol1.SelectedTab.Text = CurrBrowser.Url.AbsoluteUri
- End Sub
- Private Sub wb_Navigating(ByVal sender As Object, ByVal e As WebBrowserNavigatingEventArgs)
- Me.Tabcontrol1.SelectedTab.Text = "Laden ..."
- Me.tcAddress.Text = CurrBrowser.Url.AbsoluteUri
- End Sub
- Private Sub wb_Navigated(ByVal sender As Object, ByVal e As WebBrowserNavigatedEventArgs)
- Me.tcAddress.Text = CurrBrowser.Url.AbsoluteUri
- End Sub
- Sub AddTab(ByVal name As String, ByVal url As String)
- Dim tab As TabPage = New TabPage(name)
- Dim wb As WebBrowser = New WebBrowser
- wb.Navigate(url)
- wb.Dock = DockStyle.Fill
- tab.Controls.Add(wb)
- AddHandler wb.DocumentCompleted, AddressOf wb_DocumentCompleted
- AddHandler wb.Navigating, AddressOf wb_Navigating
- AddHandler wb.Navigated, AddressOf wb_Navigated
- Me.Tabcontrol1.TabPages.Add(tab)
- End Sub
- Sub GetCurrBrowser()
- For Each wb As WebBrowser In Me.Tabcontrol1.SelectedTab.Controls
- CurrBrowser = wb
- Exit For
- Next
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Me.Tabcontrol1.TabPages.Clear()
- AddTab("Neuer Tab...", "Http://www.google.de")
- GetCurrBrowser()
- End Sub
- Private Sub tcAddress_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tcAddress.KeyDown
- If e.KeyCode = Keys.Enter Then
- CurrBrowser.Navigate(Me.tcAddress.Text)
- End If
- End Sub
- Private Sub newTab_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles newTab.Click
- AddTab("Neuer Tab", "about:blank")
- End Sub
- Private Sub Tabcontrol1_TabIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tabcontrol1.TabIndexChanged
- GetCurrBrowser()
- End Sub
- End Class
Der Fehler sollte in das tcAddress_Keydown Event liegen aber bekomm es leider nicht gelöst
wäre lieb wenn mal ebend jemand helfen könnte
LG