1. Pendahuluan
Seperti kita ketahui bersama, Visual Basic 5.0 (VB5.0) menyediakan alat dan mekanisme lengkap yang diperlukan untuk mengimplementasikan program Windows tingkat lanjut, dan fungsinya yang kuat telah diakui oleh sebagian besar pengembang perangkat lunak Explorer memainkan peran penting lainnya dalam pesatnya perkembangan saat ini Internet. Efeknya yang tak terhapuskan, kemampuannya memproses HTML mengesankan setiap pengguna. Jika VB5.0 dan Explorer digabungkan, ini tidak hanya akan menjadi pelengkap, tetapi bahkan lebih hebat. Secara teoritis, VB5.0 menyediakan berbagai aspek keahlian untuk Internet, dan Explorer dapat menggunakan VBScript untuk memperluas fungsinya. Namun, dalam implementasi sebenarnya, pemrogram akan menghadapi satu atau lain masalah Dengan mengikuti metode ini, pengguna dapat memanggil Jelajahi di mana saja dalam program VB5.0 mereka untuk memfasilitasi penggunaan "file bantuan" atau "hyperlink".
2. Metode pelaksanaan
Pertama pilih "Proyek/Komponen" pada menu VB5.0, lalu pilih dua kontrol MicrosoftInternetcontrols dan MicrosoftcommonDialogControl5.0 untuk menambahkan ikon WebBrowser dan Commodialog ke toolbar, lalu Terakhir, pada formulir Form1, seperti yang ditunjukkan pada Gambar 1, perkenalkan dua Label, satu Teks, tiga Perintah, dan satu CommoDialog. Keterangan dari ketiga Perintah tersebut adalah "Jelajahi", "Buka HTM" dan "Batal", yang digunakan untuk menulis. Lebih mudah untuk memberi nama Commodialog sebagai cd.
Dalam program ini, target tipe Internet Explorer ii dibuat dengan memanggil metode ii.Navigatetext1, navNoreadfromcache, nama file HTML diberikan oleh text1.text, yaitu URL diberikan melalui Text1 tidak hanya bisa menggunakan VB5 Program .0 dapat membuka jendela Explorer dengan bebas, dan URL serta tampilan jendela juga ditentukan oleh VB5.0 Untuk membuatnya lebih jelas, hapus StandardButtons, AddressBar, Links, dan TextLabels di View/options/general Explorer.
Diantaranya, URL bisa dimasukkan secara langsung atau dipilih melalui browsing.
3. Prosedur
Dimii
PRIvateSubCommand1_Click()
Cd.Bendera=&H200
Cd.Filter="File HTML(*.htm)|*.htm|File Teks"&_
"(*.txt)|*.txt|Semua File(*.*)|*.*"
Cd.TampilkanTerbuka
Text1=Cd.namafile
Command2.Visible=Benar
Sub Akhir
PrivateSubCommand2_Klik()
Setii=GetObject("","INTERNETEXPLORER.aplikasi")
ii.NavigateText1,navNoReadFromCache
ii.Terlihat=1
ii.Atas=0
ii.Kiri=0
ii.Lebar=Bentuk1.Lebar
ii.Tinggi=Layar.Tinggi
Sub Akhir
PrivateSubCommand3_Klik()
Teks1=""
Bongkar Saya
Sub Akhir
PrivateSubForm_Load()
Form1.Top=Layar.Tinggi/4
Formulir1.Kiri=0
Form1.Width=Layar.Lebar
Form1.Height=Layar.Tinggi/2
Formulir1.Warna Belakang=QBWarna(2)
Label1.KembaliGaya=0
Label1.FontName="Ditahan"
Label1.Ukuran Font=14
Label1.Warna Depan=QBWarna(7)
Label2.KembaliGaya=0
Label2.Keterangan = "HTML"
Label2.FontName="naskah kuas"
Label2.Ukuran Font=24
Command2.Visible=Salah
Sub Akhir
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Lalu
Setii=GetObject("","INTERNETEXPLORER.APLIKASI")
ii.NavigateText1,navNoReadFromCache
ii.Terlihat=1
ii.Atas=0
ii.Kiri=0
ii.Lebar=Bentuk1.Lebar
ii.Tinggi=Layar.Tinggi
AkhirJika
Sub Akhir->