เคยคิดที่จะออกแบบเบราว์เซอร์กราฟิกของคุณเองบ้างไหม? จริงๆ แล้วนี่ไม่ใช่เรื่องยากเลย เราสามารถใช้การเขียนโปรแกรม VB เพื่อให้บรรลุเป้าหมายได้อย่างง่ายดาย
กระบวนการออกแบบเบราว์เซอร์กราฟิกมีดังนี้:
1. เริ่ม VB สร้างไฟล์โครงการมาตรฐานใหม่และบนแบบฟอร์ม Form1 ให้เปลี่ยนคำบรรยายของ Form1 = "Graphic Browser"
2. เพิ่มตัวควบคุมไดรฟ์ โฟลเดอร์ และไฟล์ลงในแบบฟอร์มจากกล่องเครื่องมือ ชื่อของไดรฟ์คือ Diver1 ชื่อของโฟลเดอร์คือ Dir1 และชื่อของไฟล์คือ File1 และปรับตำแหน่งที่เหมาะสม
3. เพิ่มตัวควบคุม PictureBox ลงในฟอร์มจากกล่องเครื่องมือ ชื่อของ PictureBox คือ Picture1 และปรับตำแหน่ง ความสูง และความกว้างที่เหมาะสม
4. จากกล่องเครื่องมือ เพิ่มตัวควบคุม CommandButton ลงในแบบฟอร์ม ชื่อของ CommandButton คือ Command1 และปรับตำแหน่ง ความสูง และความกว้างที่เหมาะสม
5. คลิกสองครั้งที่เมาส์ในพื้นที่ว่างของแบบฟอร์มเพื่อเปิดหน้าต่างแก้ไขโค้ดและป้อนรหัสต่อไปนี้:
PRivateSubForm_Load()
'ตั้งค่าไดรฟ์และไดเร็กทอรีที่แอปพลิเคชันอยู่เป็นไดรฟ์และไดเร็กทอรีปัจจุบัน
'App เป็นวัตถุแอปพลิเคชันปัจจุบัน
Drive1.Drive=App.Path
Dir1.Path=แอป.พาธ
File1.Pattern="*.bmp;*.ico;*.wmf"
สิ้นสุดย่อย
6. คลิกสองครั้งที่ส่วนควบคุมไดรเวอร์บนแบบฟอร์มเพื่อเปิดหน้าต่างการแก้ไขโค้ดและป้อนโค้ดต่อไปนี้:
PrivateSubDrive1_เปลี่ยน()
'เมื่อไดรฟ์ที่เลือกเปลี่ยนแปลง ให้อัพเดตเนื้อหาในกล่องรายการไดเร็กทอรี เมื่อไดเร็กทอรีเปลี่ยนแปลง ให้ทริกเกอร์เหตุการณ์ Change ของกล่องรายการไดเร็กทอรี
Dir1.Path=Drive1.Drive
สิ้นสุดย่อย
7. คลิกสองครั้งที่เมาส์บนตัวควบคุมโฟลเดอร์ของแบบฟอร์มเพื่อเปิดหน้าต่างแก้ไขโค้ด ป้อนรหัสต่อไปนี้:
PrivateSubDir1_เปลี่ยน()
'เมื่อไดเร็กทอรีเปลี่ยนแปลง ให้อัพเดตเนื้อหาของกล่องรายการไฟล์
File1.Path=Dir1.Path
สิ้นสุดย่อย
8. คลิกสองครั้งที่เมาส์บนตัวควบคุมไฟล์ของแบบฟอร์มเพื่อเปิดหน้าต่างแก้ไขโค้ด ป้อนรหัสต่อไปนี้:
PrivateSubFile1_คลิก()
'ไดเรกทอรีราก อักขระตัวสุดท้ายในเส้นทางคือแบ็กสแลช "/" เช่น: C:/
'เมื่อเป็นไดเร็กทอรีที่ไม่ใช่ root อักขระตัวสุดท้ายในพาธจะไม่ใช่แบ็กสแลช "/"
'หากต้องการทราบชื่อไฟล์ที่สมบูรณ์ คุณควรเพิ่มเครื่องหมายแบ็กสแลช "/" ที่ส่วนท้ายของเส้นทาง
IfRight(File1.Path,1)〈〉"/"จากนั้น
'เมื่อเป็นไดเร็กทอรีที่ไม่ใช่ root ให้เพิ่มแบ็กสแลช "/" ที่ส่วนท้ายของพาธ
tempstring=File1.Path&&"/"&&File1.FileName
อื่น
tempstring=File1.Path&&"/"&&File1.FileName
สิ้นสุดถ้า
'โหลดไฟล์ที่เลือก
Form1.Picture1.Picture=LoadPicture(tempstring)
สิ้นสุดย่อย
9. ดับเบิลคลิกตัวควบคุม "ปิด" ของแบบฟอร์มเพื่อเปิดหน้าต่างแก้ไขโค้ดขึ้นมา และป้อนโค้ดต่อไปนี้:
PrivateSubCommand1_คลิก()
ยกเลิกการโหลดฉัน
จบ
สิ้นสุดย่อย
บันทึกไฟล์และเรียกใช้ จากนั้นเบราว์เซอร์กราฟิกของคุณก็พร้อมแล้ว -