3 replies to this topic

[Paradox]

Here is what you need.
* 5 Buttons
* 1 Webbrowser
* 2 Textbox

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

[marwex89]

Very little code...! VB is compact... :)

[TcM]

Great tutorial. Thanks for your contribution!

Posts moved here:
http://forum.codecal...-wrapper-2.html

[Umbrageous]

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

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