Thursday 25 October 2012

MEMBUAT WEB BROWSERSEDERHANA DENGAN VISUAL BASIC 6.0






Mungkin sudah banyak yang mempunyai Web Browser seperti Mozila Firefox, Chrome, Opera. Tapi, kali ini saya akan menyediakan tutorial Cara Membuat Web Browser menggunakan Visual Basic 6. Langsung saja silakan ikuti tata cara berikut:


Langkah - Langkah:

  1. Buka Visual Basic 6, buat project baru.
  2. Tambahkan Kontrol web browser(ketik ctrl+t, centang Microsoft Internet Controls, OK)
  3. Dobel klik Web Browser di Toolbox, beri nama WebBrowser1
  4. Tambahkan beberapa kontrol command button dan textbox. Properties nya sebagai berikut:
    Kontrol:Nama:Caption:
    Text BoxtxtUrl(kosongkan)
    Command ButtoncmdGoGO!
    Command ButtoncmdBackBack
    Command ButtoncmdFowardFoward
    Command ButtoncmdRefreshRefresh
    Command ButtoncmdStopStop
  5. Masukkan coding berikut(klik kanan pada form, view code):
    Private Sub cmdBack_Click()
    'Untuk Kembali
    WebBrowser1.GoBack
    End Sub
    Private Sub cmdFoward_Click()
    'Untuk maju ke halaman yg telah di klik kembali
    WebBrowser1.GoForward
    End Sub
    Private Sub cmdGo_Click()
    'Untuk pergi ke sebuah situs web yang telah diketik di txtUrl tadi
    WebBrowser1.Navigate (txtUrl.Text)
    End Sub
    Private Sub cmdRefresh_Click()
    'Untuk merefres halaman
    WebBrowser1.Refresh
    End Sub
    Private Sub cmdStop_Click()
    'Untuk menyetop loading halaman
    WebBrowser1.Stop
    End Sub
    Private Sub Form_Load()
    'Untuk menetapkan sebuah situs web sebagai homepage
    WebBrowser1.Navigate ("http://www.google.co.id/")
    End Sub
    Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
    'Untuk merubah Caption Form1
    Form1.Caption = WebBrowser1.LocationName + " - NAMA WEB BROWSERMU"
    'Untuk merubah Text txtUrl menjadi url yg sedang kita tuju
    txtUrl.Text = (WebBrowser1.LocationURL)
    End Sub
  6. Klik File > Make Project1.exe
 Web Browser Saya Dapat Di DownloadKlik Disini
f
FDownload Visual Basic 6.0 Full EnterpriseEdition , Klik Disini

No comments: