• Home
 · 
• Internet/HTML
 · 
• how to create a web browser by implementing its functions very easy explained

how to create a web browser by implementing its functions very easy explained

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




Rate how to create a web browser by implementing its functions very easy explained

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

(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]