利用VB實(shí)現(xiàn)對IE的調(diào)用與控制

2019-11-18 17:40:07

字體：大中小

供稿：網(wǎng)友

隨著網(wǎng)絡(luò)應(yīng)用的不斷擴(kuò)展，采用HTML語言編寫的文檔越來越多，如何在VB程序中實(shí)現(xiàn)對HTML文檔的瀏覽是一個(gè)需要解決的問題。本文以一個(gè)實(shí)例說明了在VB中調(diào)用和控制InternetExplorer的方法。

　　一、編程準(zhǔn)備

　　VB通過OLE自動化技術(shù)創(chuàng)建和控制InternetExplorer對象的實(shí)例，因此，在新建一個(gè)工程后需要加入MicrosoftInternet控制的參考，方法是打開VisualBasic的application")

　　ieView.Visible=True

　　'創(chuàng)建InternetExplorer對象的一個(gè)實(shí)例,并設(shè)為可見

　　txtAddress=Trim(Text1.Text)

　　ieView.NavigatetxtAddress,navNoReadFromCache

　　'按text1控件的內(nèi)容進(jìn)行瀏覽

　　cmdView.Enabled=False

　　cmdExit.Enabled=False

　　cmdForward.Visible=True

　　cmdBackward.Visible=True

　　cmdCloseView.Visible=True

　　'使瀏覽、退出命令鈕無效，使IE控制命令鈕可見

　　EndSub

　　PrivateSubcmdForward_Click()

　　OnErrorResumeNext'設(shè)置錯(cuò)誤陷阱

　　ieView.GoForward

　　EndSub

　　PrivateSubcmdBackward_Click()

　　OnErrorResumeNext'設(shè)置錯(cuò)誤陷阱

　　ieView.GoBack

　　EndSub

　　PrivateSubcmdCloseView_Click()

　　OnErrorResumeNext'設(shè)置錯(cuò)誤陷阱

　　ieView.Quit

　　EndSub

　　PrivateSubieView_OnQuit()

　　SetieView=Nothing

　　'消除ieView對象

　　cmdForward.Visible=False

　　cmdBackward.Visible=False

　　cmdCloseView.Visible=False

　　cmdView.Enabled=True

　　cmdExit.Enabled=True

　　'恢復(fù)初始按鈕狀態(tài)

　　EndSub

　　PrivateSubcmdExit_Click()

　　End

　　EndSub

　　程序啟動后"向前"、"向后"、"關(guān)閉瀏覽窗口"等命令鈕不可見，在文本框內(nèi)輸入相應(yīng)的URL地址，單擊"瀏覽"按鈕即可調(diào)入InternetExplorer進(jìn)行瀏覽，此時(shí)，"向前"、"向后"、"關(guān)閉瀏覽窗口"命令鈕轉(zhuǎn)為可見，從而實(shí)現(xiàn)對瀏覽器的控制，單擊"關(guān)閉瀏覽窗口"命令按鈕可關(guān)閉當(dāng)前打開的InternetExplorer窗口，此時(shí)窗口又還原為初始模樣，可再次輸入新的地址進(jìn)行瀏覽。

　　三、注意問題

　　1.必須在最上層通用模塊中定義InternetExplorer對象，并且將其定義為WithEvents類型以便響應(yīng)由ActiveX組件觸發(fā)的事件；

　　2.瀏覽時(shí)需用下述語句創(chuàng)建InternetExplorer對象實(shí)例，并設(shè)為可見：

　　SetieView=GetObject("","InternetExplorer.Application")

　　ieView.Visible=True

　　退出時(shí)須消除該對象以釋放內(nèi)存，即

　　SetieView=Nothing

　　否則會因大量占用系統(tǒng)資源導(dǎo)致系統(tǒng)不穩(wěn)定。

　　3.調(diào)用和控制InternetExplorer過程中會產(chǎn)生各種錯(cuò)誤，如在瀏覽器歷史記錄為空時(shí)，執(zhí)行"向前"、"向后"操作就會產(chǎn)生OlE自動化錯(cuò)誤，必須在"瀏覽"、"向前"、"向后"、"關(guān)閉瀏覽窗口"等命令按鈕相應(yīng)程序模塊開始處加入錯(cuò)誤捕獲語句：

　　OnErrorResumeNext

　　以檢測和處理類似錯(cuò)誤，上述程序在Windows98、VB5.0環(huán)境下調(diào)試通過。->

上一篇：WindowsAPI的作用及使用技巧

下一篇：ADO設(shè)定獨(dú)占性的資料庫