[firebolt]

I will show you how to create a simple web browser in VB6. This web browser is very self explanatory but the steps are shown. Once loaded Visual Basic, follow these steps.

1.Create a new project, and then go to "Project" on the menu.
Click components or use the shortcut Ctrl+T

2.Find the component "Microsoft Internet Controls," check it and click "Apply" and then "Close."

3.Click the icon that was just added in the tools window, and draw a large sized window with it but big enough to add in a few buttons and textboxes. This is going to be where you view web pages through your browser.

4.Make a text box; this will be your URL bar where you type in the address of the website you want to see. (You may also create a heading or such)

5.Make four command buttons, these are going to be your Go, Back, Forward, and Refresh buttons, change the captions accordingly, and name each of them Cmdgo, Cmdback, CmdForward, and CmdRefresh. Place them in appropriate positions and now we code.

Firstly we will code the back button.

Private Sub cmdback_Click()
WebBrowser1.GoBack
End Sub

Then we will code the Forward button which has a similar code to the back button.

Private Sub Cmdforward_Click()
WebBrowser1.GoForward
End Sub

Now we give the code to the Go button. This will link to the text box as when we click the button, the URL within the text box will open up.

Private Sub cmdgo_Click()
WebBrowser1.Navigate (Text1.Text)
End Sub

This will refresh the page and reload it.

Private Sub cmdrefresh_Click()
WebBrowser1.Refresh
End Sub

Double click the form and type the WebBrowser part in. This is for the homepage (Google is my default)

Private Sub Form_Load()
WebBrowser1.Navigate ("http://google.com")
End Sub

This changes the text box's text into what URL that you're currently at, and the next line makes the caption of your form into the header of the URL.

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Text1.Text = (WebBrowser1.LocationURL)
Form1.Caption = (WebBrowser1.LocationName)
End Sub

So now it should look like (or similar) like image attached.

Attached image(s)

• 

[_VB125]

what about an advanced web browser or something of the sort?

[firebolt]

That was definitely an option, however, Microsoft will end support to VB6 so that would mean most of these VB6 tutorials will serve a little part of this community, and so the main focus will be at VB.NET and future versions.

[ShadowM82]

Hey guys. Well im really excited to try this out but whenever i try to apply the Microsoft Internet Controls component, the program tells me error in accessing. any ideas on how to fix this??

[darkvai]

awesome tut.
did you make a browser?

[raziel_]

in this tut he just did
but you can try and make advanced if you want. but like firebolt say microsoft will drop the support of vb6 sooner or latter

This post has been edited by NoBrain: 25 March 2010 - 12:47 PM

[BobRodes]

If you don't think that web browser is advanced enough, you can always add complexity to it. Otherwise, you can do this. Go to References this time (NOT Components as you have here) and set a reference to "Microsoft Internet Controls." Then add a module to your project and put this:

Sub Main()
Dim ie As InternetExplorer
Set ie = New InternetExplorer
ie.Navigate2 "http://www.google.com"
ie.Visible = True
End Sub

Of course, you don't have the same control, because all you're really doing is sending messages to an instance of iexplore.exe from your program, and anyone can use the instance directly as well as from your program (unless you commit a few sins to prevent that). So, please understand that I'm not recommending this as a full-on alternative to firebolt's post; it isn't. I'm just mentioning that there's another tool in the box.

[Rhymer]

Is the Microsoft Internet Control an earlier version of IE say version 6?
Will this control prevent or allow pop-ups?
Are there settings to disable options like graphics?

[zeta_dfx]

thank's for your tutorial
you give me an inspiration