利用VB實(shí)現對IE的調用與控制

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

　　一、 編程準備

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

　　二、 實(shí)現方法

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


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

　　Dim WithEvents ieView As InternetExplorer

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

　　Private Sub Form_Load()

　　cmdForward.Visible = False

　　cmdBackward.Visible = False

　　cmdCloseView.Visible = False

　　'窗體調入時(shí)隱藏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對象的一個(gè)實(shí)例,并設為可見(jiàn)

　　txtAddress = Trim(Text1.Text)

　　ieView.Navigate txtAddress, navNoReadFromCache

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

　　cmdView.Enabled = False

　　cmdExit.Enabled = False

　　cmdForward.Visible = True

　　cmdBackward.Visible = True

　　cmdCloseView.Visible = True

　　'使瀏覽、退出命令鈕無(wú)效，使IE控制命令鈕可見(jiàn)

下一頁(yè)

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

利用VB的MSComm控件實(shí)現GPS數據采集03-07

利用VB實(shí)現PC機與多單片機通訊03-18

家庭理財系統的設計與實(shí)現VB+SQL03-08

利用VB＋MO開(kāi)發(fā)管線(xiàn)信息系統的實(shí)踐03-07

利用DSP控制直流無(wú)刷電機03-18

用VB實(shí)現班主任工作的電子化03-19

VB5.0中數據庫查詢(xún)模塊的實(shí)現03-03

匯編語(yǔ)言考試系統設計與實(shí)現VB+SQL03-08

通用試題庫系統的設計與實(shí)現VB+SQL03-08

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