How To Make An Advanced Webbrowser In Visual Basic 2008

Visual Basic 2008 - Advanced Webbrowser. Just decided to remake my video on a very advanced web browser with: Deafult features, Tabs, Progressbar, Status Label ect. You can download the source code from:
http://www.mediafire.com/download.php?zvenznwgz2w
Or you can copy + Paste the codes:

Public Class Form1
Dim int As Integer = 0

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

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

Form1_Load:
Dim Browser As New WebBrowser
TabControl1.TabPages.Add("New Page")
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()

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

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

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

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

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

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

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

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

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

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

Category:

Education

Tags:

• Microsoft
• Windows
• Visual
• Studio
• 2008
• Express
• Edition
• Professional
• Basic
• C++
• C#
• .NET
• howto
• make
• very
• awesome
• great
• epuc
• web
• browser
• in
• out
• or
• if
• it
• is
• help
• random
• program
• software
• application
• media
• fire
• uplaod
• environmentalnerd
• computer
• tutorials
• education

[TheNedinator]

Private Sub Loading(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserProgre­ssChangedEventArgs)

ToolStripProgressBar1.Maximum = e.MaximumProgress

ToolStripProgressBar1.Value = e.CurrentProgress

End Sub

EVERYONE ON THIS CODE YOU MUST CHANGE THE "ToolStripProgressBar1.Value = e.CurrentProgress" to "ToolStripProgressBar1.Value = e.MaximumProgress" PLEASE LIKE THIS TO MAKE SURE IT IS NOTICED!!!!!

[OneHitAndDie]

48 errors -.-

[PJ19994]

nice run 100%

[PixeledPictures]

Thumbs Up if you're watching this with a webbrowser you made yourself :P

[kmpars]

@allfilesforyou123 if you need to make a filter (Works on search & URL) just say in the Go button:

if combobox1.text = "Perverted name" then  CType(TabControl1.SelectedTab.­Controls.Item(0), WebBrowser).Navigate(C:\Progra­mFiles\App\blockscreen.html)

end if

:

for safety features just do the same but with a website that may have malicous content.

[mARTINifi]

Hi go button error help pls VB 2010

[HybridThe0ne]

i get this error:

Error 1 Name 'ToolStripStatusLabel1' is not declared.

HElp fast? pls



[EVERYDAYSHITCL0UDS]

nice

[EVERYDAYSHITCL0UDS]

nice

[xxdeaddangerxx]

dude thanks, it helped alot!

[mdabdul100]

Check out my browser. netx-browser(dot)blogspot(dot)­com

Its way far advanced.