Very Advanced WebBrowser

Here is the place to post images, videos and downloads of your current and upcoming applications that you are working on.
16 posts Page 1 of 2
Post Reply
User avatar
Zelsoft
Top Poster
Top Poster
Posts: 99
Joined: Mon Aug 10, 2009 4:41 am
Very Advanced WebBrowser
Zelsoft
Post Options:
Quote
here is my very advanced web browser made in visual basic 2008 its called firewall web browser 3.0 (the final one) and here is the source code and how to make it


first: start a new project
second: re size it to any size you want
third: add any items you want and arrange the items how you want i added these items and arranged them like this
Image
forth: its time to add the code for my project i added this code
Code: Select all
Public Class Form1
    Dim int As Integer = 0

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim i = MsgBox("Are You Sure You Want to Close FireWall WebBrowser 3.0 (The Final One)?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "")
        If (i = MsgBoxResult.Yes) Then
            Dim b = MsgBox("Do you Want to Save Your Settings?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "")
            If (b = MsgBoxResult.Yes) Then
                My.Settings.Save()
                MsgBox("Your Settings Were Saved", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "")
                End
            End If


        Else
            e.Cancel = True
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Fav1ToolStripMenuItem.ToolTipText = My.Settings.fav1

        Fav1ToolStripMenuItem.Text = My.Settings.fav1

        My.Settings.Save()

        My.Settings.Reload()
        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).Navigate(My.Settings.homepage)

    End Sub
    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
        TextBox2.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ToolStripLabel1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).StatusText
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)

    End Sub

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

    End Sub

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

    End Sub

    Private Sub WebBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs)

    End Sub

    Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs)
        TextBox2.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
        Me.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle + " - " + "FireWall WebBrowser 3.0 (The Final One)"
        Label2.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString + " - " + CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle
    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).Navigate(TextBox2.Text)

    End Sub

    Private Sub ComboBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
        If e.KeyCode = Keys.Enter Then
            CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(TextBox2.Text)
        End If

    End Sub

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

    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        Me.WindowState = FormWindowState.Maximized
        Button11.Visible = False
        Button10.Visible = True
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Me.WindowState = FormWindowState.Normal
        Button11.Visible = True
        Button10.Visible = False
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        End
    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).Stop()
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.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).Navigate(My.Settings.homepage)
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.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 Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.homepage)
    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).Refresh()
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        ToolStripLabel2.Text = Me.Location.ToString
        ToolStripLabel3.Text = AxWinsock1.MousePosition.ToString
        ToolStripLabel4.Text = TimeOfDay + " | " + DateString
        ToolStripLabel5.Text = Me.Size.ToString
        Label3.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle + " - " + TimeOfDay + " - " + DateString

        Me.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle + " - " + "FireWall WebBrowser 3.0 (The Final One)"
    End Sub

    Private Sub NewTabToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewTabToolStripMenuItem1.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).Navigate(My.Settings.homepage)
    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 PropertiesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPropertiesDialog()
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Dim i As New Form1
        i.Show()
    End Sub

    Private Sub SaveThisWebpageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveThisWebpageToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowSaveAsDialog()
    End Sub

    Private Sub OpenWebpageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenWebpageToolStripMenuItem.Click
        'Open Offline Page
        Dim open As New OpenFileDialog
        open.ShowDialog()
        open.Title = "Open Local Webpage"
        open.CheckFileExists = True
        open.Filter = "All Files(*.*)|*.*"
        Try
            CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(open.FileName)

        Catch ex As Exception
            'Do nothing on Exception
        End Try
    End Sub

    Private Sub PrintThisWebpageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintThisWebpageToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPrintDialog()
    End Sub

    Private Sub PrintPageSetupToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintPageSetupToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPageSetupDialog()
    End Sub

    Private Sub PrintPreviewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintPreviewToolStripMenuItem.Click
        'Print Preview
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPrintPreviewDialog()
    End Sub

    Private Sub ExitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem1.Click
        End
    End Sub

    Private Sub EditFavoritesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditFavoritesToolStripMenuItem.Click
        Form2.Show()
    End Sub

    Private Sub FavoriteThisPageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FavoriteThisPageToolStripMenuItem.Click
        'Favorite this page
        MsgBox("Favorite Saved!", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "")
        My.Settings.fav3 = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString

        Fav3ToolStripMenuItem.ToolTipText = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString

        Fav3ToolStripMenuItem.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString

        My.Settings.Save()
    End Sub

    Private Sub MediaPlayerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MediaPlayerToolStripMenuItem.Click
        Form4.Show()
    End Sub

    Private Sub CaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaToolStripMenuItem.Click
        Form5.Show()
    End Sub

    Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem.Click
        TextBox2.Copy()
    End Sub

    Private Sub PasteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteToolStripMenuItem.Click
        TextBox2.Paste()
    End Sub

    Private Sub CutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutToolStripMenuItem.Click
        TextBox2.Cut()
    End Sub

    Private Sub OptionsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OptionsToolStripMenuItem.Click
        Form2.Show()
    End Sub

    Private Sub SearchToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchToolStripMenuItem.Click
        Button7.PerformClick()
    End Sub

    Private Sub BackToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
    End Sub

    Private Sub ForwardToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ForwardToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
    End Sub

    Private Sub RefreshToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RefreshToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()
    End Sub

    Private Sub StopToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Stop()
    End Sub

    Private Sub GoHomeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoHomeToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.homepage)
    End Sub

    Private Sub DeleteAllHistoryToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteAllHistoryToolStripMenuItem.Click
        Form3.ComboBox1.Items.Clear()
        'History
        MsgBox("All browsing history deleted.", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "")
    End Sub

    Private Sub ZelsoftToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ZelsoftToolStripMenuItem1.Click
        End
    End Sub

    Private Sub AboutMeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutMeToolStripMenuItem.Click
        MsgBox("Hi This Is About Me And I Am The Creator My Name Is Max Of The Company Zelsoft From Zelsoft.tk I Am 11 Years Old And I live in The Us In Ca Go to Youtube.com/Zelsoft To learn more", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Have Fun!!")
    End Sub

    Private Sub VersionInfoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VersionInfoToolStripMenuItem.Click
        MsgBox("This Is FireWall WebBrowser 3.0 (The Final One)", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Have Fun!!")
    End Sub

    Private Sub FlashPlayerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlashPlayerToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.adobe.com/products/flashplayer/")
    End Sub

    Private Sub QuickTimeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuickTimeToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.apple.com/quicktime/download/")
    End Sub

    Private Sub SliverlightToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SliverlightToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.microsoft.com/silverlight")
    End Sub

    Private Sub ZelsoftToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ZelsoftToolStripMenuItem2.Click
        End
    End Sub

    Private Sub TabControl1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.Click

    End Sub

    Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged

    End Sub

    Private Sub ZelsoftToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ZelsoftToolStripMenuItem3.Click
        End
    End Sub

    Private Sub NortonToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NortonToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://store.norton.com/v2.0-img/operations/symantus/site/promo/pd/019012/navnis09_n360v3_us_4.html")
    End Sub

    Private Sub VarandPutAntiVirusesHereToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VarandPutAntiVirusesHereToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://anti-virus-software-review.toptenreviews.com/bitdefender-review.html")
    End Sub

    Private Sub TrendMicroToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrendMicroToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://anti-virus-software-review.toptenreviews.com/pc-cillin-review.html")
    End Sub

    Private Sub FSecureAntiVirusToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FSecureAntiVirusToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://anti-virus-software-review.toptenreviews.com/f-secure-review.html")
    End Sub

    Private Sub VipreAntivirusAntispywareToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VipreAntivirusAntispywareToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://anti-virus-software-review.toptenreviews.com/vipre-antivirus-antispyware-review.html")
    End Sub

    Private Sub AVGAntiVirusToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AVGAntiVirusToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://anti-virus-software-review.toptenreviews.com/avg-review.html")
    End Sub

    Private Sub ParetoLogicAntiVirusPLUSToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ParetoLogicAntiVirusPLUSToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://anti-virus-software-review.toptenreviews.com/paretologic-anti-virus-plus-review.html")
    End Sub

    Private Sub ESETNod32ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ESETNod32ToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://anti-virus-software-review.toptenreviews.com/eset-nod32-review.html")
    End Sub

    Private Sub GDATAAntiVirusToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GDATAAntiVirusToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://anti-virus-software-review.toptenreviews.com/antiviruskit-review.html")
    End Sub

    Private Sub WebrootAntivirusToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WebrootAntivirusToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://anti-virus-software-review.toptenreviews.com/webroot-antivirus-review.html")
    End Sub

    Private Sub KasperskyAntiVirusToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KasperskyAntiVirusToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://anti-virus-software-review.toptenreviews.com/kaspersky-review.html")
    End Sub

    Private Sub ZelsoftToolStripMenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ZelsoftToolStripMenuItem6.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.Zelsoft.tk")
    End Sub

    Private Sub YoutubeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YoutubeToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.youtube.com/Zelsoft")
    End Sub

    Private Sub EmailToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EmailToolStripMenuItem.Click
        MsgBox("Our Email Is Zelsoft@hotmail.com", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "")
    End Sub

    Private Sub PeopleInOurCompanyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PeopleInOurCompanyToolStripMenuItem.Click
        MsgBox("People In Our Campany Are {PROGRAMMERS}(Me) Max | Roberto | jorge | (New) Jacob{DESIGNERS} rubi | alejandro | Briana | Henry", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "")
    End Sub

    Private Sub NortonAntivirusToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NortonAntivirusToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://store.norton.com/v2.0-img/operations/symantus/site/promo/pd/019012/navnis09_n360v3_us_4.html")
    End Sub

    Private Sub AdobeAfterAffectsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AdobeAfterAffectsToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://photoshop.cs4-now.com/")
    End Sub

    Private Sub AdobePhotoShopToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AdobePhotoShopToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.adobe.com/products/aftereffects/")
    End Sub

    Private Sub TextBox2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown
        If e.KeyCode = Keys.Enter Then
            CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(TextBox2.Text)
        End If

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

    End Sub

    Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked

    End Sub

    Private Sub ViewWebPageSourceToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ViewWebPageSourceToolStripMenuItem1.Click
        Form6.RichTextBox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Document.Body.InnerHtml
        Form6.Show()
    End Sub

    Private Sub WebBrowser1_DocumentCompleted_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If ComboBox2.Text = "Google.com" Then
            CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.google.com/search?hl=en&q=" + TextBox1.Text + "&aq=f&oq=&aqi=g10")
        End If
        If ComboBox2.Text = "Yahoo.com" Then
            CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://search.yahoo.com/search?p=" + TextBox1.Text + "&fr=yfp-t-501&toggle=1&cop=mss&ei=UTF-8")
        End If
        If ComboBox2.Text = "Youtube.com" Then
            CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.youtube.com/results?search_query=" + TextBox1.Text + "&search_type=&aq=f")
        End If
        If ComboBox2.Text = "Google Maps" Then
            CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://maps.google.com/maps?hl=en&source=hp&q=" + TextBox1.Text + "&gbv=2&ie=UTF-8&sa=N&tab=il&start=0")
        End If
        If ComboBox2.Text = "ebay.com" Then
            CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://shop.ebay.com/?_from=R40&_trksid=p3907.m38.l1313&_nkw=" + TextBox1.Text + "&_sacat=See-All-Categories")
        End If
        If ComboBox2.Text = "Google Images" Then
            CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://images.google.com/images?hl=en&source=hp&q=" + TextBox1.Text + "&btnG=Search+Images&gbv=2&aq=f&oq=&aqi=g10")
        End If
    End Sub
End Class
if you just want to maker a form that you can add tabs and remove tabs and all the basic stuff heres the code
Code: Select all
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
i hope this helped alot thanks every one i hope you use this and get a next step into getting a better programmer thanks



- Zelsoft
- WuSaMi Bringing the Pro in Programmers Once again
Top
User avatar
hungryhounduk
VIP - Site Partner
VIP - Site Partner
Posts: 2870
Joined: Mon Jul 27, 2009 11:58 am
Re: Very Advanced WebBrowser
hungryhounduk
Post Options:
Quote
Hi
I like the way you have included the DATE/Time functions to your Webbrowser cooll; looks very well Structured.

Well done

Chris
Image
Top
User avatar
Zelsoft
Top Poster
Top Poster
Posts: 99
Joined: Mon Aug 10, 2009 4:41 am
Re: Very Advanced WebBrowser
Zelsoft
Post Options:
Quote
Thanks Very Much If you want the project just pm me hehaho;
- WuSaMi Bringing the Pro in Programmers Once again
Top
User avatar
Martin
Supreme VIP
Supreme VIP
Posts: 369
Joined: Sat Aug 01, 2009 12:26 pm
Re: Very Advanced WebBrowser
Martin
Post Options:
Quote
http://martincreations.weebly.com/
Image
Top
User avatar
Cali Alec
VIP - Donator
VIP - Donator
Posts: 8
Joined: Fri Sep 04, 2009 2:23 am
Re: Very Advanced WebBrowser
Cali Alec
Post Options:
Quote
Nice feature, lol, just work on the red :P
Top
User avatar
CodemaN
VIP Access - Denied
VIP Access - Denied
Posts: 74
Joined: Fri Sep 18, 2009 3:18 pm
Re: Very Advanced WebBrowser
CodemaN
Post Options:
Quote
cool browser thanksss
Top
User avatar
mukeshslnk
Just Registered
Just Registered
Posts: 1
Joined: Tue Oct 13, 2009 7:07 am
Re: Very Advanced WebBrowser
mukeshslnk
Post Options:
Quote
that was really cool zelsoft good work could you send me the project plz

mail me at mukeshslnk@gmail.com wahooo;
Top
User avatar
Nery
Co-Admin Moderator
Co-Admin Moderator
Posts: 1117
Joined: Mon Sep 07, 2009 8:11 pm
Re: Very Advanced WebBrowser
Nery
Post Options:
Quote
Guys, since this isn't a tutorial I moved the thread to "Quick Snips".


#Moved
Top
User avatar
Diazepa
VIP - Donator
VIP - Donator
Posts: 70
Joined: Sat Sep 12, 2009 11:38 pm
Re: Very Advanced WebBrowser
Diazepa
Post Options:
Quote
How can i make my web browser's buttons Rearrange when stretched?
Top
User avatar
Doctorfrost
Dedicated Member
Dedicated Member
Posts: 53
Joined: Sun Oct 04, 2009 4:44 am
Re: Very Advanced WebBrowser
Doctorfrost
Post Options:
Quote
I like the program but you should add background selections.

Good work, but not to be rude, you should choose a color thats easier on the eyes.

Anyways, good work

Sincerely, Doctorfrost
Top
Post Reply
16 posts Page 1 of 2
Return to “Work in Progress”

Copyright Information

Powered by phpBB® Forum Software © phpBB Limited Privacy | Terms

Copyright © Codenstuff.com 2020 - 2023