none
how to add a new tab in web browser and statur bar/ status indicator like the one in google chrome?

    Question

  • this is the web browser. i want to add tab and status indicator like the one in google chrome and i want to make the menu bar able to hide/show by the user and even Full screen features. How do i do that? Please help!

    
    Imports System
    Imports System.Windows.Forms
    Imports System.Security.Permissions
    
    <PermissionSet(SecurityAction.Demand, Name:="FullTrust")> _
    Public Class Form1
        Inherits Form
    
        Public Sub New()
    
            ' Create the form layout. If you are using Visual Studio,  
            ' you can replace this code with code generated by the designer. 
            InitializeForm()
    
            ' Load the user's home page.
            webBrowser1.GoHome()
    
        End Sub 
    
    
        ' Displays the Save dialog box. 
        Private Sub saveAsToolStripMenuItem_Click( _
            ByVal sender As Object, ByVal e As EventArgs) _
            Handles saveAsToolStripMenuItem.Click
    
            webBrowser1.ShowSaveAsDialog()
    
        End Sub 
    
        ' Displays the Page Setup dialog box. 
        Private Sub pageSetupToolStripMenuItem_Click( _
            ByVal sender As Object, ByVal e As EventArgs) _
            Handles pageSetupToolStripMenuItem.Click
    
            webBrowser1.ShowPageSetupDialog()
    
        End Sub 
    
        ' Displays the Print dialog box. 
        Private Sub printToolStripMenuItem_Click( _
            ByVal sender As Object, ByVal e As EventArgs) _
            Handles printToolStripMenuItem.Click
    
            webBrowser1.ShowPrintDialog()
    
        End Sub 
    
        ' Displays the Print Preview dialog box. 
        Private Sub printPreviewToolStripMenuItem_Click( _
            ByVal sender As Object, ByVal e As EventArgs) _
            Handles printPreviewToolStripMenuItem.Click
    
            webBrowser1.ShowPrintPreviewDialog()
    
        End Sub 
    
        ' Displays the Properties dialog box. 
        Private Sub propertiesToolStripMenuItem_Click( _
            ByVal sender As Object, ByVal e As EventArgs) _
            Handles propertiesToolStripMenuItem.Click
    
            webBrowser1.ShowPropertiesDialog()
    
        End Sub 
    
        ' Selects all the text in the text box when the user clicks it.  
        Private Sub toolStripTextBox1_Click( _
            ByVal sender As Object, ByVal e As EventArgs) _
            Handles toolStripTextBox1.Click
    
            toolStripTextBox1.SelectAll()
    
        End Sub 
    
        ' Navigates to the URL in the address box when  
        ' the ENTER key is pressed while the ToolStripTextBox has focus. 
        Private Sub toolStripTextBox1_KeyDown( _
            ByVal sender As Object, ByVal e As KeyEventArgs) _
            Handles toolStripTextBox1.KeyDown
    
            If (e.KeyCode = Keys.Enter) Then
                Navigate(toolStripTextBox1.Text)
            End If 
    
        End Sub 
    
        ' Navigates to the URL in the address box when  
        ' the Go button is clicked. 
        Private Sub goButton_Click( _
            ByVal sender As Object, ByVal e As EventArgs) _
            Handles goButton.Click
    
            Navigate(toolStripTextBox1.Text)
    
        End Sub 
    
        ' Navigates to the given URL if it is valid. 
        Private Sub Navigate(ByVal address As String)
    
            If String.IsNullOrEmpty(address) Then Return 
            If address.Equals("about:blank") Then Return 
            If Not address.StartsWith("http://") And _
                Not address.StartsWith("https://") Then
                address = "http://" & address
            End If 
    
            Try
                webBrowser1.Navigate(New Uri(address))
            Catch ex As System.UriFormatException
                Return 
            End Try 
    
        End Sub 
    
        ' Updates the URL in TextBoxAddress upon navigation. 
        Private Sub webBrowser1_Navigated(ByVal sender As Object, _
            ByVal e As WebBrowserNavigatedEventArgs) _
            Handles webBrowser1.Navigated
    
            toolStripTextBox1.Text = webBrowser1.Url.ToString()
    
        End Sub 
    
        ' Navigates webBrowser1 to the previous page in the history. 
        Private Sub backButton_Click( _
            ByVal sender As Object, ByVal e As EventArgs) _
            Handles backButton.Click
    
            webBrowser1.GoBack()
    
        End Sub 
    
        ' Disables the Back button at the beginning of the navigation history. 
        Private Sub webBrowser1_CanGoBackChanged( _
            ByVal sender As Object, ByVal e As EventArgs) _
            Handles webBrowser1.CanGoBackChanged
    
            backButton.Enabled = webBrowser1.CanGoBack
    
        End Sub 
    
        ' Navigates webBrowser1 to the next page in history. 
        Private Sub forwardButton_Click( _
            ByVal sender As Object, ByVal e As EventArgs) _
            Handles forwardButton.Click
    
            webBrowser1.GoForward()
    
        End Sub 
    
        ' Disables the Forward button at the end of navigation history. 
        Private Sub webBrowser1_CanGoForwardChanged( _
            ByVal sender As Object, ByVal e As EventArgs) _
            Handles webBrowser1.CanGoForwardChanged
    
            forwardButton.Enabled = webBrowser1.CanGoForward
    
        End Sub 
    
        ' Halts the current navigation and any sounds or animations on  
        ' the page. 
        Private Sub stopButton_Click( _
            ByVal sender As Object, ByVal e As EventArgs) _
            Handles stopButton.Click
    
            webBrowser1.Stop()
    
        End Sub 
    
        ' Reloads the current page. 
        Private Sub refreshButton_Click( _
            ByVal sender As Object, ByVal e As EventArgs) _
            Handles refreshButton.Click
    
            ' Skip refresh if about:blank is loaded to avoid removing 
            ' content specified by the DocumentText property. 
            If Not webBrowser1.Url.Equals("about:blank") Then
                webBrowser1.Refresh()
            End If 
    
        End Sub 
    
        ' Navigates webBrowser1 to the home page of the current user. 
        Private Sub homeButton_Click( _
            ByVal sender As Object, ByVal e As EventArgs) _
            Handles homeButton.Click
    
            webBrowser1.GoHome()
    
        End Sub 
    
        ' Navigates webBrowser1 to the search page of the current user. 
        Private Sub searchButton_Click( _
            ByVal sender As Object, ByVal e As EventArgs) _
            Handles searchButton.Click
    
            webBrowser1.GoSearch()
    
        End Sub 
    
        ' Prints the current document Imports the current print settings. 
        Private Sub printButton_Click( _
            ByVal sender As Object, ByVal e As EventArgs) _
            Handles printButton.Click
    
            webBrowser1.Print()
    
        End Sub 
    
        ' Updates the status bar with the current browser status text. 
        Private Sub webBrowser1_StatusTextChanged( _
            ByVal sender As Object, ByVal e As EventArgs) _
            Handles webBrowser1.StatusTextChanged
    
            toolStripStatusLabel1.Text = webBrowser1.StatusText
    
        End Sub 
    
        ' Updates the title bar with the current document title. 
        Private Sub webBrowser1_DocumentTitleChanged( _
            ByVal sender As Object, ByVal e As EventArgs) _
            Handles webBrowser1.DocumentTitleChanged
    
            Me.Text = webBrowser1.DocumentTitle
    
        End Sub 
    
        ' Exits the application. 
        Private Sub exitToolStripMenuItem_Click( _
            ByVal sender As Object, ByVal e As EventArgs) _
            Handles exitToolStripMenuItem.Click
    
            Application.Exit()
    
        End Sub 
    
        ' The remaining code in this file provides basic form initialization and  
        ' includes a Main method. If you use the Visual Studio designer to create 
        ' your form, you can use the designer generated code instead of this code,  
        ' but be sure to use the names shown in the variable declarations here.  
    
        Private WithEvents webBrowser1 As WebBrowser
    
        Private menuStrip1 As MenuStrip
        Private WithEvents fileToolStripMenuItem, saveAsToolStripMenuItem, _
            printToolStripMenuItem, printPreviewToolStripMenuItem, _
            exitToolStripMenuItem, pageSetupToolStripMenuItem, _
            propertiesToolStripMenuItem As ToolStripMenuItem
        Private toolStripSeparator1, toolStripSeparator2 As ToolStripSeparator
    
        Private toolStrip1, toolStrip2 As ToolStrip
        Private WithEvents toolStripTextBox1 As ToolStripTextBox
        Private WithEvents goButton, backButton, forwardButton, _
            stopButton, refreshButton, homeButton, _
            searchButton, printButton As ToolStripButton
    
        Private statusStrip1 As StatusStrip
        Private toolStripStatusLabel1 As ToolStripStatusLabel
    
        Private Sub InitializeForm()
    
            webBrowser1 = New WebBrowser()
    
            menuStrip1 = New MenuStrip()
            fileToolStripMenuItem = New ToolStripMenuItem()
            saveAsToolStripMenuItem = New ToolStripMenuItem()
            toolStripSeparator1 = New ToolStripSeparator()
            printToolStripMenuItem = New ToolStripMenuItem()
            printPreviewToolStripMenuItem = New ToolStripMenuItem()
            toolStripSeparator2 = New ToolStripSeparator()
            exitToolStripMenuItem = New ToolStripMenuItem()
            pageSetupToolStripMenuItem = New ToolStripMenuItem()
            propertiesToolStripMenuItem = New ToolStripMenuItem()
    
            toolStrip1 = New ToolStrip()
            goButton = New ToolStripButton()
            backButton = New ToolStripButton()
            forwardButton = New ToolStripButton()
            stopButton = New ToolStripButton()
            refreshButton = New ToolStripButton()
            homeButton = New ToolStripButton()
            searchButton = New ToolStripButton()
            printButton = New ToolStripButton()
    
            toolStrip2 = New ToolStrip()
            toolStripTextBox1 = New ToolStripTextBox()
    
            statusStrip1 = New StatusStrip()
            toolStripStatusLabel1 = New ToolStripStatusLabel()
    
            webBrowser1.Dock = DockStyle.Fill
    
            menuStrip1.Items.Add(fileToolStripMenuItem)
    
            fileToolStripMenuItem.DropDownItems.AddRange( _
                New ToolStripItem() { _
                    saveAsToolStripMenuItem, toolStripSeparator1, _
                    pageSetupToolStripMenuItem, printToolStripMenuItem, _
                    printPreviewToolStripMenuItem, toolStripSeparator2, _
                    propertiesToolStripMenuItem, exitToolStripMenuItem _
                })
    
            fileToolStripMenuItem.Text = "&File"
            saveAsToolStripMenuItem.Text = "Save &As..."
            pageSetupToolStripMenuItem.Text = "Page Set&up..."
            printToolStripMenuItem.Text = "&Print..."
            printPreviewToolStripMenuItem.Text = "Print Pre&view..."
            propertiesToolStripMenuItem.Text = "Properties"
            exitToolStripMenuItem.Text = "E&xit"
    
            printToolStripMenuItem.ShortcutKeys = Keys.Control Or Keys.P
    
            toolStrip1.Items.AddRange(New ToolStripItem() { _
                goButton, backButton, forwardButton, stopButton, _
                refreshButton, homeButton, searchButton, printButton})
    
            goButton.Text = "Go"
            backButton.Text = "Back"
            forwardButton.Text = "Forward"
            stopButton.Text = "Stop"
            refreshButton.Text = "Refresh"
            homeButton.Text = "Home"
            searchButton.Text = "Search"
            printButton.Text = "Print"
    
            backButton.Enabled = False
            forwardButton.Enabled = False
    
            toolStrip2.Items.Add(toolStripTextBox1)
            toolStripTextBox1.Size = New System.Drawing.Size(250, 25)
    
            statusStrip1.Items.Add(toolStripStatusLabel1)
    
            Controls.AddRange(New Control() { _
                webBrowser1, toolStrip2, toolStrip1, _
                menuStrip1, statusStrip1, menuStrip1})
        End Sub
    
        <STAThread()> _
        Public Shared Sub Main()
            Application.EnableVisualStyles()
            Application.Run(New Form1())
        End Sub 
    
    End Class


    • Edited by cito veswuh Friday, May 17, 2013 9:19 AM spelling mistake! :D
    Thursday, May 09, 2013 6:47 AM

Answers