Berikut Toturial Membuat Web Browser :
- Buka Visual Basic 6.0
- Buat Satu Form
- Klik Kanan Toolbox yang disebelah Kiri
- Lalu Jika terlihat PopUp Maka Tekan Component
- Jika sudah terbuka Form Component maka Cari Microsoft Internet Control
- Lalu Centang Microsoft Internet Control, lalu > Tekan OK
- Buat 1 Web Browser ,5 Command Button dan 1 Textbox[Jangan dirubah Namanya]
- Masing-Masing Control masukan Caption nya Seperti ini :
Command :
- Forward
- Back
- Refresh
- Home
- Go
Text :
- Kosongin Saja
- Jika sudah seperti diatas susunannya Maka silahkan Masukan Kode ke Form tadi yang anda buat, Berikut Code :
----------------------------------------------------------------------------------------------
Double Klik Tombol Forward , Masukan Kode :
On Error Resume Next
WebBrowser1.GoForward
Double Klik Tombol Back , Masukan Kode :
On Error Resume Next
WebBrowser1.GoBack
Double Klik Tombol Refresh , Masukan Kode :
On Error Resume Next
WebBrowser1.Refresh
Double Klik Tombol Refresh , Masukan Kode :
On Error Resume Next
WebBrowser1.Refresh
Double Klik Tombol Go , Masukan Kode :
On Error Resume Next
WebBrowser1.Navigate (Text1.Text)
Double Klik Tombol Home , Masukan Kode :
On Error Resume Next
WebBrowser1.GoHome
Double Klik Web Browser tersebut , Masukan Kode :
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) & "%"
Image1.Visible = True
End If
Exit Sub
----------------------------------------------------------------------------------------------
- Jika semua sudah selesai maka Compile Project yang anda telah buat tadi.
Tidak ada komentar:
Posting Komentar