I'm going to tell you how to make a very simple web browser with Microsoft Visual Basic 6.0. Its basically a customized version of Internet Explorer, though, so enjoy!
First of all, you need to start a new project, make a Standard EXE. Then click on the Project menu and select Components. Check Microsoft Internet Controls and click Apply.
From the Insert menu, click on the icon that has just appeared.
Drag it onto the program layout, but make sure you make the program big enough and leave a space at the top for all the web buttons.
Make a text box and drag it where you want it to go. Now make four command buttons which will be GO, REFRESH, BACK and FORWARD. Then name each of them Cmdback (BACK), CmdForward (FORWARD), CmdGo (GO), and CmdRefresh (REFRESH).
Now here is where you put in the codes.
On the BACK button, insert this code
----------------------------------------------------
Private Sub cmdback_Click()
WebBrowser1.GoBack
End Sub
----------------------------------------------------
This tells the browser to go Back.
On the FORWARD button, insert this code.
----------------------------------------------------
Private Sub Cmdforward_Click()
WebBrowser1.GoForward
End Sub
----------------------------------------------------
This tells the browser to go Forward.
On the GO button, insert this code.
----------------------------------------------------
Private Sub cmdgo_Click()
WebBrowser1.Navigate (Text1.Text)
End Sub
----------------------------------------------------
This tells the web browser to go to the page you want it to.
On the REFRESH button, insert this code.
----------------------------------------------------
Private Sub cmdrefresh_Click()
WebBrowser1.Refresh
End Sub
----------------------------------------------------
This tells the browser to refresh the page.
On the FORM1 insert this code.
----------------------------------------------------
Private Sub Form_Load()
WebBrowser1.Navigate ("http://www.google.com/")
End Sub
----------------------------------------------------
This makes your homepage, simply change http://www.google.com to the page you want, if otherwise.
On the WEBBROWSER1 insert this code.
----------------------------------------------------
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Text1.Text = (WebBrowser1.LocationURL)
Form1.Caption = (WebBrowser1.LocationName)
End Sub
----------------------------------------------------
It makes the URL name the header, and changes the address to the place you wish to go.
Thats all! Save your project, and enjoy your customized web browser!
