[TUT] How to make a simple WebBrowser in VB 2010! [TUT] - [ Pictures]

[Statics]

Hey Support Forums,

I have decided to make a new tutorial for new members to learn how to code, this is my tutorial on how to make a web browser. This tutorial was created by me a VERY long time ago but it still works and it is effective. Here it is:

Required items in order to successfully follow this tutorial:

• Visual Studio/basic 2010
  
• Some coding skills
  
• A brain
  
• Able to understand and read English!

Firstly, you must open Visual Basic 2010 and then click new project and choose the windows form application as explained in the following picture:

Spoiler (Click to View)

Secondly, you can change the name of the browser and the size by doing the following:

Spoiler (Click to View)

Thirdly, you must add a panel by simply clicking the toolbox in the top left corner and do the following:

Spoiler (Click to View)

Fourthly, you must go to toolbox (once again) and choose WebBrowser and do the following:

Spoiler (Click to View)

Fifthly, you must open toolbox and add buttons (five of them in fact) and do the following with them:

Spoiler (Click to View)

Sixthly, you must re-name the buttons into what I have done in the following picture:

Spoiler (Click to View)

Sevently, you must add a textbox and extend it as I have done. You must also add a label, all of the required objects in this step are in the toolbox.

Spoiler (Click to View)

Eighthly, you must add a statusstrip at the bottom of the webbrowser as I have done, you can obtain the status bar from the toolbar.

Spoiler (Click to View)

Tenthly, it is finally time to get some coding done!, double click the buttons before you add the codes, he codes for the buttons are below:

Back Button:

Code:

WebBrowser1.GoBack()

Forward Button:

Code:

WebBrowser1.GoForward()

Refresh Button:

Code:

WebBrowser1.Refresh()

Stop Button:

Code:

WebBrowser1.Stop()

Go Button:

Code:

WebBrowser1.Navigate(Textbox1.Text)

The progress bar:

Code:

Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
        Dim p, d, t As Integer
        d = e.CurrentProgress
        t = e.MaximumProgress
        If t < 1 Then t = 1
        p = Int(d / t) * 100
        If p > 100 Or p < 0 Then Exit Sub
        ToolStripProgressBar1.Value = p
    End Sub

After you have added the codes for the buttons you are done!, the codes should be something like this:

Spoiler (Click to View)

This is the whole code:

Code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.GoBack()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        WebBrowser1.GoForward()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        WebBrowser1.Stop()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        WebBrowser1.Refresh()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        WebBrowser1.Navigate(TextBox1.Text)
    End Sub

    Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
        Dim p, d, t As Integer
        d = e.CurrentProgress
        t = e.MaximumProgress
        If t < 1 Then t = 1
        p = Int(d / t) * 100
        If p > 100 Or p < 0 Then Exit Sub
        ToolStripProgressBar1.Value = p
    End Sub
End Class

Finally, after you have done everything and added all the codes etc, you can change the icon of the browser and the name of the things.

This is how it looks like:

Spoiler (Click to View)

If you have any questions, feel free to post in this thread or private message me!

Thank you and enjoy!