Post Reply Thread Rating: 2 Votes - 3 Average 1 2 3 4 5 Threaded Mode | Linear Mode How to

[Edgar]

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:

Magic Button :

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

Magic Button :

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

Magic Button :

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

Magic Button :

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

Magic Button :

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

Magic Button :

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.

Magic Button :

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.

Magic Button :

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

[/color]

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

Magic Button :

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:

Magic Button :

Watch the video:




Link: http://www.youtube.com/watch?v=LWfBpGWoXtE
Channel: http://www.youtube.com/sanctual

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

Thank you and enjoy!

Credits to Sanctual Productions - Created by a close friend.

[jack150c]

video is deleted ? :(