Cara Membuat Web Browser Sederhana Dari VB6.0

Halo Sobat Visual Basic, kali ini saya akan membantu anda dengan cara memberi ilmu walaupun sedikit mungkin bermanfaat. Saya akan memberi ilmu Tentang Visual Basic Yang berjudul Cara Membuat Web Browser Sederhana Dengan VB 6.0. 

Persiapan Membuat Web browser
1. Harus punya Visual Basic 6.0
2. Ngerti sedikit kalo bisa sih ngerti banyak tentang Visual Basic dan Tools pada Visual Basic 6.0
3. Siap mental maupun fisik
4. Dengerin musik

5. Siapkan Snack !!!

Oke Langsung Saja ke tutorialnya

Buka VB 6.0 . Terus pilih Standard EXE
Lalu tekan Ctrl + T,  Kemudian Centang Microsoft Html object library, Microsoft Internet Controls, Microsoft Windows Common Controls 5.0 atau 6.0 sama saja.
Lalu masukkan komponen berikut ke form nya. 5 command, 1 Text Box, 1 Label, 1 WebBrowser, Prongres Bar. Saya sarankan sunsunannya seperti gambar dibawah ini :

Sekarang ubah caption command button menjadi Back, Forward, Reload, Stop, GO. lalu ubah caption label menjadi " done ". Sedangkan Text box text nya biarkan kosong.
Sekarang masukkan code berikut ke dalam masing masing command button dengan cara Klik 2X 

- Pada Back
On Error Resume Next
WebBrowser1.GoBack   

- Pada Forward
On Error Resume Next
WebBrowser1.GoForward
- Pada Reload
On Error Resume Next
WebBrowser1.Refresh

- Pada Stop
On Error Resume Next
WebBrowser1.Stop

- Pada GO
On Error Resume Next
WebBrowser1.Navigate = Text1.Text

Progress Bar. Langsung Copy dan paste pada form yang dibuat.

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
Exit Sub
End Sub

Sekarang code biar ketika di besarkan (Maximize) ukuran webbrowser ikut menjadi besar sesuai dengan ukuran form. Langsung saja Copy Code berikut pada Form tadi

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

Untuk menjadikan suatu situs menjadi halaman awal pada webbrowser codenya adalah

Private Sub Form_Load()
WebBrowser1.Navigate ("www.google.co.id")
End Sub

Sekarang tekan F5. Selamat mencoba kawan.