X

Zmaga.com | Zmagajmo z znanjem  
Programi Programski jeziki Visual Basic  
  Kliknite tukaj, da si ogledate profil, kot ga vidijo drugi

Ustvarite napredni spletni brskalnik

  Možnosti
   
  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...
 
 
Komentiraj
 
 
 
 
 
6.12.2010, 8:10
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.
 
 
 
 
6.12.2010, 20:09
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
 
 
 
 
6.12.2010, 20:31
Da, lahko pa bi združil prvo in drugo. V vsaki je opisan postopek izdelave brskalnika.
 
 
 
 
12.3.2011, 14:44
Meni ne deal tisto ko piše "spremeni domačo stran".

spremenil: sasko.123 (12.3.2011 ob 14.45.43)
 
 
 
 
18.4.2011, 15:43
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


spremenil: podtalje (18.4.2011 ob 20.21.05)
 
 
 
 
30.8.2011, 13:54
Hmmm, mene pa zanima, zakaj je ta tutorial tako natrpan?
Res je da:
-se ničesar ne naučiš
-samo copy-paste kodo
-je zelo nepregledno
-so v celem turorialu same napake...

Napredni brskalnik, ja pa kaj še...
Še jaz naredim boljšega, pa se z VB ukvarjam manj kot 3 dni...

P.S.
Lahko to kdo popravi, prosim?


spremenil: someone755 (30.8.2011 ob 14.07.55)
 
 
 
 
30.8.2011, 16:08
someone755, izvoli, potem pa ti napiši boljšo lekcijo!
 
 
 
 
30.8.2011, 16:39
Predlog administratorjem strani: someone755 postane moderator, če s svojim znanjem do četrtka spiše boljšo lekcijo!

Sicer pa, someone, kaj misliš da ti daje pravico kritizirati stvari, ki jih ne razumeš? To je nekaj takega, kot da bi postal literarni kritik potem ko si prebral Rdečo kapico.
 
 
 
 
30.8.2011, 20:15
Kritike lahko po moje poda čisto vsak, če seveda zraven poda argumente in someone755 je po mojem mnenju čisto lepo napisal, kaj ga moti.

Drugo pa je, ali so njegovi argumenti utemeljeni. Sam mislim, da ne.

Sam menim, da tudi če samo uporabljaš copy&paste, se lahko tudi iz tega nekaj naučiš. Tako se recimo iz kode večinoma da razbrati, kaj ta koda počne. I na koncu imaš nek končni izdelek, na katerem se lahko "igraš", uporabiš druge funkcije, ji prestaviš, ipd.

Verjetno bi se res dalo napisati tudi bolj pregledno, ampak kot rečeno, vsak ima možnost napisati lekcijo. Za vsako lekcijo je potrebno kar nekaj truda, zato se strinjam s predhodniki, da je pred tako kritiko dobro, da si se sam že izkazal v isti stvari.

Glede napak, pa se pač pojavljajo in se vedno bodo. Če vidiš kakšno napako,sporoči in jo bomo popravili.


spremenil: podtalje (30.8.2011 ob 20.16.05)
 
 
 
 
31.8.2011, 11:18
Pardon, točka kjer piše: - so v celem tutorialu same napake me moti. Kako lahko nek popoln začetnik pri neki kodi ugotovi da so same napake?! Razen če je tak kot oni tip, ki se je v enem tednu naučil tekoče govoriti islandsko, v kar pa dvomim, saj bi drugače bil po vseh televizijah.
 
 
 
 
25.4.2012, 20:18
Saj bi naredil svoj tutorial, pa me ta stran po končanem vedno pusti na cedilu (ničesar ne shrani)
Poskusil sem še isti dan, ko sem prvič objavil svoj prvi post, lepo in predvsem pregledno sem spisal svoj tutorial, vse pomembne podatke tudi razložil in obarval, dodal slike, ki sem jih v slikarju uredil tako, da so bile pomembne stvari poudarjene, vse dokončal, pritisnil 'Shrani' in vse, razen opisa lekcije, se mi je izbrisalo.

@Erco: Kdo pravi, da jih ne razumem!? Samo zato, ker sem začetnik, še ne pomeni, da nečesa ne razumem.
Se opravičujem, če sem koga užalil, a nisem mislil nič resnega. To je samo moje mnenje in kot začetnik sem le stežka prišel do konca lekcije (a sem vseeno, po nekaj svojih optimizacijah in improvizacijah, kar mi ni bilo jasno in ni delovalo tudi po vsem, kar sem poskusil sem pač izpustil). Če pa vas zanima, sem 4. dan učenja v svoj Browser (version 2.1) dodal tudi Javascript, tako da razne aplikacije, ki temeljijo na Javi delujejo.
 
 
 
 
25.4.2012, 21:53
Se strinjam, da bi lahko bila lekcija napisana bolje. To je bila pravzaprav moja tretja lekcija, zdaj pa verjamem, da sem se vsaj malo izboljšal pri izdelovanju lekcij.

Sicer pa ne razumem, kako se ti lekcija ne more shraniti - meni so se še zmeraj. Poizkusi ponovno
 
 
 
 
25.4.2012, 22:30
Res, tvoje novejše lekcije so 1A, skoraj polovico VB znanja imam od tvojih lekcij
Za to neshranjevanje pa verjamem da lahko odprem novo tema

 
 
 
 
28.9.2012, 15:06
Meni je pri vsaki kodi javlo toto napako
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

mi lahko kdo pomaga ??


changed: .lolo (28.9.2012, 15:38)
 
 
 
 
28.9.2012, 17:02
To ni napaka. To je samo del kode. Kakšno napako javi?
 
Prijava in registracija
 
 
 
 
 
 
  Zmaga.com | Zmagajmo z znanjem
 
  Zmaga.com ponuja brezplačno in razumljivo učenje računalniških programov, nudi enkraten način spoznavanja z različnimi svetovnimi jeziki, vas s podrobno obrazloženimi recepti nauči kulinarike in vam prežene strahove pred domačimi opravili.