Hallo!
Ich hab da mal ne frage!
Unzwar, wenn ich was in die Combobox eintippe, werde ich nicht navigiert!, was muss ich ändern, damit ich navigiert werde?
Danke im Voraus
Gruß
jan1996
Ich hab da mal ne frage!
Unzwar, wenn ich was in die Combobox eintippe, werde ich nicht navigiert!, was muss ich ändern, damit ich navigiert werde?
VB.NET-Quellcode
- Dim CurrBrowser As WebBrowser
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- ' Alle Tabs entfernen
- Me.TabControl1.TabPages.Clear()
- AddTab("leere Seite", "about:blank")
- ' Jetzigen Browser auslesen
- GetCurrBrowser()
- End Sub
- Private Sub ComboBox1_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles ComboBox1.KeyDown
- ' Wenn ENTER gedrückt wird navigieren und zur
- ' ComoBox hinzufügen.
- If e.KeyCode = Keys.Enter Then
- CurrBrowser.Navigate(Me.ComboBox1.Text)
- Me.ComboBox1.Items.Add(Me.ComboBox1.Text)
- End If
- End Sub
- Private Sub TabPage1_TabIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.TabIndexChanged
- GetCurrBrowser()
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- ' Tab hinzufügen siehe "Sub AddTab()"
- AddTab("leere Seite", "about:blank")
- End Sub
- Private Sub wb_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
- ' TabTitel in den Titel der Website ändern
- Me.TabControl1.SelectedTab.Text = CurrBrowser.DocumentTitle
- ' Wenn man zu "about:blank" navigiert wird der Titel zu "" geändert da
- ' es eine leere seite ist..
- If e.Url.AbsoluteUri = "about:blank" Then
- Me.TabControl1.SelectedTab.Text = "leere Seite"
- End If
- End Sub
- Private Sub wb_Navigating(ByVal sender As Object, ByVal e As WebBrowserNavigatingEventArgs)
- Me.TabControl1.SelectedTab.Text = "Laden ..."
- Me.ComboBox1.Text = CurrBrowser.Url.AbsoluteUri
- End Sub
- Private Sub wb_Navigated(ByVal sender As Object, ByVal e As WebBrowserNavigatedEventArgs)
- Me.ComboBox1.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
- ' Zur Seite "url" navigieren
- wb.Navigate(url)
- wb.Dock = DockStyle.Fill
- ' Den Browser zur TabPage hinzufügen
- tab.Controls.Add(wb)
- ' Einen EventHandler des WebBrowsers (DocumentCompleted & Navigating) hinzufügen
- AddHandler wb.DocumentCompleted, AddressOf wb_DocumentCompleted
- AddHandler wb.Navigating, AddressOf wb_Navigating
- AddHandler wb.Navigated, AddressOf wb_Navigated
- ' Tab zum TabControl hinzüfügen
- Me.TabControl1.TabPages.Add(tab)
- End Sub
- Sub GetCurrBrowser()
- ' CurrBrowser auf den Browser des ausgewählten Tabs setzen
- For Each wb As WebBrowser In Me.TabControl1.SelectedTab.Controls
- CurrBrowser = wb
- Exit For
- Next
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- WebBrowser1.Navigate(ComboBox1.Text)
- End Sub
Danke im Voraus
Gruß
jan1996
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „jan1996“ ()