Membuat Browser Sendiri Dengan Ms. VB 2008
Assalamu’alaikum.wr.wb
Tutorial ini terinspirasi sama peserta pelatihan. Dia sms ke saya isinya “Aslm.,bng nie ein ank smstr 3, yg iktn plthn itu, mau nanya, klo bkin program yg b’bsis desktop, pke vb. Itu bias d buat ng’link k’internet gk ? Msalkan d tkan tmbl lmbng f, trz lngsng ng’link k’internet. Bias gk bng ?“.
Trus saya jawab aja bias, cz dulu pernah coba buat di visual basic 6 dan akhirnya saya putuskan mencoba membuat tutorial ini, selain button yang bisa ngelink ke url yang diperintahkan, saya mencoba membuat sendiri browsernya. Sebetulnya ini Cuma meload fungsi-fungsi internet explorer bawaan windows.
Okelah klo begitu kita langsung saja sama pembahasannya. J
1. Objek-objek yang diperlukan beserta pengaturan di properties
No |
Nama Objek |
Properties |
|
1. |
Form1 |
Name |
: mybrowser |
Icon |
: … (Disesuaikan) |
||
2. |
Panel |
Name |
: Panel1 |
Dock |
: Top |
||
3. |
Button |
||
– Button 1 |
Name |
: btnback |
|
Image |
: … (Disesuaikan) |
||
– Button 2 |
Name |
: btnforward |
|
Image |
: … (Disesuaikan) |
||
– Button 3 |
Name |
: btnrefresh |
|
Image |
: … (Disesuaikan) |
||
– Button 4 |
Name |
: btnstop |
|
Image |
: … (Disesuaikan) |
||
Ancor |
: Top, Bottom, Right |
||
– Button 5 |
Name |
: btntwiteer |
|
Image |
: … (Disesuaikan) |
||
Ancor |
: Top, Left |
||
– Button 6 |
Name |
: btnfacebook |
|
Image |
: … (Disesuaikan) |
||
Ancor |
: Top, Left |
||
4. |
Text1 |
Name |
: textural |
Text |
: |
||
5. |
WebBrowser |
Name |
: webbrowser |
Dock |
: Fill |
||
6. |
StatusStrip |
Name |
: panelStatus |
AddToolStripStatusLabel |
Name |
: tstatus |
|
Text |
: Link URL |
||
2. Menulis Coding
1. Public Class mybrowser
2. ‘ _url ini digunakan untuk mendefinisikan url yang akan dikunjungi
3. Private _url As String
4. ‘ _facebook ini digunakan untuk memanggil link “http://facebook.com/” begitu juga dengan twitter
5. Private _facebook As String = “http://facebook.com/”
6. Private _twitter As String = “http://twitter.com/”
7.
8. Public Property Url() As String
9. ‘memberikan perintah untuk menjalankan url yang diketikkan di textURL
10. Get
11. Return _url
12. End Get
13. Set(ByVal Value As String)
14. webbrowser.Navigate(Value)
15. End Set
16. End Property
17.
18. Private Sub webbrowser_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles webbrowser.DocumentCompleted
19. ‘memberikan keteangan url untuk di tampilkan di textURL dan tstatus (yg berada di panelstatus)sebagai url yang dikunjungi
20. textURL.Text = webbrowser.Url.ToString
21. tstatus.Text = webbrowser.Url.ToString
22. End Sub
23.
24. Private Sub textURL_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles textURL.KeyPress
25. ‘fungsi ini akan memberikan perintah ke webbrowser untuk membuka url yg diketikan di textURL –
26. ‘ dan ketika di enter akan di jalankan perintah tersebut
27. If e.KeyChar = Chr(13) Then
28. Url = textURL.Text
29. End If
30. End Sub
31.
32. Private Sub btnback_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnback.Click
33. ‘mengembalikan url yang sebelumnya dikunjungi
34. webbrowser.GoBack()
35. End Sub
36.
37. Private Sub btnforward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnforward.Click
38. ‘ mengembalikan url yang sesudahnya dikunjungi
39. webbrowser.GoForward()
40. End Sub
41.
42. Private Sub btnstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnstop.Click
43. ‘menghentikan url yg sedang dibuka ketika proses loading
44. webbrowser.Stop()
45. End Sub
46.
47. Private Sub buttonRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonRefresh.Click
48. ‘menyegarkan kembali url yang sedang dibuka
49. webbrowser.Refresh()
50. End Sub
51.
52. Private Sub btnfacebook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfacebook.Click
53. ‘menampilkan halaman facebook ketika di click tombol icon facebook
54. Url = _facebook
55. End Sub
56.
57. Private Sub btntwitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntwitter.Click
58. ‘menampilkan halaman twitter ketika di click tombol icon twitter
59. Url = _twitter
60. End Sub
61. End Class
3. Melakukan debugging untuk mencoba aplikasi yang dibuat:
debug => Start Debugging (tekan F5), dan setelah muncul lalu ketikan web yang akan di lihat, nnti hasilnya seperti di bawah ini
debug => Start Debugging (tekan F5), dan setelah muncul lalu ketikan web yang akan di lihat, nnti hasilnya seperti di bawah ini
