|
|
|
|
|
Ustvarite napredni spletni brskalnik
V tej lekciji, vam bom v okolju Visual Basic pokazal kako narediti naprednejši brskalnik, z funkcijami natisni stran, shrani stran, nastavitve strani, spremenitev domače strani, čas, url status, "progress bar", itd.
|
|
 |
|
|
|
|
|
|
|
|
|
|
 |
1.
|
|
|
Najprej naredimo nov projekt, ki ga poimenujemo.
Poimenujmo ga poljubno, v mojem primeru je "Napredni brskalnik".
|
|
| |
2.
|
|
|
Dodamo webbrowser in v kotu kliknemo trikotnik ter "Undock in parent container".
|
|
| |
3.
|
|
|
Med nastavitvami kliknete na "Ancor" in vsa polja pobarvate črno, potem raztegnete brskalnik toliko, da je malo prostora zgoraj in spodaj.
"Ancor" pomeni, da če se okno maksimizira, da se raztegne tudi to okno.
|
|
| |
4.
|
|
|
Dodamo še "Status strip" in "Menu strip", ter dva "Timer"-ja.
|
|
| |
5.
|
|
|
Status stripu dodamo "Status label" in "Progressbar".
|
|
| |
6.
|
|
|
Status stripu, izbrišemo tekst in "Spring" nastavimo na True.
To pomeni, da se bo tekst razdelil spodaj.
|
|
| |
7.
|
|
|
Zgoraj kliknemo in dodamo ime "Datoteka" ter pod temu dodamo "Natisni stran", "Shrani stran", ter Nastavitve spletne strani.
|
|
| |
8.
|
|
|
Dodamo še "Nastavitve", pod tem "Spremeni domačo stran" in "Čas:"
|
|
| |
9.
|
|
|
Dodamo 6 gumbov ter jih poimenujemo:
-"Nazaj"
-"Naprej"
-"Osveži"
-"Stop"
-"Domov"
-"Išči"
Med "Domov" in "Išči" dodamo combobox. (Glejte sliko)
|
|
| |
10.
|
|
|
Zdaj "Timer1" in "Timer2" nastavite "Enabled" na True in "Interval" na 1.
|
|
| |
11.
|
|
|
Kliknimo na gumb "Nazaj" in vnesimo tole kodo:
WebBrowser1.GoBack()
"Naprej":
WebBrowser1.GoForward()
"Osveži":
WebBrowser1.Refresh()
"Stop":
WebBrowser1.Stop()
"Domov":
WebBrowser1.GoHome()
Tukaj bomo potem še nekaj dopisali.
"Išči":
WebBrowser1.Navigate()
Če vas zanima razlaga poglejte tule.
|
|
| |
12.
|
|
|
Kliknemo na "Timer1" in vpišemo naslednjo kodo:
If ToolStripStatusLabel1.Text = "Končano" Then
ToolStripProgressBar1.Value = 0
End If
ToolStripStatusLabel1.Text = WebBrowser1.StatusText
(Razlaga: Če bo ToolStripStatusLabel1.Besedilo="Končano" potem
bo ToolStripProgressBar1.vrednost=0 konec če.
ToolStripStatusLabel1.text bo Lokacija Webbrowser1)
Če kaj ne boste razumeli, pišite na forum...
|
|
| |
13.
|
|
|
Kliknite še na "Timer2" in vpišite naslednjo kodo:
ČasToolStripMenuItem.Text = "Čas: " + TimeOfDay
(Razlaga: ČasToolStripMenuItem.Besedilo bo "Čas: " in bo brskalnik dodal še resnični čas.)
Če kaj ne boste razumeli, pišite na forum...
|
|
| |
14.
|
|
|
Kliknite na datoteka in na "Natisni stran" ter vpišite:
WebBrowser1.Print()
(Razlaga: WebBrowser1.Tisk)
Kliknite na "Datoteka" in na "Shrani stran" ter vpišite: WebBrowser1.ShowSaveAsDialog()
(Razlaga: WebBrowser1.PokažiShraniKotDialog)
Kliknite na "Nastavitve spletne strani" ter vpišite:
WebBrowser1.ShowPropertiesDialog()
(Razlaga: WebBrowser1.PokažiNastavitveDialog)
Če kaj ne boste razumeli, pišite na forum...
|
|
| |
15.
|
|
|
Kliknite okno z zvezdico in "Add Windows Form" ter ga poimenujte.
Jaz sem ga Domaca. Malo mu spremenite obliko kot sem mu jo jaz.
|
|
| |
16.
|
|
|
Dodajte dva gumba in en textbox, ter mu še enkrat spremenite obliko.
Gumba poimenujte kot sem jih jaz.
|
|
| |
17.
|
|
|
Kliknite na prvi gumb in vnesite tole:
My.Settings.Domača = TextBox1.Text
(Razlaga: My.Settings.Domača je Textbox1.Besedilo)
Kliknite na drugi gumb in vnesite tole:
My.Settings.Domača = Form1.WebBrowser1.Url.ToString
(Razlaga: My.Settings.Domača je Lokacija Webbrowser1 v Oknu1)
POZOR! Za napake se še ne zmenite!
Če kaj ne boste razumeli, pišite na forum...
|
|
| |
18.
|
|
|
Pojdite na Project in kliknite zadnjo možnost.
|
|
| |
19.
|
|
|
Pojdite v zavihek "Settings", tam dodajte nov setting z imenom "Domača" (NE SPREMINJATI).
|
|
| |
20.
|
|
|
Dvakrat kliknite na prvo okno, in vpišite naslednje:
 ToolStripStatusLabel1.Text = ""
