利用VB實現對IE的調用與控制

2019-11-18 17:40:07

字體：大中小

來源：轉載

供稿：網友

隨著網絡應用的不斷擴展，采用HTML語言編寫的文檔越來越多，如何在VB程序中實現對HTML文檔的瀏覽是一個需要解決的問題。本文以一個實例說明了在VB中調用和控制InternetExplorer的方法。

　　一、編程準備

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

　　ieView.Visible=True

　　'創建InternetExplorer對象的一個實例,并設為可見

　　txtAddress=Trim(Text1.Text)

　　ieView.NavigatetxtAddress,navNoReadFromCache

　　'按text1控件的內容進行瀏覽

　　cmdView.Enabled=False

　　cmdExit.Enabled=False

　　cmdForward.Visible=True

　　cmdBackward.Visible=True

　　cmdCloseView.Visible=True

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

　　EndSub

　　PrivateSubcmdForward_Click()

　　OnErrorResumeNext'設置錯誤陷阱

　　ieView.GoForward

　　EndSub

　　PrivateSubcmdBackward_Click()

　　OnErrorResumeNext'設置錯誤陷阱

　　ieView.GoBack

　　EndSub

　　PrivateSubcmdCloseView_Click()

　　OnErrorResumeNext'設置錯誤陷阱

　　ieView.Quit

　　EndSub

　　PrivateSubieView_OnQuit()

　　SetieView=Nothing

　　'消除ieView對象

　　cmdForward.Visible=False

　　cmdBackward.Visible=False

　　cmdCloseView.Visible=False

　　cmdView.Enabled=True

　　cmdExit.Enabled=True

　　'恢復初始按鈕狀態

　　EndSub

　　PrivateSubcmdExit_Click()

　　End

　　EndSub

　　程序啟動后"向前"、"向后"、"關閉瀏覽窗口"等命令鈕不可見，在文本框內輸入相應的URL地址，單擊"瀏覽"按鈕即可調入InternetExplorer進行瀏覽，此時，"向前"、"向后"、"關閉瀏覽窗口"命令鈕轉為可見，從而實現對瀏覽器的控制，單擊"關閉瀏覽窗口"命令按鈕可關閉當前打開的InternetExplorer窗口，此時窗口又還原為初始模樣，可再次輸入新的地址進行瀏覽。

　　三、注意問題

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

　　2.瀏覽時需用下述語句創建InternetExplorer對象實例，并設為可見：

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

　　ieView.Visible=True

　　退出時須消除該對象以釋放內存，即

　　SetieView=Nothing

　　否則會因大量占用系統資源導致系統不穩定。

　　3.調用和控制InternetExplorer過程中會產生各種錯誤，如在瀏覽器歷史記錄為空時，執行"向前"、"向后"操作就會產生OlE自動化錯誤，必須在"瀏覽"、"向前"、"向后"、"關閉瀏覽窗口"等命令按鈕相應程序模塊開始處加入錯誤捕獲語句：

　　OnErrorResumeNext

　　以檢測和處理類似錯誤，上述程序在Windows98、VB5.0環境下調試通過。->

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

下一篇：ADO設定獨占性的資料庫