SMK YP Karya 2: VisualBasic

[SourceCode] Facebook Mini Atau Web Browser VB6/VB.NET

Siang Bloggers :-d

Kali ini saya akan membagi dan mengajarkan cara membuat facebook mini/web browser sendiri :-)

Saya membuat ini menggunakan Visual Basic 6 atau Visual Basic Net, jika kalian belum punya softwarenya bisa disedot nih :-)

Link :
VisualBasic6 [Passwordnya : www.kuyhaa-android19.com]
VisualBasicNet

Jangan tanya serial keynya yaaa

digoogle banyak kok, hehehe....

Oke deh, jika sudah download, kita langsung ke tutorialnyaa 8-)

[1.] Buka VisualBasic Kalian
[2.] Buat 1 Project Dengan Nama "FaceBookMini"
[3.] Lalu Tambahkan Komponen Ini :
- 4 Frame
- 1 WebBrowser
- 6 Command Button
- 1 TextBox
- 1 Label
Setelah itu susun seperti ini

[5.] Sekarang Kita Tambahkan Kode - Kodenya =p~

[=] Klik 2x Di Formnya/Klik Kanan Lalu View Code
Tambahkan Kode Ini :

Private Sub Form_Load() WebBrowser1.Navigate ("http://m.facebook.com") End Sub

[=] Kemudian Kita Kembali Ke Formnya, Lalu Klik 2x Di Button "Refresh", Kemudian Tambahkan Kode Ini :

WebBrowser1.Refresh

[=] Lalu Kita Kembali Lagi Ke Form, Klik 2x Di Button "Back", Kemudian Tambahkan Kode Ini :

WebBrowser1.GoBack

[=] Setelah Itu Kembali Lagi Ke Form, Dan Klik 2x Di Button "Forward", Kemudian Tambahkan Kode Ini :

WebBrowser1.GoForward

[=] Kita Balik Lagi Ke Form, Kemudian Klik 2x Di Button "Stop", Lalu Tambahkan Kode Ini :

WebBrowser1.Stop

[=] Setelah Itu Kita Balik Lagi Ke Form Kemudian Klik 2x Di Button Exit, Tambahkan Kode Ini :

End

[=] Lalu Kita Balik Ke Form, Kemudian Tambahkan Kode Ini Di Button "Go!!!"

WebBrowser1.Navigate (Text1.Text)

[=] Selesai, Sekarang Design Aja Formnya Sesuai Keinginan Kalian

[6.] Full Kodenya Gini :

Private Sub Command1_Click()
WebBrowser1.Refresh
End Sub

Private Sub Command2_Click()
WebBrowser1.GoBack
End Sub

Private Sub Command3_Click()
WebBrowser1.GoForward
End Sub

Private Sub Command4_Click()
WebBrowser1.Stop
End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Command6_Click()
WebBrowser1.Navigate (Text1.Text)
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate ("http://m.facebook.com")
End Sub