如果你已厭倦了現有的互聯網瀏覽器,你可以用Visual Basic來編寫你自己的互聯網瀏覽器。創建互聯網瀏覽器的第一步驟是在啟動Visual Basic6后,按Ctrl+ T打開組件窗口,然后選擇“Microsoft Internet Control"。該控件將出現在工具箱中。接下來把“Microsoft Internet Control"插入到表單中,一個白色矩形將出現。您可以隨你所願調整該控件大小。該控件默認的名稱是WebBrowser1。
為了設計瀏覽器的界面,你需要插入一個組合框來顯示URL(網址)。此外,您需要插入一些圖像來作為用戶瀏覽互聯網的命令按鈕,例如Go ,Forward(前進),Refresh(刷新) 及Home等指令。雖然你可以直接插入命令按鈕而不是圖像,但使用圖像無疑會大大提高瀏覽器的美觀。
編寫所有命令的程式是相當容易的。雖然與Web瀏覽器有關聯的方法,事件和屬性有很多,但你需要知道的只是一小部分就能編寫一個有基本功能的互聯網瀏覽器。比如說 navigate 方法是利用網站統一資源定位器(URL)去到指定的網頁。它的語法是WebBrowser1.Navigate(“URL”)。在這個范例裡,我們在啟動時互聯網瀏覽器加載www.vbtutor.net的網頁。
程式碼
Private Sub Form_Load()
WebBrowser1.Navigate ("https://www.vbtutor.net")
End Sub
為了在組合框中顯示URL,並在頁面完全下載后顯示窗體標題及頁面標題,我們使用下面的語句:
Private Sub
WebBrowser1_DocumentComplete (ByVal pDisp As Object, URL As Variant)
Combo1.Text = URL
Form1.Caption = WebBrowser1.LocationName
Combo1.AddItem URL
End Sub
下面的程序會告訴用戶等待頁面加載。
Private Sub
WebBrowser1_DownloadBegin ()
Combo1.Text = "Page loading, please wait"
End Sub