Pernah terpikir untuk merancang browser grafis Anda sendiri? Sebenarnya hal ini tidak sulit sama sekali, kita bisa dengan mudah menggunakan pemrograman VB untuk mencapainya.
Proses desain browser grafis adalah sebagai berikut:
1. Jalankan VB, buat file proyek standar baru, dan pada form Form1, ubah Caption Form1 = "Graphic Browser".
2. Tambahkan kontrol drive, folder dan file ke formulir dari kotak alat. Nama drive adalah Diver1, Nama folder adalah Dir1, dan Nama file adalah File1, dan sesuaikan posisi yang sesuai.
3. Tambahkan kontrol PictureBox ke form dari toolbox. Nama PictureBox adalah Picture1, dan sesuaikan posisi, tinggi dan lebar yang sesuai.
4. Dari toolbox, tambahkan kontrol CommandButton ke form. Nama CommandButton adalah Command1, dan sesuaikan posisi, tinggi dan lebar yang sesuai.
5. Klik dua kali mouse di ruang kosong formulir untuk memunculkan jendela pengeditan kode dan masukkan kode berikut:
PrivatSubForm_Load()
'Tetapkan drive dan direktori tempat aplikasi berada sebagai drive dan direktori saat ini
'Aplikasi adalah objek aplikasi saat ini
Drive1.Drive=Aplikasi.Jalur
Dir1.Path=Aplikasi.Jalur
File1.Pattern="*.bmp;*.ico;*.wmf"
Sub Akhir
6. Klik dua kali kontrol driver pada formulir untuk membuka jendela pengeditan kode dan masukkan kode berikut:
PrivateSubDrive1_Ubah()
'Ketika drive yang dipilih berubah, perbarui konten di kotak daftar direktori; ketika direktori berubah, picu acara Ubah kotak daftar direktori
Dir1.Jalur=Drive1.Drive
Sub Akhir
7. Klik dua kali mouse pada folder kontrol formulir untuk memunculkan jendela pengeditan kode, masukkan kode berikut:
PrivateSubDir1_Change()
'Ketika direktori berubah, perbarui isi kotak daftar file
File1.Jalur=Dir1.Jalur
Sub Akhir
8. Klik dua kali mouse pada kontrol file formulir untuk memunculkan jendela pengeditan kode, masukkan kode berikut:
PrivateSubFile1_Klik()
'Direktori root, karakter terakhir di jalur adalah garis miring terbalik "/", seperti: C:/
'Jika ini adalah direktori non-root, karakter terakhir di jalur tersebut bukan garis miring terbalik "/"
'Untuk mendapatkan nama file lengkap, Anda harus menambahkan garis miring terbalik "/" di akhir jalur
IfRight(File1.Path,1)〈〉"/"Lalu
'Jika ini adalah direktori non-root, tambahkan garis miring terbalik "/" di akhir jalur
tempstring=File1.Jalur&&"/"&&File1.NamaFile
Kalau tidak
tempstring=File1.Jalur&&"/"&&File1.NamaFile
AkhirJika
'Muat file yang dipilih
Form1.Picture1.Picture=LoadPicture(tempstring)
Sub Akhir
9. Klik dua kali kontrol "Tutup" pada formulir untuk membuka jendela pengeditan kode dan masukkan kode berikut:
PrivateSubCommand1_Klik()
Bongkar Saya
Akhir
Sub Akhir
Simpan file dan jalankan, dan browser grafis Anda sudah siap. ->