Web资料库应用程式.PPT

第十五章 網路應用技巧 15-1 網頁瀏覽器的設計技巧 以往想要使用VB 來設計一個完整的網頁瀏覽器，必須先深入了解網路的通訊協定、網頁規格…等等艱深的技術 現在IE提供了一個 Web Browser元件，可以直接使用在VB 2005中，讓自行設計瀏覽器的美夢轉眼成真。 在Windows中可使用IE來瀏覽網頁，目前最新版為7.0，可到微軟網站 /taiwan免費下載必威体育精装版版的IE。 在VB 2005中可引用 Web Browser物件，如下圖自行製作出一個瀏覽器： 一、如何引用Web Browser元件 如果要引用 Web Browser元件，可由工具箱中將 Web Browser元件拖曳到表單內，其操作的步驟如下： 二、Web Browser常用的方法、事件 1. Web Browser元件常用方法 2. Web Browser元件常用事件 三、Web Browser 的實例製作 【範例15_1_1】 運用Web Browser控制項設計一個瀏覽器， 包含網址列、狀態列、工具列 (上一頁、下 一頁、停止、重新整理、首頁、搜尋…等按鈕)。 【結果】 直接在網址列輸入網址然後按 鍵或 鈕即可。下圖為台北動物園，網址為：.tw 【上機】 建立如下所示表單： 2. 物件屬性設定如下表： ‘FileName : f15_1_1 .sln 1 Public Class Form1 2 3 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e _ As System.EventArgs) Handles MyBase.Load 4 ie.GoHome() 5 End Sub 6 ‘ 7 Private Sub tsbPrev_Click(ByVal sender As System.Object, ByVal e _ As System. EventArgs) Handles tsbPrev.Click 8 ie.GoBack() 9 End Sub 10 ‘ 11 Private Sub tsbNext_Click(ByVal sender As System.Object, ByVal _ e As System. EventArgs) Handles tsbNext.Click 12 ie.GoForward() 13 End Sub 14 ‘ 15 Private Sub tsbStop_Click(ByVal sender As System.Object, ByVal _ e As System. EventArgs) Handles tsbStop.Click 16 ie.Stop() 17 End Sub 18 ‘ 19 Private Sub tsbReresh_Click(ByVal sender As System.Object, ByVal _ e As System. EventArgs) Handles tsbReresh.Click 20 ie.Refresh() 21 End Sub 22 ‘ 23 Private Sub tsbIndex_Click(ByVal sender As System.Object, ByVal _ e As System. EventArgs) Handles tsbIndex.Click 24 ie.GoHome() 25 End Sub 26 ‘ 27 Private Sub tsbSearch_Click(ByVal sender As System.Object, ByVal _ e As System. EventArgs) Handles tsbSearch.Click 28 ie.GoSearch() 29 End Sub 30 ‘ 31 Private Sub tsbGo_Click(ByVal sender As System.Object, ByVal e _ As System. EventArgs) Handles tsbGo.Click 32 ie.Navigate(txtURL.Text) 33 End Sub 34 ‘ 35 Private Sub txtURL_Ke