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

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

　　一、 編程準備

　　VB通過OLE自動化技術(shù)創(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 關(guān)閉瀏覽窗口
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 '設(shè)置錯誤陷阱

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

　　ieView.Visible = True

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

　　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)用與控制】相關(guān)文章：

利用VB的MSComm控件實現(xiàn)GPS數(shù)據(jù)采集03-07

利用VB實現(xiàn)PC機與多單片機通訊03-18

家庭理財系統(tǒng)的設(shè)計與實現(xiàn)VB+SQL03-08

利用VB＋MO開發(fā)管線信息系統(tǒng)的實踐03-07

利用DSP控制直流無刷電機03-18

用VB實現(xiàn)班主任工作的電子化03-19

VB5.0中數(shù)據(jù)庫查詢模塊的實現(xiàn)03-03

匯編語言考試系統(tǒng)設(shè)計與實現(xiàn)VB+SQL03-08

通用試題庫系統(tǒng)的設(shè)計與實現(xiàn)VB+SQL03-08

在PowerBuilder中利用自動化技術(shù)調(diào)用Excel處理與打印表格03-19