I am making a tab browser, I know how to get the first tab to navigate according to user's desired url.
There is a tab which contain a webbrowser control known as WebBrowser1 with a dockstyle.fill within the Tab Control.
My form is designed to appear as only one tab. User can choose to create a new tab from the MenuStrip Control.
Below is my code:
vb
Public Class frmWebSurfer
Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click
WebBrowser1.Navigate(cbxUrl.Text)
End Sub
Private Sub BackToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackToolStripMenuItem.Click
WebBrowser1.GoBack()
End Sub
Private Sub ForwardToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ForwardToolStripMenuItem.Click
WebBrowser1.GoForward()
End Sub
Private Sub RefreshToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RefreshToolStripMenuItem.Click
WebBrowser1.Refresh()
End Sub
Private Sub StopToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopToolStripMenuItem.Click
WebBrowser1.Stop()
End Sub
Private Sub cbxUrl_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cbxUrl.KeyDown
If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
WebBrowser1.Navigate(cbxUrl.Text)
End If
End Sub
Private Sub NewTabToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewTabToolStripMenuItem.Click
'create a new tab
Dim newTabPage As New TabPage
Dim newWebBrowser As New WebBrowser
newTabPage.Text = "TabPage" & tabBrowserFace.TabPages.Count + 1
'add browser to the tab control
newTabPage.Controls.Add(newWebBrowser)
newWebBrowser.Dock = DockStyle.Fill
newWebBrowser.Navigate(cbxUrl.Text)
'add the new tab
Me.tabBrowserFace.Controls.Add(newTabPage)
End Sub
End Class
As you can see WebBrowser1.Navigate can only respond to tabpage1, but not subsequent page user chooses to click.
If I add newWebBrowser.Navigate(cbxUrl.Text) in btnGo.Click event it will only respond to new tabpages user created and not to the first tabpage upon the application opens. What should I write btnGo.Click so that default tabpage1 and subsequent user created tabpages will respond to user's desired url?
| 