Hai gan! Kali ini ane akan menjelaskan cara membuat sebuah web
browser sendiri menggunakan Visual Basic 6. Ini hanya simple ya, jangan
berharap akan menjadi seperti google chrome dan mozilla ahaha. Oke kita mulai aja sekarang.
Yang Kita Butuhkan:
Visual Basic 6
Cara Membuat:
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 Buton, 1 Text Box , 1Label, 1 Webbrowser , 1 Proggress Bar. Saran saya tata Seperti Gambar di bawah.
Yang Kita Butuhkan:
Visual Basic 6
Cara Membuat:
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 Buton, 1 Text Box , 1Label, 1 Webbrowser , 1 Proggress Bar. Saran saya tata Seperti Gambar di bawah.
CommandButton Captionnya saya ganti dengan Back, Forward, Refresh, Stop dan Go.
Label caption saya ubah jadi done. Text box biarkan saja.
Sekarang Masukkan Kode berikut
Caranya: Double klik pada tool yang sudah kita buat
1. Back
On
Error
Resume
Next
WebBrowser1.GoBack
2. Foward
On
Error
Resume
Next
WebBrowser1.GoForward
3. Refresh
On
Error
Resume
Next
WebBrowser1.Refresh
4. Stop
On
Error
Resume
Next
WebBrowser1.
Stop
5. Go
On
Error
Resume
Next
WebBrowser1.Navigate Text1.Text
6. Progress Bar, langsung copy ke form code
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. Resize form, langsung copy ke form codePrivate
Sub
Form_Resize()
On
Error
Resume
Next
WebBrowser1.Width =
Me
.ScaleWidth
WebBrowser1.Height =
Me
.ScaleHeight - 1680
End
Sub
8. Pastikan
Pastikan sudah tak ada eror, kalo ada silahkan bertanya lewat komentar
9. Make project1.exe
Tuntas deh
SUCCES JONS :'V
Pastikan sudah tak ada eror, kalo ada silahkan bertanya lewat komentar
9. Make project1.exe
Tuntas deh
SUCCES JONS :'V