สร้างเบราว์เซอร์ของคุณเองเหรอ? มีผิดพลาดประการใด? ไม่ต้องพูดถึงยักษ์ใหญ่อย่าง IE แม้แต่ Opera ขนาดกะทัดรัด คนธรรมดาส่วนใหญ่ของเราก็ไม่สามารถทำได้ แต่ถ้าคุณมีเวอร์ชันมืออาชีพ VB5.0 ติดตั้งอยู่ในเครื่องของคุณ สิ่งต่างๆ จะง่ายขึ้นมาก คุณต้องการลองใช้หรือไม่ เอาล่ะ ไปกันเลย!
ตัวเอกของโปรแกรมคือตัวควบคุม ActiveX: เว็บเบราว์เซอร์ แน่นอนว่ามันไม่ได้รวมอยู่ในกล่องเครื่องมือ VB ตามค่าเริ่มต้น เราต้องเพิ่มมันด้วยตนเอง วิธีการคือ: คลิกขวาที่กล่องเครื่องมือ เลือก "ชิ้นส่วน..." ในเมนูทางลัดที่ปรากฏขึ้น และตรวจสอบให้แน่ใจว่าเป็นเช่นนั้น เลือกในกล่องโต้ตอบป๊อปอัป แท็บ "การควบคุม" ค้นหา Microsoft Internet Controls ทำเครื่องหมายที่ช่องเล็กด้านหน้าแล้วคลิกตกลง ณ จุดนี้ คุณจะพบไอคอนขนาดเล็กอีกสองไอคอนในกล่องเครื่องมือ ในบรรดาไอคอนเหล่านั้น ตัวควบคุมที่แสดงโดยไอคอนลูกโลกคือเว็บเบราว์เซอร์ที่เราต้องการ
เนื่องจากหลายคนไม่ค่อยคุ้นเคยกับการควบคุมเว็บเบราว์เซอร์ และไม่มีเนื้อหาเกี่ยวกับเรื่องนี้ในวิธีใช้ VB (ฉันไม่พบมันอยู่ดี) จึงจำเป็นต้องแนะนำคุณสมบัติ วิธีการ และเหตุการณ์ต่างๆ เนื่องจากข้อจำกัดด้านพื้นที่ เราครอบคลุมเฉพาะสิ่งที่ใช้ในโปรแกรมเท่านั้น
คุณสมบัติ: LocationURL ส่งกลับ URL ของหน้าเว็บที่แสดงโดยการควบคุม
วิธีการ: นำทางการถ่ายโอนไปยัง URL ที่ระบุหรือเปิดไฟล์ HTML ที่ระบุ
กิจกรรม: 1. DownloadBegin เริ่มทำงานเมื่อการดาวน์โหลดเริ่มต้นขึ้น
2. DownloadComplete เริ่มทำงานเมื่อการดาวน์โหลดเสร็จสิ้น ยุติ หรือล้มเหลว
3. ตัวควบคุม ProgressChange WebBrowser ติดตามความคืบหน้าของการดำเนินการดาวน์โหลด และทริกเกอร์เหตุการณ์นี้เป็นระยะๆ ไวยากรณ์คือ: Sub WebBrowser_ProgressChange (ByVal Progress As Long, ByVal ProgressMax As Long) อาร์กิวเมนต์ Progress คือจำนวนข้อมูลทั้งหมดที่ถูกดาวน์โหลดในปัจจุบัน และอาร์กิวเมนต์ ProgressMax คือจำนวนข้อมูลทั้งหมดที่จะดาวน์โหลด
4. TitleChange จะถูกทริกเกอร์เมื่อชื่อเรื่องของเอกสารปัจจุบันมีการเปลี่ยนแปลง
นอกจากการควบคุมเว็บเบราว์เซอร์แล้ว โปรแกรมยังต้องการการควบคุมป้ายกำกับ: Label1; ComboBox การควบคุม: combo1 ใช้เพื่อแสดงที่อยู่ URL; การควบคุม StatusBar: StatusBar1; การควบคุม ProgressBar: ใช้เพื่อแสดงความคืบหน้าในการดาวน์โหลด (StatusBar control และตัวควบคุม ProgressBar เป็นตัวควบคุม ActiveX เป็นสมาชิกของ Microsoft Windows Common Controls 5.0 วิธีการเพิ่มลงในกล่องเครื่องมือจะเหมือนกับการควบคุมเว็บเบราว์เซอร์) ค่าคุณสมบัติของตัวควบคุมเหล่านี้ใช้ค่าเริ่มต้น
นี่คือรายการโปรแกรม:
| ตัวเลือกที่ชัดเจน แบบฟอร์มย่อยส่วนตัว_Load() Me.Caption="นักสำรวจของฉัน" Label1.Caption = "URL" Combo1.Text = "" Combo1.Top = Label1.Height Combo1.ซ้าย = 0 WebBrowser1.Top = Combo1.Top + Combo1.Height เว็บเบราว์เซอร์1.ซ้าย = 0 แบบฟอร์ม_ปรับขนาด StatusBar1.Style = sbrSimple ProgressBar1.Zorder จบหมวดย่อย |
| แบบฟอร์มย่อยส่วนตัว_Resize() เมื่อเกิดข้อผิดพลาด GoTo Combo1.Width = Form1.Width - 100 เว็บเบราว์เซอร์1.กว้าง = Combo1.กว้าง เว็บเบราว์เซอร์1.ความสูง = Form1.Height - Combo1.Height - 1000 ProgressBar1.Top = Me.Height - StatusBar1.Height - 330 ProgressBar1.Left = 0.25 * StatusBar1.Width ProgressBar1.Width = 0.75 * Me.Width - 250 ก: จบหมวดย่อย |
| Combo ย่อยส่วนตัว1_คลิก() `ไปที่ URL ที่ระบุ เว็บเบราว์เซอร์1.นำทาง Combo1.ข้อความ จบหมวดย่อย Combo1_KeyDown ย่อยส่วนตัว (รหัสคีย์เป็นจำนวนเต็ม, Shift เป็นจำนวนเต็ม) ฉันมืดมนตราบนานเท่านาน Dim มีอยู่เป็นบูลีน ถ้า KeyCode = 13 แล้ว ถ้าซ้าย(Combo1.Text, 7) <> "http://"แล้ว Combo1.Text = "http://"+ Combo1.Text สิ้นสุดถ้า เว็บเบราว์เซอร์1.นำทาง Combo1.ข้อความ สำหรับ I = 0 ถึง Combo1.ListCount - 1 ถ้า Combo1.List(I) = Combo1.Text แล้ว มีอยู่=จริง ออกเพื่อ อื่น มีอยู่=เท็จ สิ้นสุดถ้า ต่อไป ถ้าไม่มีแล้ว Combo1.AddItem (Combo1.ข้อความ) สิ้นสุดถ้า สิ้นสุดถ้า จบหมวดย่อย |
| เว็บเบราว์เซอร์ย่อยส่วนตัว1_ดาวน์โหลดเริ่มต้น() `เมื่อการดาวน์โหลดเริ่มต้น แถบสถานะจะแสดง "กำลังเชื่อมโยง..." StatusBar1.SimpleText = "กำลังเชื่อมโยง..." จบหมวดย่อย |
| เว็บเบราว์เซอร์ย่อยส่วนตัว1_ดาวน์โหลดเสร็จสมบูรณ์() `เมื่อการดาวน์โหลดเสร็จสิ้น แถบสถานะจะแสดง "ลิงก์เสร็จสิ้น" StatusBar1.SimpleText = "ลิงก์เสร็จสิ้น" ProgressBar1.มูลค่า = 0 จบหมวดย่อย |
| เว็บเบราว์เซอร์ย่อยส่วนตัว1_ProgressChange (ความคืบหน้า ByVal ตราบใดที่ ByVal ProgressMax ตราบเท่าที่) `แถบความคืบหน้าจะเปลี่ยนไปเมื่อกำลังดาวน์โหลด ถ้า ProgressMax = 0 ให้ออกจาก Sub ProgressBar1.Max = ความคืบหน้าสูงสุด หากความคืบหน้า <> -1 และความคืบหน้า <= ProgressMax จากนั้น ProgressBar1.Value = ความคืบหน้า สิ้นสุดถ้า จบหมวดย่อย |
| เว็บเบราว์เซอร์ย่อยส่วนตัว1_TitleChange (ข้อความ ByVal เป็นสตริง) Combo1.Text = เว็บเบราว์เซอร์1.LocationURL จบหมวดย่อย |