Selasa, 18 Desember 2012

Membuat WebBrowser Mu Sendiri Menggunakan VB.net 2010

WebBrowser adalah Penjelajah web, Penjelajah (Inggris: web browser) disebut juga penjelajah web, adalah perangkat lunak yang berfungsi menampilkan dan melakukan interaksi dengan dokumen-dokumen yang disediakan oleh server web . Penjelajah web yang populer adalah Microsoft Internet Explorer dan Mozilla Firefox. Penjelajah web adalah jenis perantara pengguna yang paling sering digunakan. sekarang kita bisa membuat applikasi sederhana menggunakan visual basic 2010 atau vb.net .
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 "

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

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  :

  1.  apabila di klik BtnGO , navigasi control webbrowser1 di dasari dari textbox1 (Terkoneksi antara webbrowser dan textbox) tergatung alamat website di textbox1
  2.  textbox1 adalah UrL atau alamat WebSite .
  3. keypress enter pada keyboard sama dengan kita mengklik Go UrL .
  4. keypress f5 pada keyboard sama dengan kita mengklik BtnRefresh
  5. apabila di klik BtnBack maka akan kembali ke web sebelumnya
  6. apabila di klik BtnRefresh maka akan refresh page (f5)
  7. 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 icon paste di bawah submenu Debug

F5 untuk debug program .
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 .
jangan lupa post command dan share ilmu untuk teman2 yang lain juga .
:D

Twitter ; @fariz_setiawan

7 komentar: