by King (24 Submissions)
Category: Internet/HTML
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 13th May 2004
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
how to create a web browser by implementing its functions very easy explained
API Declarations
i will explain you the different functions you can use for a web browser
(1) Stop
(2) Foward
(3) Back
(4) Refresh
(5) Copy
(6) Cut
(7) Find
(8) Select all
(9)progress change
(10)textsize
(11)Creating new window
VBcoders
(1) Stop
webbrowser1.stop (this well stop any website which you are navigating in the browser)
*****************************************************************************
(2) Foward
webbrowser1.gofoward ( this will navigate the pages foward)
*****************************************************************************
(3) Back
webbrowser.goback (this will navigate the pages backward)
*****************************************************************************
(4) Refresh
webbrowser.refresh (this will refresh the page in the browser)
*****************************************************************************
(5) Copy
webbrowser.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
(this will copy the sources of the webpage from one to another)
*****************************************************************************
(6) Cut
webbrowser.ExecWB OLECMDID_CUT, OLECMDEXECOPT_DODEFAULT
*****************************************************************************
(7) find
webbrowser.ExecWB OLECMDID_SHOWFIND, OLECMDEXECOPT_DODEFAULT
*****************************************************************************
(8) Select all
webbrowser.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
*****************************************************************************
(9)Progress Change
Private Sub webbrowser_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
ProgressBar1.Max = ProgressMax
ProgressBar1.Value = Progress
ProgressBar1.Refresh
End Sub
*****************************************************************************
textsize ( first you have to make the procedure for text size like define here
Private Sub setFontSize(Size As Integer)
Dim range As Variant
range = CLng(Size)
frmweb.webbrowser.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, range, Null
End Sub
if you want to create a large text then use this code
setFontSize (3)
if you want to create a small text then use this code
setFontsize (1)
if you want to create a medium text then use this code
setFontsize (2)
like this you can create text size
**************************************************************************
how to create a new window
dim anyvariablename as yourformname
anyvariablename.show
**************************************************************************
thats it...... Easy
If you want to ask more questions you are always free to mail me on [email protected]
No comments have been posted about how to create a web browser by implementing its functions very easy explained. Why not be the first to post a comment about how to create a web browser by implementing its functions very easy explained.