Sabtu, 06 Juli 2013

Cara Membuat Web Browser di Visual Basic 6.0


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