Membuat Web Browser dengan VB 6

Ya kali ini ane akan share cara membuat sebuah program web browser  dengan Visual Basic 6

seperti mozila Firefox,Opera,Internet Explorer . 

Langsung aja deh kita mulai gan :D

Yang harus di siapkan adalah

1.Komputer (Ya iyalah kalau gak ada ini mah bisa si gan pake mesin TIK lol)

2.Siapin deh Kopi atau Rokok 

3.Play lagu juga jangan lupa , Dangdut boleh Metal pun boleh kok gan :D

4.Download Visual Basic 6 , Bagi yang belum punya bisa download Disini 

5.Jalankan Visual Basicnya karna itu sudah portable jadi tinggal klik aja registry nya gan tanpa harus instal lagi.

Di bagian pertama masuk Visual Basic pilih aja Standard EXE

Nah sekarang masuk ke area VB 6

Ini Area Kerjanya gan 

Tekan Ctrl T atau bisa juga dengan ke menu Project > Components

ini memakai component" apa saja yang akan digunakan .

Centang Component Miscrosft Internet Control Dan Microsoft Windows Common Control 5.0 (Versi berapa aja bisa kok gan) 

Setelah itu klik Ok lalu liat Tools Bar di samping pojok kiri kita akan bertambah

Design Form agan sesuai selera 

lalu Masukan CommandButton di toolbars kiri sampai 5 ke Form 

CommandButton itu nantinya akan di jadikan tombol Back,Foward,Refresh,Stop,Dan Go

Masukan 1 TextBox 

Setelah selesai CommandButton lalu masukan WebBrowser cukup 1 saja ini fungsinya

untuk display page yang di browsing taruh itu di tengah , Dan di bawah nya pasang

Label dan ProgressBar ini adalah untuk fungsi loading pada Halaman Web yang akan di proses 

pada Browser .

Ini design Form Program WeBrowser Ane Contohnya :

Oke sekarang lakukan Codingnya

Double klik pada Command1 ( kalau di ane Command1 = Mundur tapi bisa kok di lihat di menu properties )

Setelah di Double Klik akan muncul Window baru untuk area Coding 

Masukan :

Private Sub Command1_Click()
On Error Resume Next
WebBrowser1.GoBack
End Sub

Lalu lakukan cara yang sama seperti Command1 

Double klik Command2

Masukan :

Private Sub Command2_Click()
On Error Resume Next
WebBrowser1.GoForward
End Sub

Double Klik Command3

Masukan :

Private Sub Command3_Click()
On Error Resume Next
WebBrowser1.Refresh
End Sub

Double Klik Command4

Masukan :

Private Sub Command4_Click()
On Error Resume Next
WebBrowser1.Stop
End Sub

Double Klik Command5

Masukan :

Private Sub Command5_Click()
On Error Resume Next
WebBrowser1.Navigate Text1.Text
End Sub

Dan Double Klik Formnya 

Masukan :

Private Sub Form_Load()
On Error Resume Next
WebBrowser1.Width = Me.ScaleWidth
WebBrowser1.Height = Me.ScaleHeight - 1680
End Sub

Yang Terakhir

Double Klik ProgressBar1 

Masukan :

Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
If Progress = -1 Then ProgressBar1.Value = 100
Label1.Caption = "Done"
ProgressBar1.Visible = False
If Progress > 0 And ProgressMax > 0 Then
ProgressBar1.Visible = True
ProgressBar1.Value = Progress * 100 / ProgressMax
Label1.Caption = "Loading" & Int(Progress * 100 / ProgressMax) & "%"


End If
Exit Sub
End Sub

Penjelasan Script :

Private Sub Command1_Click()
On Error Resume Next
WebBrowser1.GoBack >>> Untuk Fungsi Tombol agar dapat kembali/Back ke halaman sebelumnya
End Sub >> Akhir dari Fungsi
Private Sub Command2_Click()
On Error Resume Next
WebBrowser1.GoForward >>> Untuk Fungsi ke halaman yang selanjutnya di buka
End Sub >>> Akhir dari Fungsi
Private Sub Command3_Click()
On Error Resume Next
WebBrowser1.Refresh >>> Untuk Fungsi Memuat Ulang Halaman
End Sub >>> Akhir dari Fungsi
Private Sub Command4_Click()
On Error Resume Next
WebBrowser1.Stop  >>> Untuk Stop dalam proses
End Sub >>> Akhir dari Fungsi
Private Sub Command5_Click()
On Error Resume Next
WebBrowser1.Navigate Text1.Text >> Artinya Mengambil Text dari TextBox untuk di masukan ke ProsesWeb Browser
End Sub>>> Akhir dari Fungsi
Private Sub Form_Load()
On Error Resume Next
WebBrowser1.Width = Me.ScaleWidth >> Mengatuh Lebar WebBrowser
WebBrowser1.Height = Me.ScaleHeight - 1680 >> Mengatur Tinggi WebBrowser
End Sub>>> Akhir dari Fungsi



Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
If Progress = -1 Then ProgressBar1.Value = 100 >> Artinya Jika Progress itu -1 maka value ProgressBar 1 akan berubah menjadi 100
Label1.Caption = "Done" <<< Terusan dari Fungsi IF jadi Label1 akan berubah tulisan menjadi "Done"
ProgressBar1.Visible = False <<< Jadi ProgressBar akan di Sembunyikannya jadi false
If Progress > 0 And ProgressMax > 0 Then < <Fungsi IF artinya Jika Progress lebih besar dari 0 dan Progress Max Lebih besar dari 0 maka
ProgressBar1.Visible = True << Lanjutan Fungsi IF maka ProgressBar1 akan di sembunyikan jadi True
ProgressBar1.Value = Progress * 100 / ProgressMax << Masih di Fungsi IF lebih besar , artinya ProgressBar1 akan menjadi 100% atau bisa di sebut progressmax
Label1.Caption = "Loading" & Int(Progress * 100 / ProgressMax) & "%" << Label1 akan berubah menjadi Loading dan  progress menjadi max lalu disamping itu akan ada label1 bertambah tanda %

End If << Akhir Fungsi IF
Exit Sub <<< Keluar daru Fungsi Sub
End Sub <<< Akhir Fungsi

Setelah selesai akan jadi seperti ini

Oke sekian dulu Tutorialnya 

Semoga Bermanfaat bagi agan" sekalian hehe

Oh iya yang mau Copas jangan lupa di sertai dengan Sumber yaa

Yang mau bertanya silakan Insyaallah ane balas dengan cepat :) 

 

Sumber: http://invateam.blogspot.com/2013/06/tutorial-membuat-web-browser-dengan-vb-6.html

Posted in: Tutorial