Cara Membuat Browser dengan Menggunakan Visual Basic 6.0

Cara Membuat Browser di VB6 - Seiring dengan berkembangnya dunia teknologi di bidang informatika khususnya di dunia Gadget menuntut kita untuk melalukan update terbaru tentang dunia teknologi seperti HP dan Komputer, tentu saja kita tidak mau di bilang Gaptek (Gagap Teknologi) oleh orang lain, untuk itu kita harus mengikuti perkembangan jaman yang semakin canggih yang salah satunya adalah teknologi Browser.

Peranan Browser sangat vital dalam sebuah gadget karena tanpa aplikasi browser kita tidak dapat berselencar bebas di dunia maya. Salah satu browser yang sering kita kenal adalah FireFox, Google Chrome, Internet Explorer, Opera Mini dll.

Pada pertemuan kali ini saya akan memberikan tips bagaimana membuat Browser dengan VB6. Dengan membuat browser sendiri tentu tingkat kepuasan kita sangat tinggi karena kita bisa menggunakan Aplikasi Browser buatan kita sendiri.

Berikut adalah langkah-langkah dalam pembuatannya :

Cara Membuat Browser dengan VB 6:

1. Buka Program VB6 Anda dan pilih Standar EXE maka form baru muncul

2.Tambahkan komponen di TolBox Anda yaitu Microsoft Html Object Library, Microsft Internet Controls dan Microsoft Windows Commond Controls 5.0 atau 6.0 sama saja dengan cara : Tekan CTRL+T, kalau sudah dicari dan ketemu Ceklist Microsoft Html Object Library,Microsft Internet Controls dan Microsoft Windows Commond Controls 5.0 kemudian Apply dan Ok, maka di ToolBox Anda akan ada Komponen baru.

3. Kemudian Tanamkan 1 buah WebBrowser dan 1 buah Progress Bar pada form Anda yang kita sudah tambahkan tadi ToolBox

4. Tanamkan juga pada Form Anda 5 buah CommandButon,1 TextBox, 1 Label.

Ubah 5 buah ComndButton dengan Captionnya masing-masing :

Command1 Caption: Back

Command2 Caption: Forward

Command3 Caption: Refresh

Command4 Caption: Stop

Command5 Caption: Go

Text1.text= kosongkan

Label1   Caption : Done

Hasil Akhir setelah di Run "Maogila Firefox"

5. Buka jendela kode dengan cara klik ganda area kosong pada Form, pada jendela Genereal -Declaration copy paste kode dibawah ini :

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

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

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

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

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

Private Sub Form_Activate()
Text1.SetFocus
End Sub

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

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
If Progress = -1 Then
ProgressBar1.Value = 100
Label1.Caption = "Done"
ProgressBar1.Visible = False
If Progress > 0 And ProgressMax > 0 Then
ProgressBar1.Visible = True
Image1.Visible = False
ProgressBar1.Value = Progress * 100 / ProgressMax
Label1.Caption = "Loading" & Int(Progress * 100 / ProgressMax) & "%"
End If
End If
Exit Sub
End Sub

6. Simpan hasil pekerjaan Anda dan jalankan program dengan F5 hasilnya akan tampak pada gambar diatas:

Catatan : klik Go untuk browsing, apabila alamat web sudah di "Go" tapi hasilnya Error coba klik tombol "Refresh"

Demikian tip cara Cara Membuat Browser di VB6.Selamat mencoba semoga berhasil.

Related Post: Internet