-
Jan 27th, 2013, 11:02 AM
#1
Thread Starter
New Member
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
-
Feb 1st, 2013, 05:56 AM
#2
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
-
Oct 24th, 2013, 01:29 AM
#3
New Member
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
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|