[TuT] Napravi vlastiti web broswer

Ovo je moj prvi tutorijal o VB-u, stoga izvinite ako bude kakvih pogresaka.

Danas cu vam pokazati kako da na jednostavan nacin napravite svoj web broswer u VB-u 2008. U ovom programu necemo korisiti nikakve specijale slike za dugmad (back i to) vec cemo samo dodavat buttone...

Dakle kada otvorite VB idite na file i new project i dajte ime Web Broswer.
Sada povecajte form 1 na otprilike ovu velicininu :



Nakon sto ste povecali izbrisite ovu ikonu i promjenite text iz Form 1 u npr. Tvoje ime Web Browser.



Ovo dvoje nije zajedno a naci cete ih na desnoj strani pri dnu kada mijenjate opcije.

Takodjer tu mozete mijenjati izgled backgrounda i tako to ali ja cu ostaviti kako je.

Sada je vrijeme da dodamo textbox gdje cemo kucati nas URL.
Pod all windows form nadjite Text Box.



Sada gore negdje pri vrhu vaseg web prozora napravite otprlike preko cijelog prozora (ostavite za ono dugme go prosotra) text box :



Ako ocete mozete napisati u textboxu npr. Upisite link ovdje dolje desno na opcijama ali ne morate narevno.
Sada je vrijeme da dodamo neke buttone.

Prvo cemo dodati onaj button GO samo sto cemo mu dati ime IDI.
Njega cete naci na samom pocetku All windwos formi.



Dodajte ga odmah desno pored textboxa i dajte mu ime idi (nadjite dolje desno gdje pise Text : Button 1i tu kliknite 2 puta i promjenite u IDI)



Sada je vrijeme da kreiramo jos dugmadi.
Napravite sljedece : Pocetna, Naprijed, Nazad , Trazi, Refresuj.
Samo sto cete prije trazi napraviti toolbox . Evo slika da vas ne zbunjujem :



Pokusajte napraviti bar priblizno tako i pokusajte napraviti kakav red ako pravite na svoj nacin.
Sada je vrijeme da dodamo nas Web Prozor.
Nadjite na All windows form WebBrowser.
Zadnje je da van nebi davo bezveze sliku.
Napravite kocku preko cijelog ostatka prozora :



(meni se mijenja nes ovo gore naslov form1 stoga na to ne obracajte paznju).

Sada je dosao najtezi dio.
Ovo je dakle bio samo vizuelni prikaz vaseg programa.
Sada je vrijeme da dodamo neki code.

Slikama vam necu nista pokazivati jer je lahko shvatiti kako i gdje kucati.
Prvo cemo napraviti code za nas IDI button.
Dakle idite dupli klick na IDI button i sacekajte malo dok vam se otvori novi prozor. Tu nista nebrisite samo dodajte sljedece :

WebBrowser1.Navigate(TextBox1.Text)

Sada imate gore iznad da se vratite na izgled sto cete i uraditi :



Sada cemo dodati kod za nasu pocetnu stranicu.
Idite dupli klick na button pocetna i ukucajte sljedeci code :

WebBrowser1.GoHome().

Sada ponovite korak gore i vratite se na Form1 Desing.
Sada cemo dodati code za nase naprijed dugme.
Isto nista nebrisite samo dodajte :

WebBrowser1.GoForward().

Sada cemo dodati za nazad.
Idite dupli klick na dugme nazad i kucajte sljedeci text :

WebBrowser1.GoBack().

Sada cemo dodati code za dugme refresuj.
Idite dupli klick na to dugme i kucajte :

WebBrowser1.Refresh()

I sada je doslo vrijeme za posljednje dugme a to je Trazi.

Idite dakle dupli klik na to dugme i kucajte sljedeci code :

WebBrowser1.GoSearch().

Sada ste dakle zavrsili sa vasim "codovanjem programa".

Konacni code bi trebao ovako izgledati :


Public Class Form1

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
WebBrowser1.GoForward()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Navigate(TextBox1.Text)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser1.GoHome()
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
WebBrowser1.GoBack()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
WebBrowser1.Refresh()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
WebBrowser1.GoSearch()
End Sub
End Class
.

Slika :



Sada je vas program spreman za pokretanje.
Prvo se konektujte na net pa onda idite na DEBUG/START DEBUGGING



Vas program bi trebao izgledati ovako :



Zaboravio sam reci da mozete postaviti pocetni site tako sto cete ici na WebBrowser prozor (u programu kada pravite) i dolje desno naci :

URL : i staviti npr. www.google.ba.

Tada ce vam ,kada pokrenete program, prva stranica biti www.google.ba.

Toliko dakle od mene...

Uskoro cu napraviti jos koji tut pa et ...
Narevno vi mozete ukrasiti vas program i dodati progres bar (ako znate) pa dolje dodati label na kome pise npr. Program created by mandA i tako to...

Ovo je dakle bilo samo ono osnovno.
Ako kome treba source file :

Download

Tut by mandA

Napokon i od tebe nešto pametno.

Ne razumijem se toliko, ali sviđa mi se.

GG

sMINX


Al ruzno izgleda skroz treba to jos doradit...

xD ma nije ni to tesko... samo stavis umjesto buttona neku sliku, promjenis background i to je to

To nije browser to je samo kao neka maska browsera, uostalom fale ti neki jednostavni kodovi kao npr open, save, copy, paste, select all, stop, Shortcut ovi itd... Evo ti source kodovi za njih:
Stop
ime-browsera.Stop()

Select all
ime-textboxa1.SelectAll()

Paste
ime-textboxa1.Paste()

Copy
ime-textboa1.Copy()

Cut
ime-textboxa1.Cut()

Evo za izlaz iz browsera, jako mocan source:
Dim Response As MsgBoxResult
Response = MsgBox("Jeste li sigurni da zelite izaci?", _
MsgBoxStyle.Question + MsgBoxStyle.YesNo, _
"Web Browser"
If Response = MsgBoxResult.Yes Then
End
End If

Evo ti za spremanje stranice:
Dim Save As New SaveFileDialog()
Dim myStreamWriter As System.IO.StreamWriter
Save.Filter = "Stranica (*.url)|*.url|Svi fileovi (*.*)|*.*"
Save.CheckPathExists = True
Save.FileName = imebrowsera.DocumentTitle
Save.ShowDialog(Me)
Try
myStreamWriter = System.IO.File.CreateText(Save.FileName)
myStreamWriter.Write(BLOCK_DEFAULT & vbCrLf & _
ITEM_BASEURL & webMain.Url.ToString & vbCrLf & _
BLOCK_INTERNETSHORTCUT & vbCrLf & _
ITEM_URL & webMain.Url.ToString)
myStreamWriter.Flush()
Catch ex As Exception
' Do nothing on Exception
End Try

Evo za open:
Dim Open As New OpenFileDialog()
Dim URLFile As String()
Dim myStreamReader As System.IO.StreamReader
Open.Filter = "Stranica (*.url)|*.url|Sve datoteke (*.*)|*.*"
Open.CheckFileExists = True
Open.ShowDialog(Me)
Try
Open.OpenFile()
myStreamReader = System.IO.File.OpenText(Open.FileName)
URLFile = myStreamReader.ReadToEnd().Split(New String() {ControlChars.CrLf}, _
StringSplitOptions.RemoveEmptyEntries)
For Each Item As String In URLFile
If Item.StartsWith(ITEM_URL) Then
Navigate(Item.Substring(ITEM_URL.Length))
Exit For
End If
Next
Catch ex As Exception
' Do nothing on Exception
End Try

I jos nesto korisno, trebo si sve elemente koje se vide oznacit te u postavkama pod komandom achor ih podesit pa tako kad budes razvlacio browser da elementi idu skupa sa pozadinonom ( onu koju mices, a ovo ce posluzit i zaminimize/maximize )

Još samo da si stavio link za download VB 2008 ...

Slazem se

Mogo bi i to, da probamo

http://www.microsoft.com/express/