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: