kali ini saya akan memberikan cara membuat browser dengan vb 6 ini caranya :
- Buat project baru, lalu ke “Project” pada menu.
- Klik components, dan cari component “Microsoft Internet Controls,” 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 4 tombol command yang akan menjadi tombol Go, Back, Forward, dan tombol Refresh. (Ubah captions sesuai urutan yaitu Cmdgo, Cmdback, CmdForward, dan CmdRefresh).
Tombol Back
Tombol ForwardPrivate Sub cmdback_Click() WebBrowser1.GoBack End Sub
Tombol GoPrivate Sub Cmdforward_Click() WebBrowser1.GoForward End Sub
Tombol RefreshPrivate Sub cmdgo_Click() WebBrowser1.Navigate (Text1.Text) End Sub
Berikut adalah membuat suatu URL menjadi HomePage kitaPrivate Sub cmdrefresh_Click() WebBrowser1.Refresh End Sub
Ini akan mengubah text box anda menjadi URL yang sedang anda browsing.Private Sub Form_Load() WebBrowser1.Navigate ("http://buzzt.web.id") End Sub
SEMOGA BERHASILPrivate Sub WebBrowser1_StatusTextChange(ByVal Text As String) Text1.Text = (WebBrowser1.LocationURL) Form1.Caption = (WebBrowser1.LocationName) End Sub
Tidak ada komentar:
Posting Komentar