Devil Elevator

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.

• 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.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

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