Cara Membuat Browser di Visual Basic 6.0

Assalamu'alaikum Warrahmatullahi Wabarakatuh....

    Ini postingan perdana saya setelah masuk kuliah :D, tepatnya kuliah di Teknik Pertambangan Universitas Sriwijaya. Berhubung di jurusan saya ada pelajaran Program Komputer dengan mengunakan Visual Basic 6.0, maka saya dituntut untuk membuat berbagai program menggunakan aplikasi tersebut. 

   Pada postingan ini saya akan berbagi tentang sistematika dalam membuat sebuah browser menggunakan Visual Basic 6.0. Berikut adalah langkah-langkahnya :

1. Buka Visual Basic 6.0, kemudian pilih Standard EXE.

2. Pilih Project pada Menubar dan klik Components atau secara singkatnya kita bisa tekan Ctrl + T.

3. Dibagian Controls kita Centang Microsoft Internet Controls, Microsoft Windows Common Controls 6.0       (SP6) dan Microsoft HTML Object Library.

4. Masukkan Toolbar berikut :

   - CommandButton 5 buah Untuk Back, Forward, Refresh, Stop, dan Go (Caption  Terserah kalian). 

   - 1 TextBox (text-nya dikosongkan). 

   - 1 WebBrowser. 

   - 1 Label (Caption diganti done). 

   - 1 ProgressBar (value max = 100). 

   Untuk Uji cobanya sebaiknya anda atur Toolbar seperti gambar dibawah ini :

5. Kemudian masukkan kode dengan cara double click pada Toolbar :

    -Untuk Back

      On Error Resume Next

      WebBrowser1.GoBack

    -Untuk Forward

      On Error Resume Next

      WebBrowser1.GoForward

    -Untuk Refresh

      On Error Resume Next

      WebBrowser1.Refresh

    -Untuk Stop

      On Error Resume Next

      WebBrowser1.Refresh

    -Untuk Stop

      On Error Resume Next

      WebBrowser1.Stop

     -Untuk Go

      On Error Resume Next

      WebBrowser1.Navigate Text1.Text

6. Setelah itu langsung copy dan paste-kan kode dibawah ini pada view code :

   

Private Sub Form_Resize()

On Error Resume Next

WebBrowser1.Width = Me.ScaleWidth

WebBrowser1.Height = Me.ScaleHeight - 2280

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

Exit Sub

End Sub

7. Kemudian jalankan dengan memilih Run lalu Start atau tekan F5. dan coba masukkan google.com, maka       program tersebut akan langsung memuat GOOGLE :)

8. Tahap selanjutnya adalah menghias. Contoh design punya           saya adalah sebagai berikut :

9. Apabila tidak ada debug Selanjutnya tinggal dijadikan EXE. dengan cara klik File lalu pilih Make Project1.exe.

10. Selesai, browser siap digunakan.

Cepat dan mudah kan cara membuatnya ?, jika ada debug tanya aja ya di tato.endarto@gmail.com dan follow @Muhammad_Tato :)

Wassalamu'alaikum Warrahmatullahi Wabarakatuh