Results 1 to 3 of 3

Thread: Tabbed Web Browser (Basic code for beginners)

  1. #1

    Thread Starter
    New Member
    Join Date
    Jan 2013
    Posts
    1

    Tabbed Web Browser (Basic code for beginners)

    I created a web browser in VB.NET and here is the code.

    Code:
    'Code by Mezdux (Lewis Hayman)
    
    Public Class Form1
        Private Sub Button1_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
            WebBrowser1.GoBack()
    
            If WebBrowser2.Visible = True Then
                WebBrowser2.GoBack()
    
    
            End If
        End Sub
        Private Sub Button2__1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
            WebBrowser1.GoForward()
            If WebBrowser2.Visible = True Then
                WebBrowser2.GoForward()
            End If
    
        End Sub
    
        Private Sub btnstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
            WebBrowser1.Stop()
            If WebBrowser2.Visible = True Then
                WebBrowser2.Stop()
            End If
    
        End Sub
    
        Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
            WebBrowser1.Refresh()
            If WebBrowser2.Visible = True Then
                WebBrowser2.Refresh()
            End If
    
        End Sub
    
        Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
            WebBrowser1.GoHome()
            If WebBrowser2.Visible = True Then
                WebBrowser2.GoHome()
            End If
    
        End Sub
    
        Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
            WebBrowser1.Navigate("http://www.google.com/search?q=" & txtSearch.Text)
            If WebBrowser2.Visible = True Then
                WebBrowser2.Navigate("http://www.google.com/search?q=" & txtSearch.Text)
            End If
    
        End Sub
    
        Private Sub btnGo_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click
            WebBrowser1.Navigate(txtHttp.Text)
            If WebBrowser2.Visible = True Then
                WebBrowser2.Navigate(txtHttp.Text)
            End If
    
        End Sub
    
        Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
            Me.Close()
        End Sub
    
        Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
            Form2.Show()
        End Sub
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            WebBrowser1.GoBack()
            If WebBrowser2.Visible = True Then
                WebBrowser2.GoBack()
            End If
    
        End Sub
    
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            WebBrowser1.GoForward()
            If WebBrowser2.Visible = True Then
                WebBrowser2.GoForward()
    
            End If
        End Sub
    
        Private Sub btnstop_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnstop.Click
    
        End Sub
    
        Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
            btnTab1.Visible = True
            btnTab2.Visible = True
    
        End Sub
    
        Private Sub btnTab2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTab2.Click
            WebBrowser1.Visible = False
            WebBrowser2.Visible = True
            If btnTab2.Visible = True Then
                btnTab2.Text = "Tab 2 Active"
    
            End If
    
        End Sub
    
        Private Sub btnTab1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTab1.Click
            WebBrowser2.Visible = False
            WebBrowser1.Visible = True
    
        End Sub
    End Class

    It is only a work in progress, final code will be posted.
    Last edited by Siddharth Rout; Feb 1st, 2013 at 05:56 AM. Reason: Added Code tags

  2. #2
    Discovering Life Siddharth Rout's Avatar
    Join Date
    Feb 2005
    Location
    Mumbai, India
    Posts
    12,001

    Re: Tabbed Web Browser (Basic code for beginners)

    Moved from Visual Basic .NET
    A good exercise for the Heart is to bend down and help another up...
    Please Mark your Thread "Resolved", if the query is solved


    MyGear:
    ★ CPU ★ Ryzen 5 5800X
    ★ GPU ★ NVIDIA GeForce RTX 3080 TI Founder Edition
    ★ RAM ★ G. Skill Trident Z RGB 32GB 3600MHz
    ★ MB ★ ASUS TUF GAMING X570 (WI-FI) ATX Gaming
    ★ Storage ★ SSD SB-ROCKET-1TB + SEAGATE 2TB Barracuda IHD
    ★ Cooling ★ NOCTUA NH-D15 CHROMAX BLACK 140mm + 10 of Noctua NF-F12 PWM
    ★ PSU ★ ANTEC HCG-1000-EXTREME 1000 Watt 80 Plus Gold Fully Modular PSU
    ★ Case ★ LIAN LI PC-O11 DYNAMIC XL ROG (BLACK) (G99.O11DXL-X)
    ★ Monitor ★ LG Ultragear 27" 240Hz Gaming Monitor
    ★ Keyboard ★ TVS Electronics Gold Keyboard
    ★ Mouse ★ Logitech G502 Hero

  3. #3
    New Member
    Join Date
    Oct 2013
    Posts
    6

    Re: Tabbed Web Browser (Basic code for beginners)

    Maybe you should also provide what's needed from the toolbox.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width