Tabs in Browser?

mixsetup

Member
Joined
Oct 28, 2010
Messages
10
Programming Experience
1-3
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
 
Last edited:
AHH yes thanks it is Easier when someone else points it out to you. I just put these in and all is good

Private Sub TabControl1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
ComboBox1.Text = TabControl1.SelectedTab.Tag
End Sub

Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged
TabControl1.SelectedTab.Tag = ComboBox1.Text
End Sub
 
Back
Top