For A Advanced Webbrowser

6 Buttons
1 ComboBox
1 Webbrowser
1 Timer
1 FileToolStripMenuItem
1 Menu Strip
1 Status Strip

Button Names -
Back
Forward
Refresh
Stop
Home
Go
__________________________________________________
Source Code :

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



    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 = "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()

    End Sub



    Private Sub AddTabToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddTabToolStripMenuItem.Click

        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()

    End Sub



    Private Sub RemoveTabToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RemoveTabToolStripMenuItem.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



    Private Sub WebsitePropertiesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WebsitePropertiesToolStripMenuItem.Click

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

    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

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

    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

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

    End Sub



    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

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

    End Sub



    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

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

    End Sub



    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

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

    End Sub



    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

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

    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

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

    End Sub



    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)



    End Sub



    Private Sub AboutToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click

        MsgBox("Made by YOUR NAME HERE@ Logicalgamers.com")

    End Sub

End Class

_________________________________________________________
+Rep Please

Sorry to say but there is nothing advanced about this.

Chad wrote:

Sorry to say but there is nothing advanced about this.

Don't be rude.

Thomas wrote:

Don't be rude.

Each person has a different image of rude, i agree with chad.

iShellz wrote:

Each person has a different image of rude, i agree with chad.

But by Chad posting that he's discouraging CeeJay. We need to encourage new programmers as much as we can.

Thomas wrote:

But by Chad posting that he's discouraging CeeJay. We need to encourage new programmers as much as we can.

Thanks Thomas atleast your kind.