Page 1 of 1

Create a Simple Web Browser only 4 buttons and 1 textbox Rate Topic: ***-- 5 Votes

#1 firebolt  Icon User is offline

  • D.I.C Lover
  • member icon

Reputation: 92
  • View blog
  • Posts: 5,561
  • Joined: 20-February 09

Posted 24 March 2009 - 12:23 AM

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)

  • Attached Image


Is This A Good Question/Topic? 3
  • +

Replies To: Create a Simple Web Browser

#2 _VB125  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 2
  • Joined: 18-July 09

Posted 01 October 2009 - 04:39 AM

what about an advanced web browser or something of the sort?
Was This Post Helpful? 0
  • +
  • -

#3 firebolt  Icon User is offline

  • D.I.C Lover
  • member icon

Reputation: 92
  • View blog
  • Posts: 5,561
  • Joined: 20-February 09

Posted 01 October 2009 - 05:13 AM

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.
Was This Post Helpful? 0
  • +
  • -

#4 ShadowM82  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 1
  • Joined: 24-January 10

Posted 24 January 2010 - 01:09 AM

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??
Was This Post Helpful? 0
  • +
  • -

#5 darkvai  Icon User is offline

  • New D.I.C Head

Reputation: 1
  • View blog
  • Posts: 7
  • Joined: 23-March 10

Posted 25 March 2010 - 02:42 AM

awesome tut.
did you make a browser?

:gunsmilie:
Was This Post Helpful? 0
  • +
  • -

#6 raziel_  Icon User is offline

  • Like a lollipop
  • member icon

Reputation: 464
  • View blog
  • Posts: 4,255
  • Joined: 25-March 09

Posted 25 March 2010 - 12:47 PM

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

Was This Post Helpful? 0
  • +
  • -

#7 Guest_petnjau*


Reputation:

Posted 27 July 2010 - 06:09 AM

View PostNoBrain, on 25 March 2010 - 11:47 AM, said:

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

wow its a nice one; thanks alot for this codes

Attached File(s)


Was This Post Helpful? 0

#8 Guest_saga*


Reputation:

Posted 07 February 2011 - 11:17 AM

I reffered your browser code, but im getting ERROR :

Runtime error "424" :object required

okz hel me out..
Was This Post Helpful? 0

#9 BobRodes  Icon User is offline

  • Your Friendly Local Curmudgeon
  • member icon

Reputation: 574
  • View blog
  • Posts: 2,989
  • Joined: 19-May 09

Posted 18 March 2011 - 02:47 PM

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.
Was This Post Helpful? 0
  • +
  • -

#10 Rhymer  Icon User is offline

  • D.I.C Regular

Reputation: 23
  • View blog
  • Posts: 282
  • Joined: 21-April 09

Posted 28 March 2011 - 01:55 PM

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?

Was This Post Helpful? 0
  • +
  • -

#11 zeta_dfx  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 1
  • Joined: 02-January 11

Posted 20 July 2011 - 12:22 PM

thank's for your tutorial
you give me an inspiration :bananaman: :bananaman: :bananaman: :bananaman:
Was This Post Helpful? 0
  • +
  • -

Page 1 of 1