Here is what you need.
* 5 Buttons
* 1 Webbrowser
* 2 Textbox
Code:Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click WebBrowser1.GoForward() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click WebBrowser1.GoBack() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click WebBrowser1.Navigate(Texbox1.Text) End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click WebBrowser1.Refresh() End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click WebBrowser1.Navigate("http://www.google.com/search?hl=en&q=" + Texbox2.Text) End Sub End Class
Very little code...! VB is compact...![]()
Hey! Check out my new Toyota keyboaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
Great tutorial. Thanks for your contribution!
Posts moved here:
Browser or Wrapper?
Hmm, Yeah its simple, but only works for vb6 My Code because i use vB 2005 and the browser i made uses tabs looks more like this
Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As
Code:System.EventArgs) Handles ToolStripButton4.Click CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh() End Sub Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Stop() End Sub Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome() End Sub Friend WithEvents ToolStripButton7 As System.Windows.Forms.ToolStripButton Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton7.Click CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("Can't post Links...." & ToolStripTextBox2.Text) End Sub
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks