Sabtu, 14 Mei 2011

Membuat Browser Sendiri Dengan VB.net

Dalam program ini saya menggunakan VS 2008, untuk VS 2010 juga tidak jauh beda, silahkan anda coba juga.

Agar program kita dapat menampilkan dan memuat konten2 dari web, kita hanya akan meload fungsi2 dari Internet Explorer yang ada pada OS windows kita. Dan di integrasikan dengan program yang kita punya, sehingga kita tidak perlu membuat detail demi detail dari browser itu. Karena sesungguhnya mesin browser itu adalah sebuah program yang pembuatanya sangatlah rumit.



Buatlah projek anda dengan nama terserah, lalu masukan control ‘WebBrowser’ ke dalam form design anda, perhatikan gambar:


Secara otomatis, control Web Browser akan memenuhi form anda, itu karena default propertis Web Browser adalah Dock:Fill.

Pada ToolBox, masukan lagi control FlowLayoutPanel, atur properties Dock: top. Sehingga tampilan form anda menjadi seperti ini:

setelah itu, masukan beberapa control Textbox dan LinkLabel, atur sehinga memiliki tampilan seperti ini:

Untuk mengatur agar LinkLabel mempunyai posisi yang pas, atur propertinya pada Margin, top, ubah nilainya yang tadinya 0 jadi 5.

OK, desain tampilan form sudah selesai, sekarang kita masuk ke pengkodean programnya.

- Dobel klik pada LinkLabel 'Go', masukan perintah berikut:
Private Sub LbGo_LinkClicked() Handles LbGo.LinkClicked
        If TxAddress.Text <> "" And _
      TxAddress.Text.Substring(0, 4).ToLower = "http" Then
            WebBrowser1.Navigate(TxAddress.Text)
        Else
            MsgBox("URL tidak valid.")
        End If
End Sub


- Dobel klik pada LinkLabel 'Refresh', masukan perintah berikut:
Private Sub LbRefresh_LinkClicked() Handles LbRefresh.LinkClicked
        WebBrowser1.Refresh()
End Sub
- Dobel klik pada LinkLabel 'Back', masukan perintah berikut:
Private Sub LbBack_LinkClicked() Handles LbBack.LinkClicked
        WebBrowser1.GoBack()
End Sub

- Dobel klik pada WebBrowser, masukan perintah berikut:

Private Sub WebBrowser1_DocumentCompleted() Handles WebBrowser1.DocumentCompleted
        TxAddress.Text = WebBrowser1.Url.ToString
End Sub

Ok silahkan anda coba browsernya, kurang lebih seperti ini hasilnya:

5 comments:

TatanK mengatakan...

bagaiman cara mengintegrasikan dengan php?

My Soccer Football mengatakan...

maksudnya gimana?? apa kamu pengen bikin aplikasi yang khusus membuka file php dalam projek kamu?

diamondZ]Moose~ mengatakan...

ini di visual studio 2005 bisa ga gan ???

Hardi Susanto mengatakan...

mau nanya ne tentang program
Membuat Browser Sendiri Dengan VB.net

kenapa pada saat TxAddress nya saya kosongkan lalu saya klik go
program nya jadi error

mohon solusinya ya ???

Klampok Child mengatakan...

[] diamondZ]Moose~ :
tinggal di coba aja,, semisal ga bisa di buka di VS2005 ya di copas manual aja listing programnya..

[] Hardi Susanto :
iya emang itu programnya belum lengkap.. tinggal ditambah penanganan if..

Klampok Child | XKom | Win7Aero