membuat browser dengan VB 2005

Dalam artikel ini, saya akan mengajak Anda membuat web browser seperti Firefox dengan Visual Basic 2005 Express.

1. Pilih File | New Project dan pilih Windows Application. Beri nama project BrowserSaya dan klik OK.

PREVIEW GAMBAR 2 “NEW PROJECT” ADA DI KATEGORI “PREVIEW GAMBAR ARTIKEL MY BLOG”

1. Dari toolbox, di bawah grup Containers, tarik TabControl ke Form.

1. Tambahkan 2 button dan 1 textbox control:

Control	Property
Button1	Text: + Tab Baru
Textbox1	Text: http://www.netindonesia.net
Button2	Text: Go

1. Pilih TabControl1 di Form, klik panah kecil di pojok kanan atas dan pilih Remove Tab sampai tidak ada lagi tab.

PREVIEW GAMBAR 3 “tab control tasks” ADA DI KATEGORI “PREVIEW GAMBAR ARTIKEL MY BLOG”

1. Form kita akhirnya menjadi seperti berikut:

PREVIEW GAMBAR 4 “FORM” ADA DI KATEGORI “PREVIEW GAMBAR ARTIKEL MY BLOG”

1. Dobel klik button + Tab Baru dan ketik kode berikut:

‘Tambahkan WebBrowser control ke tab

Dim browser As New WebBrowser

browser.Dock = DockStyle.Fill

‘Ganti Loading… menjadi Title

AddHandler browser.DocumentTitleChanged, AddressOf GantiTitle

‘Tambahkan tab ke tabcontrol

Dim tab As New TabPage

tab.Text = “Baru”

tab.Controls.Add(browser)

TabControl1.TabPages.Add(tab)

‘Tampilkan tab terbaru

TabControl1.SelectTab(TabControl1.TabCount – 1)

1. Dobel klik button Go dan ketik kode berikut:

‘Jelajah dgn WebBrowser

Dim browser As WebBrowser = TabControl1.SelectedTab.Controls(0)

TabControl1.SelectedTab.Text = “Loading…”

browser.Navigate(TextBox1.Text)

1. Tambahkan Subroutine baru GantiTitle() sebelum End Class, dan pastikan kode Anda seperti berikut:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

‘Tambahkan WebBrowser control ke tab

Dim browser As New WebBrowser

browser.Dock = DockStyle.Fill

‘Ganti Loading… menjadi Title

AddHandler browser.DocumentTitleChanged, AddressOf GantiTitle

‘Tambahkan tab ke tabcontrol

Dim tab As New TabPage

tab.Text = “Baru”

tab.Controls.Add(browser)

TabControl1.TabPages.Add(tab)

‘Tampilkan tab terbaru

TabControl1.SelectTab(TabControl1.TabCount – 1)

End Sub

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

‘Jelajah dgn WebBrowser

Dim browser As WebBrowser = TabControl1.SelectedTab.Controls(0)

TabControl1.SelectedTab.Text = “Loading…”

browser.Navigate(TextBox1.Text)

End Sub

Private Sub GantiTitle(ByVal sender As Object, ByVal e As EventArgs)

‘Cari tab yg berisi browser

‘yg selesai Loading…

Dim browser As WebBrowser = CType(sender, WebBrowser)

Dim i As Integer = 0

While Not TabControl1.TabPages(i).Contains(browser)

i = i + 1

End While

‘Ganti title

TabControl1.TabPages(i).Text = browser.DocumentTitle

End Sub

End Class

1. Tekan Ctrl-F5 untuk menjalankan program BrowserSaya

1. Klik + Tab Baru

1. Ketik http://www.msn.com ke dalam TextBox lalu tekan Go.

1. Klik + Tab Baru dan ketik http://www.yahoo.com ke dalam TextBox lalu tekan Go untuk kedua kalinya.

1. Tampilan program BrowserSaya seharusnya menjadi seperti berikut:

PREVIEW GAMBAR 5 “BROWSER SAYA” ADA DI KATEGORI “PREVIEW GAMBAR ARTIKEL MY BLOG”

1. Browser kita kurang satu fitur lagi, yaitu menutup tab yang ada. Tutup program BrowserSaya dan kembali ke Form Designer.

1. Dobel-klik control ContextMenuStrip dari Toolbox.

PREVIEW GAMBAR 6 “CONTEXT MENU STRIP” ADA DI KATEGORI “PREVIEW GAMBAR ARTIKEL MY BLOG”

1. Kembali ke Form Designer, lihat di bawah ContextMenuStrip, ganti tulisan

Type here menjadi Tutup Tab dan tekan Enter.

PREVIEW GAMBAR 7 “TUTUP TAB” ADA DI KATEGORI “PREVIEW GAMBAR ARTIKEL MY BLOG”

1. Dobel-klik tulisan Tutup Tab dan ketik kode berikut:

TabControl1.TabPages.Remove(TabControl1.SelectedTab)

1. Gunakan window Properties di pojok kanan bawah: pilih control TabControl1, property ContextMenuStrip, dan ganti nilai menjadi ContextMenuStrip1.

PREVIEW GAMBAR 8 “tab control” ADA DI KATEGORI “PREVIEW GAMBAR ARTIKEL MY BLOG”

1. Klik File | Save All, setelah itu tekan Ctrl-F5. Test apakah Anda bisa menutup tab sekarang.

PREVIEW GAMBAR 9 “test tab” ADA DI KATEGORI “PREVIEW GAMBAR ARTIKEL MY BLOG”

Hanya dengan menulis sekitar 30 baris kode, Anda bisa membuat sebuah web browser dengan fitur tab-browsing. Sekarang Anda hanya perlu memoles GUI-nya agar tampilan menjadi lebih cantik dan lebih mirip Opera atau Firefox.