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

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

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

　　一、 編程準(zhǔn)備

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

　　二、 實(shí)現(xiàn)方法

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


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

　　Dim WithEvents ieView As InternetExplorer

　　'在通用模塊中定義Internet Explorer對(duì)象

　　Private Sub Form_Load()

　　cmdForward.Visible = False

　　cmdBackward.Visible = False

　　cmdCloseView.Visible = False

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

　　End Sub

　　Private Sub cmdView_Click()

　　Dim txtAddress As String

　　On Error Resume Next '設(shè)置錯(cuò)誤陷阱

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

　　ieView.Visible = True

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

　　txtAddress = Trim(Text1.Text)

　　ieView.Navigate txtAddress, navNoReadFromCache

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

　　cmdView.Enabled = False

　　cmdExit.Enabled = False

　　cmdForward.Visible = True

　　cmdBackward.Visible = True

　　cmdCloseView.Visible = True

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

下一頁

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

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

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

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

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

5.利用EXCEL實(shí)現(xiàn)財(cái)務(wù)預(yù)測(cè)的回歸分析

6.控制并利用氣勵(lì)志文章

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

8.關(guān)于利用商學(xué)院的職業(yè)服務(wù)與資源實(shí)現(xiàn)職業(yè)轉(zhuǎn)換