Sabtu, 30 Juni 2012

Membuat Web Browser dengan Visual Basic .NET (Pemrograman VB.NET)


Untuk membuat aplikasi Browser Web di Visual Basic .NET dapat digunakan komponen WebBrowser yang dapat digunakan untuk membuka halaman Web maupun mengexplore File-file lokal seperti hanya Windows Explorer dan Internet Explorer.. Langkah-langkah pembuatannya sebagai berikut :

1. Buka Visual Studio. Klik menu File-New-Project. Akan muncul dialog New Project. Pilih Project types : Visual Basic-Windows, Templates : Windows Application. Klik OK.


2. Akan ditampilkan Form1 yang masih kosong. Dari Toolbox tab All Windows Forms tambahkan komponen WebBrowser ke Form1. Kemudian tambahkan 1 buah komponen label ke Form1, 3 buah komponen TextBox ke Form1 dan tambahkan 6 buah komponen Button ke Form1.


3. Ubah property Text dari Form1 menjadi Web Browser. Ubah property Text dari TextBox1 menjadi kosong (“”). Kemudian ubah property Text dari Button-Button-nya menjadi “Go”, “<”, “>”, “Refresh”, “Save” dan “About”. Sehingga tampak seperti pada tampilan berikut ini :


4. Klik dua kali pada Button1 (“Go”), akan ditampilkan kode program Form1.vb milik Form1. Pada event procedure Private Sub Button1_Click tambahkan kode program berikut ini :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Navigate(TextBox1.Text)
End Sub

5. Kemudian klik dua kali pada Button2 (“<”) dan berturut-turut selanjutnya Button3 (“>”), Button4 (“Refresh”), Button5 (“Save”) dan Button6 “About”.. Tambahkan kode program berikut ini pada event-event-nya :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser1.GoBack()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
WebBrowser1.GoForward()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
WebBrowser1.Refresh()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
System.IO.File.WriteAllText(SaveFileDialog1.FileName, WebBrowser1.DocumentText)
End If
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
MsgBox("Web Browser Tutorial" & vbCrLf & "© 2008 amijaya.com", MsgBoxStyle.OkOnly Or MsgBoxStyle.Information, "About")
End Sub

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
WebBrowser1.Navigate(TextBox1.Text)
End If
End Sub

6. Untuk menjalankan program klik menu Debug-Start Debugging (F5). Kemudian coba isikan alamat web (URL) : http://<alamat web> pada TextBox “Address” klik Button “Go”. Akan ditampilkan halaman web tersebut :


7. Program ini juga dapat digunakan untuk melihat file dan direktori di dalam komputer seperti halnya Windows Explorer, caranya ketikkan path dari direktori yang akan dilihat pada TextBox “Address”, kemudian klik Button “Go”. Akan ditampilkan file-file isi dari direktori tersebut :