nih yg untuk VB6
V.I.P FORUM :: DESKTOP CORNER :: PROGRAMING :: VB
Halaman 1 dari 1
nih yg untuk VB6
Silahkan Kembangkan Berdasarkan Logika masing2
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).
Ok sekarang kita masuk ke coding:
Tombol Back
Private Sub Form_Load()
WebBrowser1.Navigate ("http://buzzt.web.id")
End Sub
Ini akan mengubah text box anda menjadi URL yang sedang anda browsing.
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Text1.Text = (WebBrowser1.LocationURL)
Form1.Caption = (WebBrowser1.LocationName)
End Sub
Bahan-bahanya :
1. Microsoft visual basic 2008/2006
tutorial :
biar lebih detil liat SC nya aja ye..
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).
Ok sekarang kita masuk ke coding:
Tombol Back
- code:
Private Sub cmdback_Click()
WebBrowser1.GoBack
End Sub
- code:
Private Sub Cmdforward_Click()
WebBrowser1.GoForward
End Sub
- code:
Private Sub cmdgo_Click()
WebBrowser1.Navigate (Text1.Text)
End Sub
- code:
Private Sub cmdrefresh_Click()
WebBrowser1.Refresh
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate ("http://buzzt.web.id")
End Sub
Ini akan mengubah text box anda menjadi URL yang sedang anda browsing.
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Text1.Text = (WebBrowser1.LocationURL)
Form1.Caption = (WebBrowser1.LocationName)
End Sub
Bahan-bahanya :
1. Microsoft visual basic 2008/2006
tutorial :
- tutorial:
1. New project dengan type "windows aplication bla bla bla bla" >> nah di VB ane gak ada windows application bla bla bla nye.. adanya iis application..
siapkan komponen-komponenya :
A.
a. 1 Form
b. 7 Button
c. 1 WebBrowser
d. 2 textbox (terserah mau 1)
B.
beri nama button tsb sesuai keinginan kamu. nie contoh dari saya
button 1 beri nama "forward" tanpa tanda kutip
button 2 beri nama "back"
button 3 beri nama "google" <-- untuk langsung ke web google makanya di sediain 2 text box tapi klo gx di pasang gx apa tidak ngaruh kok
button 4 beri nama "go"
button 5 beri nama "stop"
button 6 beri nama "Refresh"
2. klik Webbrowser1 (ingat klik webbrowsernya jgn yg laen)
isikan dgn code berikut
WebBrowser1.Navigate("[You must be registered and logged in to see this link.]
3. klik button1 nya
isikan code berikut
WebBrowser1.GoBack()
4. klik button2 nya
isikan code berikut
WebBrowser1.GoForward()
5. klik button3 nya
isikan code berikut
WebBrowser1.Navigate("Textbox1.text")
6. klik button4 nya
isikan code berikut
WebBrowser1.Navigate("http://www.google.com/search?g=" & TextBox2.Text)
7. klik button 5 nya
isikan code berikut
WebBrowser1.Stop()
8. klik button 6 nya
isikan code berikut
biar lebih detil liat SC nya aja ye..
V.I.P FORUM :: DESKTOP CORNER :: PROGRAMING :: VB
Halaman 1 dari 1
Permissions in this forum:
Anda tidak dapat menjawab topik