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 :).
