Help with tabs in web browser

I am making a web browser but could someone please explain to me how to add tabs to it please

Originally Posted by Laxitive

I am making a web browser but could someone please explain to me how to add tabs to it please

Add a tab control
Then click "edit tab pages" in the properties window

I don't get wat I am supposed to do after I add tab control and another question. I have more than 1 form and when I exit out of say like form 2 the text I entered into a textbox doesn't save. How do i make it so when i exit it saves?

Add tab control
Then, add 1 webbrowser for each tab you have. After that, just add a textbox+button

Code:

Webbrowser1/2/3/4/5/6.Navigate(TextBox1.Text)

if you go on youtube some guy as a very good tut on this his name is like environmentalnerd or something but go find that.

Originally Posted by trevor206

if you go on youtube some guy as a very good tut on this his name is like environmentalnerd or something but go find that.

thx a lot but do you have an answer to my second question?

Originally Posted by Laxitive

thx a lot but do you have an answer to my second question?

its all in the video it here watch it

just make everything he does in the vid then just copy paste the code.

Code:

Public Class Form1
Dim int As Integer = 0

Private Sub Loading(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserProgressChangedE ventArgs)
ToolStripProgressBar1.Maximum = e.MaximumProgress
ToolStripProgressBar1.Value = e.CurrentProgress
End Sub

Private Sub Done(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserDocumentComplete dEventArgs)
TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).DocumentTitle
ComboBox1.Text = CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).Url.ToString
End Sub

Form1_Load:
Dim Browser As New WebBrowser
TabControl1.TabPages.Add("New Page")
Browser.Name = "Web Browser"
Browser.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(Bro wser)
AddHandler Browser.ProgressChanged, AddressOf Loading
AddHandler Browser.DocumentCompleted, AddressOf Done
int = int + 1
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).GoHome()

Add Tab:
Dim Browser As New WebBrowser
TabControl1.TabPages.Add("New Page")
TabControl1.SelectTab(int)
Browser.Name = "Web Browser"
Browser.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(Bro wser)
AddHandler Browser.ProgressChanged, AddressOf Loading
AddHandler Browser.DocumentCompleted, AddressOf Done
int = int + 1
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).GoHome()

Remove Tab:
If Not TabControl1.TabPages.Count = 1 Then
TabControl1.TabPages.RemoveAt(TabControl 1.SelectedIndex)
TabControl1.SelectTab(TabControl1.TabPag es.Count - 1)
int = int - 1
End If

Website Properties:
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).ShowPropertiesDialog

Back:
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).GoBack()

Forward:
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).GoForward()

Refresh:
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).Refresh()

Stop:
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).Stop()

Home:
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).GoHome()

Go:
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).Navigate(ComboBox1.Text)

Timer1:
ToolStripStatusLabel1.Text = CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).StatusText