Mungkin sudah ada yang tau cara buat Web Browser pada VB 6, tapi bagi yang belum tau nih gw kasih tutorial nya.karena saya ada tugas jadi saya posting lagi :D
Yang perlu disiapkan yaitu Yang penting ada komputer sama Visual Basic 6.
- Buat project baru, lalu ke “Project” pada menu.
- Klik components, dan cari component “Microsoft Internet Controls6.0,” checklist dan klik “Apply” lalu “Close.”
- Klik icon yang telah di add pada tools window dan buat kotak kira2 sebesar yang diinginkan (Ini akan menjadi dasar web browser anda, usahakan jangan terlalu kecil agar dapat menaruh button2).
- Buat “textbox” , ini akan menjadi URL bar anda.
- Buat 6 tombol command yang akan menjadi tombol Go, Back, Forward, dan tombol Refresh. (Ubah captions sesuai urutan yaitu Cmdgo, Cmdback, CmdForward, dan CmdRefresh).
Ini Dia Buatan Saya Mau Coba Download Ajh Di Sini
Download Browser Elza.Net V1,1
Download Browser Elza.Net V1,2
Download Browser Elza.Net V1,1
Download Browser Elza.Net V1,2
Ok sekarang kita masuk ke coding:
Bahan-Bahan Yang Dibutuh Kan :
-Visual Basic 6.0
Untuk Comand Botton 1 kasih Nama Back Dan Comand 2 Beri nama Forward Untuk Yang Lain Nya Ikuti Tulisan Di Bawah
Code Comand button 1 Back :
Code Comand button 2 Forward :
Code Comand button 3 Go :
Code Comand button 4 Refresh :
Code Comand button 5 Stop :
Private Sub cmdStop_Click()
Code Comand button 6 Home :
Private Sub Home_Click()
klik2x pada form masukan coding berikut :
Code Web Browser :
Bahan-Bahan Yang Dibutuh Kan :
-Visual Basic 6.0
Untuk Comand Botton 1 kasih Nama Back Dan Comand 2 Beri nama Forward Untuk Yang Lain Nya Ikuti Tulisan Di Bawah
Code Comand button 1 Back :
Private Sub cmdback_Click()
WebBrowser1.GoBack
End Sub
Code Comand button 2 Forward :
Private Sub Cmdforward_Click() WebBrowser1.GoForward End Sub
Code Comand button 3 Go :
Private Sub cmdgo_Click() WebBrowser1.Navigate (Text1.Text) End Sub
Code Comand button 4 Refresh :
Private Sub cmdrefresh_Click() WebBrowser1.Refresh End Sub
Code Comand button 5 Stop :
Private Sub cmdStop_Click()
WebBrowser1.StopEnd Sub
Code Comand button 6 Home :
Private Sub Home_Click()
WebBrowser1.Navigate ("http://www.google.co.id")
End Subklik2x pada form masukan coding berikut :
Private Sub Form_Load()
WebBrowser1.Navigate ("http://www.google.co.id")
End Sub
Code Web Browser :
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Text1.Text = (WebBrowser1.LocationURL)
Form1.Caption = (WebBrowser1.LocationName)
End Sub
