CARA MEMBUAT WEB BROWSER SEDERHANA DENGAN VISUAL BASIC 6

CARA MEMBUAT WEB BROWSER SEDERHANA DENGAN VISUAL BASIC 6

=======================================================================

Kali ini Maslisman akan berbagi tutorial dan sourcecode cara membuat web browsing sederhana dengan visual basic 6.

Langsung saja ikutin langkah-langkah dibawah ini : 

• Buka Visual Basic 6 Trus pilih Standard EXE.
• Klik Kanan Pada ToolBox, Kemudian pilih Components atau tekan key Ctrl + T .
• Kemudian Cari dan Centang Microsoft html object library, Microsoft internet controls,Microsoft Windows common Controls 5.0 atau 6.0 sama saja.

Menambahkan Components Microsoft Windows Common Controls ke Visual Basic 6

• Buat 5 Command Buton, 1 Text Box , 1Label, 1 Webbrowser , 1 Proggress Bar. Dengan Nama Seperti dibawah ini :
• 5 buah Command Button : GoBack, GoForward, Go, Refresh, Stop
• 1 buah Web Browser : WebBrowser1
• 1 buah Progress Bar : ProgressBar1
• 1 buah Text Box : Text1
• 1 buah Label : Label1
• Saran saya tata Seperti Gambar di bawah.

Tata Letak Object Web Browser Sederhana dengan Visual Basic 6

• Label Captionnya maslisman ganti dengan Done
• TextBox Text Kosongin saja.

Sekarang kita Masukkan kode kode berikut, caranya doble klik pada tool / command button yang sudah kita buat.

• Back

On Error Resume Next
WebBrowser1.GoBack

• Forward

On Error Resume Next
WebBrowser1.GoForward

• Refresh

On Error Resume Next
WebBrowser1.Refresh

•  Stop

On Error Resume Next
WebBrowser1.Stop

• Go

On Error Resume NextWebBrowser1.Navigate Text1.Text 

• Kemudian Langsung Copy dan Paste Source Code dibawah ini ke Form Code 

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)On Error Resume NextIf Progress = -1 Then ProgressBar1.Value = 100Label1.Caption = "Done"ProgressBar1.Visible = FalseIf Progress > 0 And ProgressMax > 0 ThenProgressBar1.Visible = TrueImage1.Visible = FalseProgressBar1.Value = Progress * 100 / ProgressMaxLabel1.Caption = "Loading " & Int(Progress * 100 / ProgressMax) & "%"End IfExit SubEnd Sub
Private Sub Form_Resize()On Error Resume NextWebBrowser1.Width = Me.ScaleWidthWebBrowser1.Height = Me.ScaleHeight - 1680End Sub

Jika Program sudah jadi akan terlihat seperti ini :

Web Browser Sederhana dengan Visual Basic 6

Klik link dibawah ini untuk download project web browser yg sudah jadi :
Download Source Code / Project Web Browser Sederhana


Bila anda menemui error / bug Silahkah komen, pasti maslisman akan bantu dan tanggapi,