Membuat Dasar Web Browser di VB.Net Ala Yuzz181

​

Kali ni saya akan Share Tutorial yang dibuat sendiri, dari source, SS sampai kalimatnya..., maka jika berkenan Silahkan +Rep :goodjob: . Disini saya akan bahas bagimana membuat browser..., tapi yang basic dulu ya... (mulai dari yg paling kecil dulu).
Langsung saja....




Saya Disini menggunakan Visual Studio 2013, Jadi kagak bakal beda jauh..
Buka Aplikasi Visual Studio, lalu buat projek baru dengan bahasa Visual Basic.
Pilih Windows Form Application. dan masukan nama sesuai yang anda mau..

Tahap 1 : Design Web Browser
[hr]

Pada Toolbox, pilih web browser, drag ke windows form yg tersedia


Masih di web browser, agar bagus ubah Achor jadi top, bottom, left, right pada properties.


Kemudian tambahkan button dari toolbox sebanyak 4 buah, buat (name) pada properties menjadi :

• Button1 = back_btn
• Button2 = forward_btn
• Button3 = stop_btn
• Button4 = refresh_btn

dan juga ubah Achornya juga.....

• back_btn = top, left
• forward_btn = top, left
• stop_btn = top, right
• refresh_btn = top, right

jika sudah di properties pada "Text" ubah juga menjadi (ini contoh, silahkan kreasikan)
tanpa tanda petik ya...

• back_btn = "<"
• forward_btn = ">"
• stop_btn = "X"
• refresh_btn = "R"

sizenya sesuaikan sesuai selera (samakan)



selanjutnya masukan textbox, drag dan sesuaikan. ubah (Name) menjadi url_box, lalu pada Text di properties masukan halaman Homepagenya, minsalnya http://www.google.com, jangan lupa achornya ubah menjadi top, left, right






klik pada webbrowser.. pada url masukan halaman homepage tadi


nah disini satukan posisi tempat tombol refresh dan stop..


karena saya akan menambahkan tombol GO, ganti (Name) pada properties juga menjadi go_btn dengan achor top, right.
Rapihkan semua posisi tombol, textbox dan webbrowsernya agar rapih.




Tahap 2 Coding Web Browser
[hr]


Sebelumnya pastikan nama namanya sesuai dengan tahap pertama, agar hasilnya benar.
penjelasan coding ada disetiap samping code 'bla bla bla itu adalah komentar (diawali kutip satu), untuk memudahkan saja, bisa dihapus kok.

Code:

Public Class Form1
    '===============================================================================|
    'Code By Yuzz181                                                                                                    
    'http://forum.winpoin.com                                                      
    '===============================================================================|

    Private Sub back_btn_Click(sender As Object, e As EventArgs) Handles back_btn.Click
        If WebBrowser1.CanGoBack Then
            WebBrowser1.GoBack() 'jika browser bisa mundur, maka tombol back lakukan mundur
        Else
            back_btn.Enabled = False 'jika browser tidak bisa mundur maka tombol back tidak bisa diklik
        End If
    End Sub

    Private Sub Forward_btn_Click(sender As Object, e As EventArgs) Handles Forward_btn.Click
        If WebBrowser1.CanGoForward Then
            WebBrowser1.GoForward() 'jika browser bisa maju, maka tombol forward lakukan maju
        Else
            Forward_btn.Enabled = False 'jika browser tidak bisa maju maka tombol forward tidak bisa diklik
        End If
    End Sub

    Private Sub go_btn_Click(sender As Object, e As EventArgs) Handles go_btn.Click
        WebBrowser1.Navigate(url_box.Text) 'Jika klik tombol GO maka web browser pergi kesitu
    End Sub

    Private Sub Refresh_btn_Click(sender As Object, e As EventArgs) Handles Refresh_btn.Click
        WebBrowser1.Refresh() 'jika klik tombol refresh maka muat ulang
    End Sub

    Private Sub Stop_btn_Click(sender As Object, e As EventArgs) Handles Stop_btn.Click
        WebBrowser1.Stop() 'jika klik tombol stop maka berhenti
    End Sub

    Private Sub WebBrowser1_Navigated(sender As Object, e As WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
        Stop_btn.Visible = False 'jika selesai memuat tombol stop menghilang
        Refresh_btn.Visible = True 'jjika selesai memuat tombol refresh muncul
        url_box.Text = WebBrowser1.Url.AbsoluteUri 'teks url box sama dengan alamat yang sedang dibuka web browser
    End Sub

    Private Sub WebBrowser1_Navigating(sender As Object, e As WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
        Stop_btn.Visible = True 'jika sedang memuat tombol stop muncul
        Refresh_btn.Visible = False 'jika sedang memuat tombol refresh menghilang
    End Sub
End Class

Hasil Akhir



Nah Bagimana ? Semoga Bermanfaat dan sekian Thread saya. jika anda ingin sourcenya silahkan download di attachment :cool: Nantikan Tutorial VB.NET Selanjutnya dari saya.... :sokganteng:

#Thread masih dalam perbaikan jadi klo masih acak acakan mohon maaf...

 

manteb om, double +Reps dehh...ini cuman bisa buka, refresh, stop, back sama foward aja ya..

 

yap :goodjob:
Thanks Repnya.. :kagum:

yap.., tapi nanti mau berlanjut...
rencananya
1. Web browser IE ini dari dasar, tab, bookmark, history, setting, themes dsbg
2. Web browser Gecko dari dasar, tab, bookmark, history, setting, themes dsbg, juga...
:cool:
btw thanks bgt double repnya :kagum:

 

wah saya mau buat ahh
+REP buat anda :goodjob:

 

siip silahkan saja, semoga bermaanfaat... :goodjob:
thanks +repnya

 

semua jenis VS bisa kok... :goodjob: