Buat peramban Anda sendiri? Apakah ada kesalahan? Belum lagi raksasa seperti IE, bahkan Opera kompak, kebanyakan dari kita orang awam tidak akan pernah mampu melakukannya. Tetapi jika Anda menginstal VB5.0 versi profesional di mesin Anda, segalanya akan lebih mudah. Apakah Anda ingin mencobanya? Baiklah, ayo pergi!
Protagonis dari program ini adalah kontrol ActiveX: WebBrowser. Tentu saja tidak termasuk dalam toolbox VB secara default. Kita harus menambahkannya secara manual. Caranya adalah: klik kanan toolbox, pilih "Parts..." pada menu shortcut yang muncul, dan pastikan sudah dipilih di kotak dialog pop-up. tab "Kontrol", temukan Kontrol Internet Microsoft, centang kotak kecil di depannya, lalu OK. Pada titik ini Anda akan menemukan dua ikon kecil lagi di kotak alat. Diantaranya, kontrol yang diwakili oleh ikon globe adalah WebBrowser yang kita butuhkan.
Karena banyak orang yang tidak begitu paham dengan kontrol WebBrowser, dan tidak ada konten tentangnya di bantuan VB (saya tidak menemukannya), maka perlu untuk memperkenalkan properti, metode, dan kejadiannya. kami hanya mencakup yang digunakan dalam program:
Properti: LocationURL Mengembalikan URL halaman WEB yang ditampilkan oleh kontrol.
Metode: Arahkan transfer ke URL yang ditentukan atau buka file HTML yang ditentukan.
Acara: 1． DownloadBegin Diaktifkan saat operasi pengunduhan dimulai.
2. DownloadComplete Diaktifkan ketika operasi pengunduhan selesai, berakhir, atau gagal.
3. Kontrol ProgressChange WebBrowser melacak kemajuan operasi pengunduhan dan memicu kejadian ini secara berkala. Sintaksnya adalah: Sub WebBrowser_ProgressChange (ByVal Progress As Long, ByVal ProgressMax As Long). Argumen Progress adalah jumlah total data yang diunduh saat ini, dan argumen ProgressMax adalah jumlah total data yang akan diunduh.
4. TitleChange dipicu ketika judul dokumen saat ini berubah.
Selain kontrol WebBrowser, program ini juga memerlukan kontrol Label: Label1; kontrol ComboBox: combo1, digunakan untuk menampilkan alamat URL; kontrol StatusBar: StatusBar1; kontrol ProgressBar: ProgressBar1, digunakan untuk menampilkan kemajuan pengunduhan (StatusBar kontrol dan kontrol ProgressBar adalah Kontrol ActiveX adalah anggota dari Microsoft Windows Common Controls 5.0. Metode menambahkannya ke kotak alat sama dengan kontrol WebBrowser).
Berikut daftar programnya:
| Opsi Eksplisit Sub Formulir_Load() Pribadi Saya.Caption="Penjelajah Saya" Label1.Caption = "URL" Kombo1.Teks = "" Combo1.Top = Label1.Tinggi Kombo1.Kiri = 0 WebBrowser1.Top = Combo1.Top + Combo1.Tinggi WebBrowser1.Kiri = 0 Formulir_Ubah Ukuran StatusBar1.Style = sbrSederhana Bilah Kemajuan1.Zorder Akhiri Sub |
| Sub Formulir Pribadi_Resize() Jika terjadi kesalahan, Buka a Combo1.Width = Bentuk1.Lebar - 100 WebBrowser1.Width = Kombo1.Lebar WebBrowser1.Tinggi = Bentuk1.Tinggi - Kombo1.Tinggi - 1000 ProgressBar1.Top = Saya.Tinggi - StatusBar1.Tinggi - 330 ProgressBar1.Kiri = 0,25 * StatusBar1.Lebar ProgressBar1.Width = 0,75 * Saya.Lebar - 250 A: Akhiri Sub |
| Kombo Sub Pribadi1_Klik() `Buka URL yang ditentukan WebBrowser1.Navigasi Combo1.Text Akhiri Sub Sub Pribadi Combo1_KeyDown (Kode Kunci Sebagai Integer, Shift Sebagai Integer) Redupkan Aku Selamanya Redupkan ada Sebagai Boolean Jika Kode Kunci = 13 Maka Jika Kiri(Combo1.Teks, 7) <> "http://"Lalu Kombo1.Teks = "http://"+ Kombo1.Teks Akhiri Jika WebBrowser1.Navigasi Combo1.Text Untuk I = 0 Ke Combo1.ListCount - 1 Jika Combo1.List(I) = Combo1.Text Lalu ada=Benar Keluar Untuk Kalau tidak ada=Salah Akhiri Jika Berikutnya Jika Tidak Ada Maka Combo1.AddItem (Combo1.Teks) Akhiri Jika Akhiri Jika Akhiri Sub |
| Sub WebBrowser Pribadi1_DownloadBegin() `Saat pengunduhan dimulai, bilah status menampilkan "Sekarang Menghubungkan..." StatusBar1.SimpleText = "Sekarang Menghubungkan..." Akhiri Sub |
| Sub WebBrowser Pribadi1_DownloadComplete() `Ketika pengunduhan selesai, bilah status menampilkan "Tautan Selesai" StatusBar1.SimpleText = "Tautan Selesai" ProgressBar1.Nilai = 0 Akhiri Sub |
| Sub WebBrowser1_ProgressChange Pribadi (Kemajuan ByVal Selama, ByVal ProgressMax Selamanya) `Bilah kemajuan berubah saat pengunduhan sedang berlangsung Jika ProgressMax = 0 Maka Keluar dari Sub ProgressBar1.Max = KemajuanMax Jika Kemajuan <> -1 Dan Kemajuan <= ProgressMax Maka ProgressBar1.Value = Kemajuan Akhiri Jika Akhiri Sub |
| Sub WebBrowser1_TitleChange Pribadi (Teks ByVal Sebagai String) Combo1.Teks = WebBrowser1.LocationURL Akhiri Sub |