1. บทนำ
ดังที่เราทุกคนทราบกันดีว่า Visual Basic 5.0 (VB5.0) มีเครื่องมือและกลไกที่สมบูรณ์ซึ่งจำเป็นสำหรับการใช้งานโปรแกรม Windows ขั้นสูง และฟังก์ชันอันทรงพลังนั้นได้รับการยอมรับจากนักพัฒนาซอฟต์แวร์ส่วนใหญ่ Explorer มีบทบาทสำคัญอีกอย่างหนึ่งในการพัฒนาอย่างรวดเร็วในปัจจุบัน อินเทอร์เน็ต เอฟเฟกต์ที่ลบไม่ออก ความสามารถในการประมวลผล HTML สร้างความประทับใจให้กับผู้ใช้ทุกคน หากรวม VB5.0 และ Explorer เข้าด้วยกัน สิ่งนี้จะไม่เพียงเป็นไอซิ่งบนเค้กเท่านั้น แต่ยังทรงพลังอีกด้วย ตามทฤษฎี VB5.0 มอบความเชี่ยวชาญด้านต่างๆ ให้กับอินเทอร์เน็ต และ Explorer สามารถใช้ VBScript เพื่อขยายฟังก์ชันต่างๆ ได้ อย่างไรก็ตาม ในการใช้งานจริง โปรแกรมเมอร์จะประสบปัญหาไม่ทางใดก็ทางหนึ่ง ตอนนี้เราจะยกตัวอย่างที่ได้รับการดีบั๊กสำเร็จแล้ว เมื่อใช้วิธีนี้ ผู้ใช้สามารถเรียก Explore ได้ทุกที่ในโปรแกรม VB5.0 เพื่ออำนวยความสะดวกในการใช้ "ไฟล์วิธีใช้" หรือ "ไฮเปอร์ลิงก์"
2. วิธีการนำไปปฏิบัติ
ขั้นแรกเลือก "โครงการ/ส่วนประกอบ" บนเมนู VB5.0 จากนั้นเลือกตัวควบคุมสองตัว MicrosoftInternetcontrols และ MicrosoftcommonDialogControl5.0 เพื่อเพิ่มไอคอน WebBrowser และ Commodialog ลงในแถบเครื่องมือ จากนั้น สุดท้าย ในแบบฟอร์ม Form1 ดังแสดงในรูปที่ 1 ให้แนะนำป้ายกำกับสองรายการ ข้อความหนึ่งรายการ คำสั่งสามคำสั่ง และหนึ่งคำสั่ง CommoDialog คำบรรยายของทั้งสามคำสั่งคือ "เรียกดู", "เปิด HTM" และ "ยกเลิก" ซึ่งจะใช้ สำหรับการเขียน จะสะดวกในการตั้งชื่อ Commodialog เป็น cd
ในโปรแกรม Internet Explorer ประเภท target ii จะถูกสร้างขึ้น โดยการเรียกเมธอด ii.Navigatetext1, navNoreadfromcache ชื่อไฟล์ HTML จะได้รับจาก text1.text นั่นคือ URL จะได้รับผ่าน Text1 ในลักษณะนี้ ผู้ใช้ ไม่เพียงแต่สามารถใช้ VB5 เท่านั้น โปรแกรม .0 สามารถเปิดหน้าต่าง Explorer ได้อย่างอิสระ และ URL และลักษณะที่ปรากฏของหน้าต่างจะถูกกำหนดโดย VB5.0 เพื่อให้ชัดเจนยิ่งขึ้น ให้ลบ StandardButtons, AddressBar, Links และ TextLabels ใน View/options/general ของ Explorer
โดยสามารถป้อน URL ได้โดยตรงหรือเลือกผ่านการเรียกดู
3. ขั้นตอน
ดิมิ
PRivateSubCommand1_คลิก()
Cd.Flags=&H200
Cd.Filter="HTMLfiles(*.htm)|*.htm|TextFiles"&_
"(*.txt)|*.txt|ไฟล์ทั้งหมด(*.*)|*.*"
Cd.ShowOpen
Text1=ชื่อไฟล์ซีดี
Command2.Visible=จริง
สิ้นสุดย่อย
PrivateSubCommand2_คลิก()
Setii=GetObject("", "INTERNETEXPLORER.application")
ii.NavigateText1,navNoReadFromCache
ii.มองเห็น=1
ii.บน=0
ii.ซ้าย=0
ii.ความกว้าง=แบบฟอร์ม1.ความกว้าง
ii.Height=หน้าจอความสูง
สิ้นสุดย่อย
PrivateSubCommand3_คลิก()
ข้อความ1=""
ยกเลิกการโหลดฉัน
สิ้นสุดย่อย
ส่วนตัวSubForm_Load()
Form1.Top=หน้าจอความสูง/4
Form1.ซ้าย=0
Form1.Width=หน้าจอ.ความกว้าง
Form1.Height=หน้าจอความสูง/2
Form1.BackColor=QBColor(2)
Label1.BackStyle=0
Label1.FontName="เฮลด์"
Label1.FontSize=14
Label1.ForeColor=QBColor(7)
Label2.BackStyle=0
Label2.Caption="HTML"
Label2.FontName = "แปรงสคริปต์"
Label2.FontSize=24
Command2.Visible=เท็จ
สิ้นสุดย่อย
PrivateSubText1_KeyPress (KeyAsciiAsInteger)
IfKeyAscii=13แล้ว
Setii=GetObject("",INTERNETEXPLORER.แอปพลิเคชัน ")
ii.NavigateText1,navNoReadFromCache
ii.มองเห็น=1
ii.บน=0
ii.ซ้าย=0
ii.ความกว้าง=แบบฟอร์ม1.ความกว้าง
ii.Height=หน้าจอความสูง
สิ้นสุดถ้า
สิ้นสุดย่อย ->