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
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...