Samuel Billy’s Blog

Januari 19, 2009

membuat browser dengan VB 2005

Filed under: Uncategorized — Samuel @ 7:05 PM

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.

Iklan

Tinggalkan sebuah Komentar »

Belum ada komentar.

RSS feed for comments on this post. TrackBack URI

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

  • Tas full colour

    BannerFans.com
  • Tas Full colour murah

    BannerFans.com
  • mr.linky

  • 17682944 antiVirus browser download free games gratis HP regedit review tingkatkan traffic link Uncategorized Virus
  • Tulisan Teratas

  • Kategori

  • antiVirus AntiVirus gratisan Aplikasi apple AV avast AVg avira Avira gratis blog bobol browser co.cc conficker crack CSS custom domain DNS domain download FD firefox Flash Disk free free domain free download free license free lisensi free software freeware gratis gratisan hacker hobby iexplore indonesia Jadwal UNAS kaspersky komputer license lisensi lisensi gratis memory mempercepat blog mempercepat situs mozilla mozilla firefox optimisasi overclock pasang domain di co.cc pendinginan pentagon portable software processor registry review Review AntiVirus safari SEO situs software symantec tips top Top3AntiVirus Top AntiVirus trendmicro trik UNAS UNAS 2009 Virus website windows wordpress XP
  • Komentar Terbaru

    freemobilegame di free download games HP
    suhu copet di membuka regedit yang terkunci…
    abdullah alvin di kaspersky AntiVirus gratis
    nasrul di membuka regedit yang terkunci…
    fuji di membuka regedit yang terkunci…
  • Klik tertinggi

  • !!!Magic Trick!!!

    “Ingin meningkatkan traffic pengunjung dan popularity web anda secara cepat dan tak terbatas…?… Serahkan pada saya…, Saya akan melakukannya untuk anda GRATIS…!” http://leebizniz.wordpress.com/2009/02/18/tv1v2-cara-meningkatkan-traffic-dan-popularity-dengan-cepat-dan-alami/ https://samuelbillyp.wordpress.com/2009/03/08/tv1v2-cara-meningkatkan-traffic-di-blog-anda-secara-cepat-dan-alami/
  • Free Domain

    CO.CC:Free Domain
  • Chat

    View shoutbox
    ShoutMix chat widget
  • %d blogger menyukai ini: