.NET Visual Basic Advanced Webrowser Detailed Tut

Hi, Welcome To Ma Second Tutorial On VB
This Time I'll Be Showing You How To Make An Advanced Webrowser
(there have been hundreds of browser tuts but i'm going to make a more detailed one)
Okay First Off Open A New Windows Form

Name It Browser Or Whatever

First Off Add A Tab Control

On Tab Pages Remove All Of The Pages

Dock The Tab Control To Whateva Yuu Wont

Now A Status Bar

In The Status Bar Add A Progress Bar And A Label
Now Add This Code :

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

And :

Code
Private Sub Done(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs) TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle ComboBox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString End Sub

At The Very Top Of The Code Page Just After "public class web_browser"
add This Code :

Code
Dim int As Integer = 0

Now Add A Menu Strip

Add A List Item Named "File"

Now In The File Menu Add "exit"

The Code For "exit" :

Code
Me.Close [simple]

Now Add "Tabs" To The Menu Strip

Then Add "New Tab" And "Close Tab"
Code For New Tab :

Code
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(Browser) AddHandler Browser.ProgressChanged, AddressOf Loading AddHandler Browser.DocumentCompleted, AddressOf Done int = int + 1 CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()

Code For Close Tab :

Code
If Not TabControl1.TabPages.Count = 1 Then TabControl1.TabPages.RemoveAt(TabControl1.SelectedIndex) TabControl1.SelectTab(TabControl1.TabPages.Count - 1) int = int - 1

Now Add 5 Buttons

Name Them "Back, Forward, Home, Stop, Refresh

Now For The Code
Back :

Code
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()

Forward :

Code
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()

Home :

Code
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()

Stop :

Code
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Stop()

Refresh :

Code
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()

And Your Done, You Can Style The Form As You Like#
[If I Missed Anything Please Let Me Know]