caranya sangat mudah dan menarik untuk di coba untuk latihan para ortodidak atau pemula belajar vb.net .
mari kita buat mozila firefox kita sendiri . :D
download visual basic 2010
instal program dan buka program.
pilih new project . untuk membuat projek baru .
setelah sudah membuka project baru akan keluar tampilan sebagai berikut :
Pilih windows Form Application
Beri Nama dan "Klik Browse Untuk penyimpanan aplikasi "
Beri Nama dan "Klik Browse Untuk penyimpanan aplikasi "
Buat Form Seperti Berikut ini :
yang di butuhkan adalah
- 4 Button (di paling atas untuk icon refresh, stop browser, back dan Go urL )
- 1 textbox (di atas untuk UrL / Alamat Website )
- 1 WebBrowser ( di bawah dan buat dengan ukuran besar , untuk tampilan web )
setelah seperti tampilan di atas . kita atur propertisnya sehingga menjadi seperti ini :
Nama control | Propertis | Nilai |
button1 | Name | BtnBack |
Backgroundimage | (Beri icon) | |
Backgroundimagelayout | Stretch | |
Text | (kosong) | |
button2 | Name | BtnStop |
Backgroundimage | (Beri icon) | |
Backgroundimagelayout | Stretch | |
Text | (kosong) | |
button3 | Name | BtnRefresh |
Backgroundimage | (Beri icon) | |
Backgroundimagelayout | Stretch | |
Text | (kosong) | |
button4 | Name | BtnGo |
Text | Go UrL | |
textbox1 | Name | TextBox1 |
webbrowser1 | Name | WebBrowser1 |
setelah sudah terbuat tampilan seperti gambar di atas dengan propertis demikian , kita akan ke proses syntax .
caranya :
caranya :
klik kanan pada form1 pilih view code atau doubleclick form .
tulis syntax code berikut :
=================================================================================
Public Class Form1
Private Sub
BtnGO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
BtnGo.Click
WebBrowser1.Navigate(TextBox1.Text)
End Sub
Private Sub
WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
Handles WebBrowser1.DocumentCompleted
TextBox1.Text = WebBrowser1.Url.ToString
End Sub
Private Sub
TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles
TextBox1.KeyDown
If e.KeyCode = Keys.Enter
Then
WebBrowser1.Navigate(TextBox1.Text)
e.SuppressKeyPress = True
End If
If e.KeyCode = Keys.F5
Then
WebBrowser1.Refresh()
e.SuppressKeyPress = True
End If
End Sub
Private Sub
BtnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
BtnBack.Click
WebBrowser1.GoBack()
End Sub
Private Sub BtnRefresh_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
BtnRefresh.Click
WebBrowser1.Refresh()
End Sub
Private Sub
BtnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
BtnStop.Click
WebBrowser1.Stop()
End Sub
End Class
=================================================================================
penjelasan logika syntax :
- apabila di klik BtnGO , navigasi control webbrowser1 di dasari dari textbox1 (Terkoneksi antara webbrowser dan textbox) tergatung alamat website di textbox1
- textbox1 adalah UrL atau alamat WebSite .
- keypress enter pada keyboard sama dengan kita mengklik Go UrL .
- keypress f5 pada keyboard sama dengan kita mengklik BtnRefresh
- apabila di klik BtnBack maka akan kembali ke web sebelumnya
- apabila di klik BtnRefresh maka akan refresh page (f5)
- apabila di klik BtnStop maka koneksi akan berhenti
setelah sudah simpan klik gambar discket grub save .
klik submenu , build pilih dan build file tersebut
klik submenu , build pilih dan build file tersebut
klik icon paste di bawah submenu Debug
F5 untuk debug program .
masukan UrL apa saja , untuk check working program .
contoh : facebok.com
masukan UrL apa saja , untuk check working program .
contoh : facebok.com
sekarang anda sudah membuat Mozila Firefox buatan anda sendiri :D
Mudah buKan ;)
Selamat Mencoba ^,^ teman-teman .
Selamat Mencoba ^,^ teman-teman .
jangan lupa post command dan share ilmu untuk teman2 yang lain juga .
:D
:D
Twitter ; @fariz_setiawan
keren gan tanks ilmu'a
BalasHapusmantab gan
BalasHapusgood job
Kereeeen... Thanks Vroh.. (y)
BalasHapusKomentar ini telah dihapus oleh pengarang.
BalasHapusKeren bro mampir ke CAra mudah
BalasHapusThanks bro, Ilmunya sangat membantu...
BalasHapusTerima kasih support nya dengan komentar kalian yang positif . Semoga bermanfaat ya...
BalasHapus