Hi I have made a tabbed browser most of the stuff works okay. The problem is if you have the first tab open with the page loaded it's fine then open a second thats fine but if you go back to the first it does not change the URL back it keeps the last URL entered from the last tab opened. I use VB 2008 Express Edition.
All the code that controls the Tabs should be in these. Button 7 is Add Tab and button 8 is remove Tab
Dim int As Integer = 1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim browser As New WebBrowser
TabControl1.TabPages.Add("New Page")
browser.Name = "ss"
browser.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(browser)
AddHandler browser.ProgressChanged, AddressOf Loading
AddHandler browser.DocumentCompleted, AddressOf Done
int = int + 1
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.HomePage)
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ScriptErrorsSuppressed = True
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim browser As New WebBrowser
TabControl1.TabPages.Add("New Page")
TabControl1.SelectTab(int)
browser.Name = "ss"
browser.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(browser)
AddHandler browser.ProgressChanged, AddressOf Loading
AddHandler browser.DocumentCompleted, AddressOf Done
int = int + 1
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.HomePage)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If Not TabControl1.TabPages.Count = 1 Then
TabControl1.TabPages.RemoveAt(TabControl1.SelectedIndex)
TabControl1.SelectTab(TabControl1.TabPages.Count - 1)
int = int - 1
End If
End Sub
Any Help pleasePublic Class Form1
All the code that controls the Tabs should be in these. Button 7 is Add Tab and button 8 is remove Tab
Dim int As Integer = 1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim browser As New WebBrowser
TabControl1.TabPages.Add("New Page")
browser.Name = "ss"
browser.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(browser)
AddHandler browser.ProgressChanged, AddressOf Loading
AddHandler browser.DocumentCompleted, AddressOf Done
int = int + 1
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.HomePage)
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ScriptErrorsSuppressed = True
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim browser As New WebBrowser
TabControl1.TabPages.Add("New Page")
TabControl1.SelectTab(int)
browser.Name = "ss"
browser.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(browser)
AddHandler browser.ProgressChanged, AddressOf Loading
AddHandler browser.DocumentCompleted, AddressOf Done
int = int + 1
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.HomePage)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If Not TabControl1.TabPages.Count = 1 Then
TabControl1.TabPages.RemoveAt(TabControl1.SelectedIndex)
TabControl1.SelectTab(TabControl1.TabPages.Count - 1)
int = int - 1
End If
End Sub
Any Help pleasePublic Class Form1
Last edited: