Cara Membuat Web Browser dengan Visual Basic 6


browser_thumb.jpg


Siapa yang tidak tahu Web Browser / Internet Browser..??
Tanpanya mungkin anda Tidak bisa membaca Posting ini..

Sekarang saya tidak akan menjelaskan Apa itu Web Browser , tapi bagaimana cara membuatnya..

Kita Tidak akan membuat Web Browser terkenal seperti Mozilla Firefox , Google Chrome maupun Opera , tetapi Web Browser yang Sederhana saja , bukan tidak mungkin jika anda mengembangkannya pasti bisa bersaing dengan Web Browser terkenal tsb.

Oke langsung saja ke Topik ;

Syarat
:
Pastikan anda sudah punya Program Visual Basic (VB) 6 yang bisa digunakan , jika belum silahkan cari di Google

Langkah Pembuatan
:

1. Buka Visual Basic 6 nya. Trus pilih Standard EXE.

2. Klik Kanan Pada ToolBox, Kemudian pilih Components atau tekan key Ctrl + T .

3. Kemudian Centang Microsoft HTML Object library, Microsoft internet controls, Microsoft Windows common Controls 5.0 atau 6.0 sama saja.

4. Buat 5 Command Button, 1 Text Box , 1 Label, 1 Web Browser , 1 Proggress Bar..!!

Kurang Lebih bisa diatur seperti ini..

browser.jpg


5. Sekarang Masukkan kode kode berikut, caranya double klik pada tool / tombol yang sudah kita buat tadi..

Untuk Button Back :
Private Sub back_Click()
On Error Resume Next
WebBrowser1.GoBack
End Sub


Untuk Button Go :
Private Sub Command1_Click()
On Error Resume Next
WebBrowser1.Navigate
(Text1.Text)
End Sub


Untuk Button Exit :
Private Sub exit_Click()
Unload Me
End Sub


Untuk Button Forward :
Private Sub forward_Click()
On Error Resume Next
WebBrowser1.GoForward
End Sub


Untuk Button Home :
Private Sub home_Click()
On Error Resume Next
WebBrowser1.GoHome
End Sub


Untuk Button Refresh :
Private Sub refresh_Click()
On Error Resume Next
WebBrowser1.refresh
End Sub


Kode untuk web browser :
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


6. Coba Jalankan Programnya Run > Start atau F5. Bila anda menemui error Silahkah koment..

Sekian dan Semoga Bermanfaat.. ;)

Jangan ketinggalan! Langganan Update dari Kami:

3 Responses to "Cara Membuat Web Browser dengan Visual Basic 6"

  1. postnya mantab gan. Hadir memenuhi undangan dari anda. Salkomsel. Follow back gan

    BalasHapus
  2. kunjungan siang sob Ditunggu kunjungan baliknya

    BalasHapus
  3. Back Hernia Supports For Men13 April 2014 18.19

    heel lifts for guys and ladies might also have different width sizing which you have to take into consideration when choosing the set that's right for you personally http://zegermanrcummin.com

    BalasHapus