Hal yang Diperlukan:
Microsoft Visual Basic 6.0 [ download di SINI ]
Lanhkah - Langkah:
- Buka Visual Basic 6, buat project baru.
- Tambahkan Kontrol web browser(ketik ctrl+t, centang Microsoft Internet Controls, OK)
- Dobel klik Web Browser di Toolbox, beri nama WebBrowser1
- Tambahkan beberapa kontrol command button dan textbox. Properties nya sebagai berikut:
Kontrol: Nama: Caption: Text Box txtUrl (kosongkan) Command Button cmdGo GO! Command Button cmdBack Back Command Button cmdFoward Foward Command Button cmdRefresh Refresh Command Button cmdStop Stop - Masukkan coding berikut(klik kanan pada form, view code):
Private Sub cmdBack_Click()
'Untuk Kembali
WebBrowser1.GoBack
End Sub
Private Sub cmdFoward_Click()
'Untuk maju ke halaman yg telah di klik kembali
WebBrowser1.GoForward
End Sub
Private Sub cmdGo_Click()
'Untuk pergi ke sebuah situs web yang telah diketik di txtUrl tadi
WebBrowser1.Navigate (txtUrl.Text)
End Sub
Private Sub cmdRefresh_Click()
'Untuk merefres halaman
WebBrowser1.Refresh
End Sub
Private Sub cmdStop_Click()
'Untuk menyetop loading halaman
WebBrowser1.Stop
End Sub
Private Sub Form_Load()
'Untuk menetapkan sebuah situs web sebagai homepage
WebBrowser1.Navigate ("http://www.google.co.id/")
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
'Untuk merubah Caption Form1
Form1.Caption = WebBrowser1.LocationName + " - NAMA WEB BROWSERMU"
'Untuk merubah Text txtUrl menjadi url yg sedang kita tuju
txtUrl.Text = (WebBrowser1.LocationURL)
End Sub - Klik File > Make Project1.exe
Akhir kata, sekian da terimakasih.