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:
http://rmb-scripting.com/tutorials.php?tutorial&tid=271
DL:
http://rmb-scripting.com/downloads.php?download&id=29
_________________
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:
Code
Private Sub s01_Click()
w.Navigate "http://www.google.com/search?q=" & SB.Text
End Sub
Private Sub s02_Click()
w.Navigate "http://search.yahoo.com/search?p=" & SB.Text
End Sub
Private Sub s03_Click()
w.Navigate "http://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:
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:
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:
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:
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:
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.