Timer1.Start()
AcceptButton = Button6
(Razlaga: ToolStripStatusLabel1.Besedilo="" Timer1.Začetek
PotrdilniGumb=Gumb6(Enter))
|
|
| |
21.
|
|
|
Dodamo naslednjo kodo:
Private Sub WebBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
Me.Text = "IME | " + WebBrowser1.Url.Host
ComboBox1.Text = WebBrowser1.Url.ToString
End Sub
Če kaj ne boste razumeli, pišite na forum...
POZOR: Skopirajte vse in v okencu za kode dvakrat kliknite enter in skopirajte. "IME" lahko spremenite vendar pustite tisto črtico in presledek.
|
|
| |
22.
|
|
|
Dodamo še:
Private Sub Button6_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button6.KeyDown
If e.KeyCode = Keys.Enter And ComboBox1.Text <> WebBrowser1.Url.ToString Then
WebBrowser1.Navigate(ComboBox1.Text)
End If
If e.KeyCode = Keys.Enter And ComboBox1.Text = WebBrowser1.Url.ToString Then
End If
End Sub
Če kaj ne boste razumeli, pišite na forum...
POZOR: Naredite kot v prejšnjem koraku, samo skopirajte!
|
|
| |
23.
|
|
|
Kot v prejšnjih dveh korakih skopirate tudi to:
Private Sub ShraniStranToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShraniStranToolStripMenuItem.Click
WebBrowser1.ShowSaveAsDialog()
End Sub
Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
ToolStripProgressBar1.PerformStep()
If ToolStripProgressBar1.Maximum = ToolStripProgressBar1.Value Then
ToolStripProgressBar1.Value = 0
End If
End Sub
Če kaj ne boste razumeli, pišite na forum...
|
|
| |
24.
|
|
|
Skopirajte tudi:
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Control And e.KeyCode = Keys.P Then
WebBrowser1.Print()
End If
If e.KeyCode = Keys.Control And e.KeyCode = Keys.S Then
WebBrowser1.ShowSaveAsDialog()
End If
If e.KeyCode = Keys.Control And e.KeyCode = Keys.D Then
Domaca.Show()
End If
If e.KeyCode = Keys.Control And e.KeyCode = Keys.H Then
WebBrowser1.Navigate(My.Settings.Domača)
End If
If e.KeyCode = Keys.Back Then
WebBrowser1.GoBack()
End If
If e.KeyCode = Keys.F5 Then
WebBrowser1.Refresh()
End If
End Sub
Če kaj ne boste razumeli, pišite na forum...
|
|
|
 |
|
|
|
|
|
| |
|
|
|
|
|
Kot je že realife prejšnjo lekcijo pokomentiral.
Lahko bi naredil dva dela lekcije, ker v tej je vse nekaj "natlačeno", in zopet si skopiral samo kode. Lahko bi vsaj na koncu naredil sliko, kako program izgleda, dodal še kakšno ikono, itd.  |
|
|
|
|
|
|
|
|
|
Dixo:
Kot je že realife prejšnjo lekcijo pokomentiral.
Lahko bi naredil dva dela lekcije, ker v tej je vse nekaj "natlačeno", in zopet si skopiral samo kode. Lahko bi vsaj na koncu naredil sliko, kako program izgleda, dodal še kakšno ikono, itd.
Se strinjam, iz tega se nič ne naučimo |
|
|
|
|
|
|
|
|
|
| Da, lahko pa bi združil prvo in drugo. V vsaki je opisan postopek izdelave brskalnika. |
|
|
|
|
|
|
|
|
|
Meni ne deal tisto ko piše "spremeni domačo stran".
|
|
|
|
|
|
|
|
|
|
Ali bi bilo možno ustvariti okno za zaznamke.....
namesto besed sem dal jaz znake in bi žele, da bi mi pokazalo, ko se premakneš na njih kaj pomenijo a je to mogoče??
HVALA 
|
|
|
|
|
