HELLO, Visitor

nih yg untuk VB6

Go down

nih yg untuk VB6

Post by Admin on Sat Oct 15, 2011 11:40 am

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
code:

Private Sub cmdback_Click()
WebBrowser1.GoBack
End Sub
Tombol Forward
code:

Private Sub Cmdforward_Click()
WebBrowser1.GoForward
End Sub
Tombol Go
code:

Private Sub cmdgo_Click()
WebBrowser1.Navigate (Text1.Text)
End Sub
Tombol Refresh
code:

Private Sub cmdrefresh_Click()
WebBrowser1.Refresh
End Sub
Berikut adalah membuat suatu URL menjadi HomePage kita
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
WebBrowser1.Refresh()

biar lebih detil liat SC nya aja ye..

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[You must be registered and logged in to see this image.]
~Forumnya Anak Indonesia~
avatar
Admin
Admin
Admin

Leo

Jumlah posting : 69
Points : 2623
Reputation : 2
Join date : 10.10.11
Age : 32
Lokasi : Kolaka,sultra Indonesia

http://cyber.do-talk.com

Kembali Ke Atas Go down

Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik