利用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)文章：

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

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

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

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

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

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

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

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

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

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