Web Browser dengan Visual Basic 6.0

  • Whatsapp

Salam Onklik – Rasanya cukup lama onklik tak menyempatkan sebuah artikel berbagi tutorial tentang Visual Basic 6.0 masuk dalam list posting, untuk mengisi kekosongan tersebut kali ini bahasan yang akan saya angkat adalah membangun Browser Sederhana menggunakan Visual Basic 6.0.

Jika anda masuk dan menyimak artikel ini sudah tentu mengenal betul apa itu Visual Basic 6.0, mulai dari interface didalamnya hingga coding dan sintax yang berlaku pada Bahasa Pemrograman Basic yang satu ini, untuk itu saya tak perlu menjelaskan lebih dalam lagi tentang fungsi-fungsi dasar yang berlaku Visual Basic 6.0. Berlanjut kepembahasan membangun Web Browser sederhana menggunakan Visual Basic 6.0 adapun komponen-komponen yang dibutuhkan antara lain Command Buton, Text Box, Label, Webbrowser dan Proggress Bar.

Berikut langkah-langkah detail membangun sebuah Browser Sederhana dengan Visual Basic 6.0 :

  • Jalankan dahulu Aplikasi Visual Basic 6.0 yang anda miliki.
  • Klik Kanan Pada ToolBox, Kemudian pilih Components atau tekan  key Ctrl + T .
  • Centang Microsoft html object library, Microsoft internet controls, Microsoft Windows common Controls 5.0 atau 6.0 sama saja.
  • Buat 5 Command Buton, 1 Text Box , 1Label, 1 Webbrowser , 1 Proggress Bar. Saran saya tata Seperti Gambar di bawah.
  • CommandButton Captionnya dapat anda ganti dengan Back, Forward, Refresh, Stop dan Go. (Caption dapat anda tentukan sendiri karena tak mempengaruhi kerja codding)
  • Label Captionnya saya ganti Done
  • TextBox Text kalau bisa Kosong aja.

Atur design interface kerja seperti tampilan dibawah ini :

Langkah selanjutnya Masukkan sintax berikut pada halaman console, caranya doble klik pada tool / tombol yang sudah kita buat.

    Back
    On Error Resume Next
    WebBrowser1.GoBack

    Forward
    On Error Resume Next
    WebBrowser1.GoForward

    Refresh
    On Error Resume Next
    WebBrowser1.Refresh

    Stop
    On Error Resume Next
    WebBrowser1.Stop

    GO
    On Error Resume Next
    WebBrowser1.Navigate Text1.Text

    Progress Bar
    Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
    On Error Resume Next
    If Progress = -1 Then ProgressBar1.Value = 100
    Label1.Caption = "Done"
    ProgressBar1.Visible = False
    If Progress > 0 And ProgressMax > 0 Then
    ProgressBar1.Visible = True
    Image1.Visible = False
    ProgressBar1.Value = Progress * 100 / ProgressMax
    Label1.Caption = "Loading " & Int(Progress * 100 / ProgressMax) & "%"

    End If
    Exit Sub
    End Sub

    Resize Form
    Private Sub Form_Resize()
    On Error Resume Next
    WebBrowser1.Width = Me.ScaleWidth
    WebBrowser1.Height = Me.ScaleHeight - 1680
    End Sub

Jika langkah-langkah diatas telah anda ikuti secara benar, coba Jalankan Programnya Browse Sederhana tersebut denga menu Run > Start atau F5. Lanjutkan dengan mebuka sebuah laman web, contoh Google.com maka akan tampak seperti gambar dibawah ini.

Langkah terakhir jika anda ingin mengcompile hasil kerja anda masuk ke Menu File > Make Project1.exe. Simpan hasil kerja anda dalam bentuk file executable atau EXE.

Semoga artikel ini bermanfaat – Salam Onklik :).

Related posts