Ustvarite napredni spletni brskalnik

Najprej naredimo nov projekt, ki ga poimenujemo.

Poimenujmo ga poljubno, v mojem primeru je "Napredni brskalnik".

Dodamo webbrowser in v kotu kliknemo trikotnik ter "Undock in parent container".

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.

Dodamo še "Status strip" in "Menu strip", ter dva "Timer"-ja.

Status stripu dodamo "Status label" in "Progressbar".

Status stripu, izbrišemo tekst in "Spring" nastavimo na True.

To pomeni, da se bo tekst razdelil spodaj.

Zgoraj kliknemo in dodamo ime "Datoteka" ter pod temu dodamo "Natisni stran", "Shrani stran", ter Nastavitve spletne strani.

Dodamo še "Nastavitve", pod tem "Spremeni domačo stran" in "Čas:"

Dodamo 6 gumbov ter jih poimenujemo:

-"Nazaj"
-"Naprej"
-"Osveži"
-"Stop"
-"Domov"
-"Išči"

Med "Domov" in "Išči" dodamo combobox. (Glejte sliko)

Zdaj "Timer1" in "Timer2" nastavite "Enabled" na True in "Interval" na 1.

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.

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...

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...

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...

Kliknite okno z zvezdico in "Add Windows Form" ter ga poimenujte.

Jaz sem ga Domaca. Malo mu spremenite obliko kot sem mu jo jaz.

Dodajte dva gumba in en textbox, ter mu še enkrat spremenite obliko.

Gumba poimenujte kot sem jih jaz.

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...

Pojdite na Project in kliknite zadnjo možnost.

Pojdite v zavihek "Settings", tam dodajte nov setting z imenom "Domača" (NE SPREMINJATI).

Dvakrat kliknite na prvo okno, in vpišite naslednje:

ToolStripStatusLabel1.Text = ""
Timer1.Start()
AcceptButton = Button6
(Razlaga: ToolStripStatusLabel1.Besedilo="" Timer1.Začetek
PotrdilniGumb=Gumb6(Enter))

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.

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!

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...

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...


Zmaga.com na Facebooku \| Pošljite nam e-pošto \| Informacije o Zmaga.com