Make a Moderate Web-Browser - Part 2

Ok, here is part2 of how 2 make a moderate web browser. you can either download the 1st 1/2 or use the tutorial

Tut:https://tutorial.ninja/tutorials/Desktop+Programming/Visual+Basic/271/Make+a+Moderate+WebBrowser.html

_________________

OK, First lets add a search. Make 1 text box and 3 buttons. Name the Textbox SB and the buttons s01 s02 and s03. Now add this code:

VISUALBASIC Code

Private Sub s01_Click()
w.Navigate "https://www.google.com/search?q=" & SB.Text
End Sub
 
Private Sub s02_Click()
w.Navigate "https://search.yahoo.com/search?p=" & SB.Text
End Sub
 
Private Sub s03_Click()
w.Navigate "https://search.msn.com/results.aspx?q=" & SB.Text
End Sub

Ok, that is how you do add the searches.

________________

Now lets add history. Make another form called "form3"

add a combo box to it named "CB"

Now in the menu editor, make 1 named "G" and captioned "history". Add the following code:

VISUALBASIC Code

Private Sub w_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    On Error Resume Next
    Dim I As Integer
    Dim bFound As Boolean
    Me.Caption = w.LocationName & " - Zar Browser"
    T.Text = w.LocationURL
    For I = 0 To Form3.CB.ListCount - 1
        If Form3.CB.List(I) = w.LocationURL Then
            bFound = True
            Exit For
        End If
    Next I
    mbDontNavigateNow = True
    If bFound Then
        Form3.CB.RemoveItem I
    End If
    Form3.CB.AddItem w.LocationURL, 0
    Form3.CB.ListIndex = 0
    mbDontNavigateNow = False
End Sub
 
Private Sub G_Click()
Form3.Visible = True
End Sub

Now, when you navigate to a site, the URL will go to the adressbar, and the Name will go to the title of the browser as well as the history being recorded.

___________________

Now to block popups. Its pretty simple, just add this code:

VISUALBASIC Code

Private Function IsPopupWindow() As Boolean
On Error Resume Next
If w.Document.activeElement.tagName = "BODY" Or w.Document.activeElement.tagName = "IFRAME" Then
IsPopupWindow = True
Else
IsPopupWindow = False
End If
End Function
 
Private Sub w_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frm As Form1
Cancel = IsPopupWindow
If Cancel = False Then
Set frm = New Form1
Set ppDisp = frm.w.object
frm.Show
End If
End Sub

now you pop the blockups.

________________________

O yeah, and i found out in the other browser, the properties and print dont work, so add this code instead:

VISUALBASIC Code

Private Sub C_Click()
w.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT
End Sub
 
Private Sub D_Click()
w.ExecWB OLECMDID_PROPERTIES, OLECMDEXECOPT_DODEFAULT
End Sub

You can also add an open option. Go to menu editor and add an option called "Open". Name it "L"
now add this code:

VISUALBASIC Code

Private Sub L_Click()
w.ExecWB OLECMDID_OPEN, OLECMDEXECOPT_DODEFAULT
End Sub

____________________________

Now you can add some Edit commands. Like copy, paste, cut, and so forth.
Go to menu Editor, and do this:

Edit (name=M)
....Undo (name=N)
....Redo (name=O)
.... (Uncheck enabled)(name=P)
....Cut (name=Q)
....Copy (name=R)
....Paste (name=S)
....Delete (name=U)
....Find (name=v)

Now add this code:

VISUALBASIC Code

Private Sub N_Click()
w.ExecWB OLECMDID_UNDO, OLECMDEXECOPT_DODEFAULT
End Sub
 
Private Sub O_Click()
w.ExecWB OLECMDID_REDO, OLECMDEXECOPT_DODEFAULT
End Sub
 
Private Sub Q_Click()
w.ExecWB OLECMDID_CUT, OLECMDEXECOPT_DODEFAULT
End Sub
 
Private Sub R_Click()
w.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
End Sub
 
Private Sub S_Click()
w.ExecWB OLECMDID_PASTE, OLECMDEXECOPT_DODEFAULT
End Sub
 
Private Sub U_Click(Index As Integer)
w.ExecWB OLECMDID_DELETE, OLECMDEXECOPT_DODEFAULT
End Sub
 
Private Sub V_Click()
w.ExecWB OLECMDID_FIND, OLECMDEXECOPT_DODEFAULT
End Sub

I now took the time 2 add shortcuts to all of the menu links. You may do so if you please. just choose something under "shortcut:"

_____________________________

now you can jazz up your webbrowser. Add anything you like. If this tutorial is too hard or something 2 read (which i know im bad at making tuts), then you can just download the source.

Author:

zar

Views:

3,104

Rating:

Posted on Thursday 27^th December 2007 at 03:01 PM

Dalez

The history doesn't work, and the most of the edit doesn't. Also, I can't get the buttons to work (1st tut) keeps saying that the code is wrong. Atm i'm using no buttons

Posted on Thursday 27^th December 2007 at 03:01 PM

Dalez

The history doesn't work, and the most of the edit doesn't. Also, I can't get the buttons to work (1st tut) keeps saying that the code is wrong. Atm i'm using no buttons

Posted on Tuesday 4^th December 2007 at 10:57 PM

zar

o yeah, u have 2 make the Name for find a capital V. u probably made it lower case

sorry for 3rd comment :(

Posted on Tuesday 4^th December 2007 at 10:52 PM

zar

i found out that open isnt supported anymore :( but it still displays it as correct in code.

Posted on Tuesday 4^th December 2007 at 10:49 PM

zar

code for find:

Code

        Private Sub V_Click()

w.ExecWB OLECMDID_FIND, OLECMDEXECOPT_DODEFAULT

End Sub

open is being stupid :(

Posted on Tuesday 4^th December 2007 at 12:10 AM

ShadowMage
ShadowMage's Avatar

Sorry for double comment but find doesnt either o.o

Posted on Monday 3^rd December 2007 at 11:57 PM

ShadowMage
ShadowMage's Avatar

Open doesn't work for me o.o