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

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

　　一、 編程準備

　　VB通過OLE自動化技術創(chuàng)建和控制Internet Explorer對象的實例，因此，在新建一個工程后需要加入Microsoft Internet 控制的參考，方法是打開Visual Basic 的Project下拉菜單中的Reference…選項，單擊Browse…按鈕，在Windows的system目錄下找到SHDOCVW.DLL并選中它，它是Internet Explorer的.類庫。

　　二、 實現(xiàn)方法

　　在窗體form1中添加表1所示的控件。 控件類型 控件名稱 控件內(nèi)容
LabelLable1 地址:
TextText1 (空)
Command cmdView 瀏覽
CommandcmdForward 向前
Command cmdBackward 向后
Command cmdCloseView 關閉瀏覽窗口
Command cmdExit 退出


　　對上述窗體添加如下代碼即可實現(xiàn)對Internet Explorer的調(diào)用與控制，

　　Dim WithEvents ieView As InternetExplorer

　　'在通用模塊中定義Internet Explorer對象

　　Private Sub Form_Load()

　　cmdForward.Visible = False

　　cmdBackward.Visible = False

　　cmdCloseView.Visible = False

　　'窗體調(diào)入時隱藏Internet Explorer控制按鈕

　　End Sub

　　Private Sub cmdView_Click()

　　Dim txtAddress As String

　　On Error Resume Next '設置錯誤陷阱

　　Set ieView = GetObject("", "InternetExplorer.Application")

　　ieView.Visible = True

　　'創(chuàng)建Internet Explorer對象的一個實例,并設為可見

　　txtAddress = Trim(Text1.Text)

　　ieView.Navigate txtAddress, navNoReadFromCache

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

　　cmdView.Enabled = False

　　cmdExit.Enabled = False

　　cmdForward.Visible = True

　　cmdBackward.Visible = True

　　cmdCloseView.Visible = True

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

下一頁

【利用VB實現(xiàn)對IE的調(diào)用與控制】相關文章：

1.利用公共知識實現(xiàn)社會控制的路徑探討

2.總監(jiān)實現(xiàn)對施工進度控制方法

3.衛(wèi)星電源控制單機的研發(fā)與實現(xiàn)

4.基于VB中控件和類的霓虹燈效果的設計與實現(xiàn)

5.利用EXCEL實現(xiàn)財務預測的回歸分析

6.控制并利用氣勵志文章

7.游戲中實現(xiàn)腳本控制的干貨分享

8.關于利用商學院的職業(yè)服務與資源實現(xiàn)職業(yè)轉(zhuǎn)換