Tekst koji sledi se nadovezuje na tekst o „Kreiranju web čitača sa jednom linijom koda“. U nastavku ćemo našem prvobitnom projektu dodati još neke mogućnosti koje poseduju svi standardni browser-i. Na prvom mestu to je polje za upis adrese sajtova. Kod modernih browser-a ovo polje je izvedeno u vidu padajuće liste (drop-down list), gde se nalazi lista posećenih sajtova.
Prvo, dodajte combo box na našu formu. Ovaj combo box će sadržati listu sajtova koje ste prethodno posetili. Nakon toga možete dodati kod vezan za događaj „Combo1.Click“, koji će omogućiti korisniku da iz liste posećenih sajtova izabere jedan.
Private Sub Combo1_Click()
WebBrowser1.Navigate (Combo1.Text)
End Sub
Nemojmo zanemariti da korisniku takođe omogućimo da ukuca adresu u polje i potom pritisne ENTER radi navigacije na određeni sajt. Da bi ovo uradili koristićemo „KeyPress“ događaj koji će se izvršiti kada korisnik pritisne ENTER na tastaturi (detektovaće se KeyAscii kod 13, što odgovara tasteru ENTER).
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Combo1_Click
End If
End Sub
I konačno, dodaćete kod koji će dodavati adrese sajtova u padajuću listu. Kada WebBrowser kontrola poseti određeni sajt, to će „okinuti“ BeforeNavigate događaj. Na osnovu ovog događaja izvršićemo dodavanje sajta u Combo box.
Private Sub WebBrowser1_BeforeNavigate(ByVal URL As String, _
ByVal Flags As Long, ByVal TargetFrameName As String, _
PostData As Variant, ByVal Headers As String, Cancel As Boolean)
Dim strURL As String
strURL = URL
Dim bFound As Boolean
Dim i As Integer
For i = 0 To Combo1.ListCount – 1
If Combo1.List(i) = strURL Then
bFound = True
Exit For
End If
Next i
If Not bFound Then
Combo1.AddItem strURL
End If
Combo1.Text = strURL
End Sub
Na kraju dodaćemo i dva dugmeta za navigaciju „napred“, „nazad“. Na sreću WebBrowser kontrola poseduje dve procedure koje možete iskoristiti za ovo:
- GoBack
- GoForward
Dodajte dva command button-a na formu, u događaj „Command1.Click“ dodajte sledeći kod:
On Error Resume Next
WebBrowser1.GoBack
U događaj „Command2.Click“ dodajte sledeći kod:
On Error Resume Next
WebBrowser1.GoForward
Ostalo je samo da pokrenete program. Sada ovu aplikaciju možete koristiti kao redovan, funkcionalni web browser, i možete koristiti dva komandna dugmeta za navigaciju između posećenih stranica.
Pratite Krstaricu na www.krstarica.com