Translate

Rabu, 12 Desember 2012

Tutorial Membuat Web Browser Menggunakan VB6

Posting Kali Ini Tentang Tutorial  Membuat Web Browser Menggunakan VB6  Jika kalian berminat langsung saja kita lakukan tutorial ini. ikuti langkah demi langkah dengan teliti :




1. Open Visual Basic 6.0 dan pilih " Standart EXE "
2. Masukan Components Microsoft Internet Contorls & Microsoft Windows Common Controls 6 (SP6)  dengan cara tekan CTRL + T pada keyboard atau  klik Project dan pilih Components

 
 *Setelah itu beri tanda centang pada Microsoft Internet Contorls Lihat screenshot :




*Jika sudah di centang klik Apply dan Tekan 0K  

3. Lalu Masukan buton2 berikut kedalam form :
  • 5 Command Button
  • 1 TextBox ( ini akan menjadi URL bar kalian ) 
  • 1 Progressbar
  • 1 Buah Label
4. Atur Propertinya Menjadi :

Command 1 : ( Caption : Go , Name : Cmdgo )
Command 2 : ( Caption : Back , Name : CmdBack )
Command 3 : ( Caption : Refresh , Name : CmdRefresh )
Command 4 : ( Caption : Forward , Name : CmdForward )
Command 5 : ( Caption : Stop , Name : Cmdstop )
TextBox       : ( Text : Kosongkan )
Progressbar :
Label1        : ( Caption : Done )

5. Codding untuk form1 ( Click 2x pada form1 )  : 

Private Sub Cmdgo_Click()
On Error Resume Next
WebBrowser1.Navigate Text1.Text
End Sub

Private Sub Cmdstop_Click()
On Error Resume Next
WebBrowser1.Stop
End Sub

Private Sub Cmdrefresh_Click()
On Error Resume Next
WebBrowser1.Refresh
End Sub

Private Sub cmdforward_Click()
On Error Resume Next
WebBrowser1.GoForward
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

 5. Selesai untuk menjalankan Program tersebut Tekan F5 Pada Keyboard

*Note : Saya sarankan anda memakai VB Full Version jika anda belum punya bisa di download ( disini )
Untuk anda yang ingin menyimpan  program yang anda sudah buat caranya  :
1. Klik File pada tab atas
2. Klik Make Project1.exe...

Comments
0 Comments

0 komentar:

Posting Komentar

*Bagi kalian yang ingin berkomentar silahkan komentar dibawah ini gunakan kata yang sopan jika ingin berkomentar....

Diberdayakan oleh Blogger.